NetWork Lock - NWL

1. offizieller Beitrag
    • 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
    [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    Func OnAutoItExit()
    If @Compiled Then
    FileDelete("button3.bmp")
    FileDelete("button2.bmp")
    FileDelete("devcon.exe")
    EndIf
    EndFunc

    [/autoit]

    Und hier nochmal Button2/3.bmp, die devcon.exe und Das Compilete Script + Soruce!

    Mfg Spider