- Offizieller Beitrag
Hallo!
Ich habe mal vor langer zeit ein Script geschrieben mit dem man Netzwerke De-/Aktivieren kann! Habe es ganz vergessen hier zu posten.. tut mir Leid :tier:
Zur Info: ACHTUNG: Diese Script würde wenn ihr es startet Alle Netzwerkverbindungen Deaktivieren/Aktivieren!, also Auch das Internet! Übernehme keine Haftung für Schaden (da ich Devcon.exe nicht selber programmiert habe, es sollte aber eigentlich nichts passieren *g*
Naja.. Hier das Skript:
Spoiler anzeigen
If @Compiled Then
FileInstall("button3.bmp","button3.bmp")
FileInstall("button2.bmp","button2.bmp")
FileInstall("devcon.exe","*.*")
EndIf
#include <GUIConstants.au3>
$on = 1
Ping("www.google.de",250)
If @error Then $on = 0
$Form1 = GUICreate("I/O", 50, 80,0, 0,$WS_BORDER)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("", 8, 8, 35, 35, $BS_BITMAP)
$lab = GUICtrlCreateLabel("ON",60,13,50,50)
GUICtrlSetFont(-1,15)
If $on = 0 Then
$on = 1
GUICtrlSetImage($Button1, "button2.bmp")
GUICtrlSetData($lab,"OFF")
GUICtrlSetTip($Button1,"Anschalten")
Else
$on = 0
GUICtrlSetImage($Button1, "button3.bmp")
GUICtrlSetData($lab,"ON")
GUICtrlSetTip($Button1,"Ausschalten")
EndIf
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
If $on = 1 Then
$on = 0
RunWait('devcon enable =Net PCI\*', @ScriptDir, @SW_HIDE)
GUICtrlSetImage($Button1, "button3.bmp")
GUICtrlSetData($lab,"ON")
GUICtrlSetTip($Button1,"Ausschalten")
Else
$on = 1
RunWait('devcon disable =Net PCI\*', @ScriptDir, @SW_HIDE)
GUICtrlSetImage($Button1, "button2.bmp")
GUICtrlSetData($lab,"OFF")
GUICtrlSetTip($Button1,"Anschalten")
EndIf
EndSelect
WEnd
Exit
Func OnAutoItExit()
If @Compiled Then
FileDelete("button3.bmp")
FileDelete("button2.bmp")
FileDelete("devcon.exe")
EndIf
EndFunc
Und hier nochmal Button2/3.bmp, die devcon.exe und Das Compilete Script + Soruce!
Mfg Spider