Hallo alle zusammen.
Ich hab ein "Sicherheits-Tool" für z.B. LAN-Partys geschrieben, dass den PC sperrt wenn man den USB-Stick oder MP3Player aus der USB schnittstelle zieht.
Soweit so gut. Nun zu meinem Problem: Wenn ich das 1. Mal meinen Stick ziehe wird gesperrt, wenn ich ihn dann wieder reinstecke, wird der GUI wieder geschlossen. Wenn ich ihn aber nun des 2. mal rausziehe gibts einen Fehler.... . Ich kenne eigentlich jeden Fehlertyp der mir bisher untergekommen ist aber den hab ich noch nie gesehn:
Fehler
C:\Programme\AutoIt3\Include\WindowsConstants.au3 (11) : ==> Can not redeclare a constant.:
Global Const $WS_TILED = 0
Global Const ^ ERROR
Script
Local $Seriennummer
Local $Laufwerk = "E:\"
HotKeySet("!e","_Delete")
[/autoit] [autoit][/autoit] [autoit]_Go()
Func _Go()
$Seriennummer = _Seriennummer()
Do
$Rueckgabe1 = DriveGetFileSystem($Laufwerk)
If Not $Rueckgabe1 = "FAT" Then _Sperre()
Until ""
EndFunc
Func _Seriennummer()
$Seriennummer = DriveGetSerial($Laufwerk)
Return $Seriennummer
EndFunc
Func _Sperre()
[/autoit] [autoit][/autoit] [autoit]#include <WindowsConstants.au3>
#include <GUIConstants.au3>
$Form1 = GUICreate("Gesperrt",@DesktopWidth,@DesktopHeight, 0,0, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
GUISetState(@SW_Lock)
WinSetTrans($Form1,"",1)
While 1
Sleep(20)
$Rueckgabe = DriveGetFileSystem ($Laufwerk)
;~ If WinExists("Windows Task-Manager") Or ProcessExists("taskmgr.exe") Then WinKill("Windows Task-Manager")
;~ BlockInput(1)
If $Rueckgabe = "FAT" Then
$Seriennummer2 = DriveGetSerial($Laufwerk)
If $Seriennummer = $Seriennummer2 Then
GUIDelete($Form1)
;~ BlockInput(0)
_Go()
EndIf
EndIf
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _Delete()
GUIDelete()
Exit
EndFunc
Das Script ist nochnet fertig, aber ich würde gerne die "Roh" Version schonmal zum laufen bringen.
Hoffe auf Hilfe
LG
Noobyn00b
PS: Zum testen hab ich mal das Blockinput und die Zeile mitm Winkill für den Task-Man. rausgenommen.
Beendet wird mit alt + e (Zu testzwecken)