Beiträge von BugFix

While 1
$msg = GuiGetMsg(1) ; erzeugt Array, $msg[0]=Info, $msg[1]=Winhandle, $msg[2]=Controlhandle Steuerelement, $msg[3]/[4]=Maus x/y
Select
Case $msg[0] = $GUI_EVENT_CLOSE
Select
Case $msg[1] = $f_haupt
ExitLoop
Case $msg[1] = $f_eintrag
GUISetState(@SW_SHOW, $f_eintrag)
EndSelect
;..
EndSelect
WEnd

#include <array.au3>
_ArrayDisplay(_GetNetworkAdapterIPEnabled())

;****************************************************************************************
; Funktion _GetNetworkAdapterIPEnabled()
;
; Beschreibung Ermittelt Netzwerkadapter mit konfigurierter IP
;
; Rückgabe Array Netzwerkadapter
; Array[n][0] Caption
; Array[n][1] IP-Adresse
; Array[n][2] Subnetzmaske
; Array[n][3] Standardgateway
; wird kein IPEnabled Adapter gefunden:
; Return -1 und @error = 1
;
; Erfordernisse #include <array.au3>
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;****************************************************************************************
Func _GetNetworkAdapterIPEnabled()
Dim $arAdapter[1], $var
$arAdapter[0] = -1
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$IPConfigSet = $objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
For $IPConfig in $IPConfigSet
For $i=0 to UBound($IPConfig.IPAddress)-1
If $IPConfig.IPAddress($i) <> '0.0.0.0' Then
$settings = $IPConfig.Caption & '|' & _
$IPConfig.IPAddress($i) & '|' & _
$IPConfig.IPSubnet(0) & '|' & _
$IPConfig.DefaultIPGateway(0)
If $arAdapter[0] = -1 Then
$arAdapter[0] = $settings
Else
For $i = 0 To UBound($arAdapter)-1
If $arAdapter[$i] = $settings Then
ExitLoop
Else
_ArrayAdd($arAdapter, $settings)
EndIf
Next
EndIf
EndIf
Next
Next
If $arAdapter[0] = -1 Then
SetError(1)
Return -1
Else
Local $arOut[UBound($arAdapter)][4]
For $i = 0 To UBound($arAdapter)-1
$var = StringSplit($arAdapter[$i], '|')
$arOut[$i][0] = $var[1]
$arOut[$i][1] = $var[2]
$arOut[$i][2] = $var[3]
$arOut[$i][3] = $var[4]
Next
EndIf
Return $arOut
EndFunc ;==>_GetNetworkAdapterIPEnabled

;****************************************************************************************
; Funktion _SetIP($CAPTION, $IP='0.0.0.0', $GATEWAY='0.0.0.0' [, $SUB="255.255.255.0"])
;
; Beschreibung Konfiguration eines IPEnabled Netzwerkadapters
; Wird nur der Parameter $CAPTION übergeben, wird für diesen Adapter 'DHCP Enabled' gesetzt
;
; Parameter $Caption ermitteln mit _GetNetworkAdapterIPEnabled() o.a. Skript
; $IP einzustellende IP
; $GATEWAY Standardgateway
; optional $SUB Subnetzmaske (default "255.255.255.0")
;
; Rückgabe 0 IP und Gateway (oder DHCP) erfolgreich gesetzt
; 1 IP-Adresse konnte nicht gesetzt werden @error 1
; 2 Gateway konnte nicht gesetzt werden @error 1
; 3 IP-Adresse und Gateway konnten nicht gesetzt werden @error 1
; 4 Aktivierung DHCP fehlgeschlagen @error 1
;
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;****************************************************************************************
Func _SetIP($CAPTION, $IP='0.0.0.0', $GATEWAY='0.0.0.0', $SUB="255.255.255.0")
Local $err = 0, $arIPAddress[1], $arSubnetMask[1], $arGateway[1], $arGatewayMetric[1]
$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colNetAdapters = $objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
$arIPAddress[0] = $IP
$arSubnetMask[0] = $SUB
$arGateway[0] = $GATEWAY
$arGatewayMetric[0] = 1
For $objNetAdapter In $colNetAdapters
If $objNetAdapter.Caption = $CAPTION Then
If $IP <> '0.0.0.0' Then
$errEnable = $objNetAdapter.EnableStatic($arIPAddress, $arSubnetMask)
$errGateways = $objNetAdapter.SetGateways($arGateway, $arGatewaymetric)
If $errEnable <> 0 Then $err += 1
If $errGateways <> 0 Then $err += 2
Else
$errEnable = $objNetAdapter.EnableDHCP()
If $errEnable <> 0 Then $err += 4
EndIf
ExitLoop
EndIf
Next
If $err > 0 Then SetError(1)
Return $err
EndFunc ;==>_SetIP()

While 1
$Event=GUIGetMsg()
Select
Case $Event=$GUI_EVENT_PRIMARYDOWN
Sleep(500) ; Verzögerung um Doppelklick zu erkennen
$Event=GUIGetMsg()
If $Event=$GUI_EVENT_PRIMARYDOWN Then
;Code bei Doppelklick
Else
;Code bei Einfachklick
EndIf
EndSelect
WEnd

#include <GUIConstants.au3>

Dim $grafik, $width = 190, $height = 190, $desc = 1, $gui, $chg = False
Dim $s_angle = 90+@SEC*-6, $m_angle = 90+1+@MIN*-6, $h_angle = 90+1+@HOUR*-30
Dim $sec = @SEC, $min = @MIN, $hour = @HOUR
Dim $DarkOrange = 0xFF8C00, $Orange = 0xFFA500, $HotPink = 0xFF69B4, $LightCoral = 0xF08080, $RoyalBlue = 0x4169E1
Dim $Navy = 0x000080, $Crimson = 0xDC143C, $Green = 0x008000, $LightSteelBlue = 0xB0C4DE

$m_angle -= Floor($sec/10)
$h_angle -= Floor($min/2)
$gui=GUICreate("Time "&@HOUR&':'&@MIN&':'&@SEC, 200,200,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetBkColor($RoyalBlue)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
SetGraphik() ; 12 Uhr = 90° // Uhrzeigersinn (-n°)
GuiSetState()

Do
Sleep(100)
$msg = GUIGetMsg()
If @HOUR <> $hour Then
$hour = @HOUR
$h_angle = 90-1+@HOUR*-30
$chg = True
EndIf
If @MIN <> $min Then
$min = @MIN
$m_angle = 90-1+@MIN*-6
If Mod($min,2) = 0 Then $h_angle -= 1
$chg = True
EndIf
If @SEC <> $sec Then
$sec = @SEC
$s_angle = 90+@SEC*-6
If Mod($sec,10) = 0 Then $m_angle -= 1
$chg = True
EndIf
If $chg Then
SetGraphik()
EndIf
Until $msg=$GUI_EVENT_CLOSE

Func SetGraphik()
Local $title = WinGetTitle("Time")
WinSetTitle($title, '', "Time "&@HOUR&':'&@MIN&':'&@SEC)
GuiSetState(@SW_LOCK, $gui)
GUICtrlDelete($grafik)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$LightSteelBlue,$LightSteelBlue)
GUICtrlSetGraphic($grafik,$GUI_GR_ELLIPSE, 0, 0, 190, 190)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Crimson,$Crimson)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 90, $s_angle, 1)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Navy,$Navy)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 80, $m_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Green,$Green)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 70, $h_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_REFRESH)
GuiSetState(@SW_UNLOCK, $gui)
$chg = False
EndFunc