Moin
Mir is grad etwas langweilig, und deswegen hab ich schnell den PC-Pinger gemacht.
Is eigl. nichts anderes als die "Ping" Funktion von AutoIt nur mit besserer Optik
Hier das Script...
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(" PC-Pinger", 350, 110, 493, 474, BitOR($WS_SYSMENU,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW)
GUISetBkColor (0xaaff00)
$Input1 = GUICtrlCreateInput("", 8, 8, 45, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetLimit (-1, 3, 0)
$Input2 = GUICtrlCreateInput("", 64, 8, 45, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetLimit (-1, 3, 0)
$Input3 = GUICtrlCreateInput("", 120, 8, 45, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetLimit (-1, 3, 0)
$Input4 = GUICtrlCreateInput("", 176, 8, 45, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetLimit (-1, 3, 0)
GUICtrlCreateLabel(".", 56, 9, 5, 25)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel(".", 112, 9, 5, 25)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel(".", 168, 9, 5, 25)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Computer anpingen", 228, 8, 111, 21, 0, $WS_EX_CLIENTEDGE)
$Input5 = GUICtrlCreateInput("", 8, 60, 329, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Status:", 8, 44, 44, 15, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Check (GUICtrlRead ($Input1), GUICtrlRead ($Input2), GUICtrlRead ($Input3), GUICtrlRead ($Input4), $Input5)
EndSwitch
WEnd
Func _Check ($Para1, $Para2, $Para3, $Para4, $Para5)
$Ping = Ping ($Para1 & "." & $Para2 & "." & $Para3 & "." & $Para4, 5000)
If @Error Then
Switch @error
Case 1
GUICtrlSetBkColor ($Para5, 0xFF0000)
GUICtrlSetData ($Para5, "Fehler: Der Computer ist offline!")
Beep (80, 300)
Case 2
GUICtrlSetBkColor ($Para5, 0xFF0000)
GUICtrlSetData ($Para5, "Fehler: Der Computer ist nicht erreichbar!")
Beep (80, 300)
Case 3
GUICtrlSetBkColor ($Para5, 0xFF0000)
GUICtrlSetData ($Para5, "Fehler: Falsche IP-Adresse!")
Beep (80, 300)
Case 4
GUICtrlSetBkColor ($Para5, 0xFF0000)
GUICtrlSetData ($Para5, "Fehler: Bitte geben Sie zuerst eine IP ein!")
Beep (80, 300)
EndSwitch
Else
GUICtrlSetBkColor ($Para5, 0x00FF00)
GUICtrlSetData ($Para5, "Erfolgreich: Der Computer wurde erfolgreich angepingt.")
Beep (4000, 50)
Sleep (50)
Beep (5000, 50)
Sleep (50)
Beep (6000, 50)
EndIf
EndFunc ;==> _Check