der Threat wurde aufgrund von Virenverdacht geschlossen.
sind, bei manchen Antiviren Programmen als Viren bzw. Trojan-
er angezeigt werden. Hier steht alles noch mal genauer:
#Region Variablen
$starttaste = INIread("NostaleBot3000_Config.ini", "config", "startbot", "")
$pausetaste = INIread("NostaleBot3000_Config.ini", "config", "pausebot", "")
$beendentaste = INIread("NostaleBot3000_Config.ini", "config", "botbeenden", "")
$wartezeit1 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill1", "")
$wartezeit2 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill2", "")
$wartezeit3 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill3", "")
$wartezeit4 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill4", "")
$wartezeit = INIread("NostaleBot3000_Config.ini", "config", "wartezeitangriffstaste", "")
$taste = INIread("NostaleBot3000_Config.ini", "config", "angriffstaste", "")
$fenster = INIread("NostaleBot3000_Config.ini", "config", "Fenster", "")
$t1 = 0
$t2 = 0
$t3 = 0
$t4 = 0
$t5 = 0
#EndRegion
#Region .ini_check
If Not FileExists("config.ini") Then
IniWrite("NostaleBot3000_Config.ini","config","Fen ster","NosTale")
IniWrite("NostaleBot3000_Config.ini","config","ang riffstaste","space")
IniWrite("NostaleBot3000_Config.ini","config","sta rtbot","F1")
IniWrite("NostaleBot3000_Config.ini","config","pau sebot","F2")
IniWrite("NostaleBot3000_Config.ini","config","bot beenden","ESC")
IniWrite("NostaleBot3000_Config.ini","config","war tezeitangriffstaste","1")
IniWrite("NostaleBot3000_Config.ini","config","war tezeitskill1","5")
IniWrite("NostaleBot3000_Config.ini","config","war tezeitskill2","10")
IniWrite("NostaleBot3000_Config.ini","config","war tezeitskill3","20")
IniWrite("NostaleBot3000_Config.ini","config","war tezeitskill4","40")
IniWrite("NostaleBot3000_Config.ini","Info"," !!! Die Zeitangaben in sekunden !!!","")
IniWrite("NostaleBot3000_Config.ini","Info","Fenst er","Dort kommt der Fenstername hin. z.B für andere Spiele. Normal ist es NosTale")
IniWrite("NostaleBot3000_Config.ini","Info","Angri ffstaste","Mit der Taste visiert der Bot die Mobs an !!! NUR X UND SPACE MÖGLICH!!!")
IniWrite("NostaleBot3000_Config.ini","Info","Start bot","Mit der Taste startest du den Bot bzw. depausierst ihn.")
IniWrite("NostaleBot3000_Config.ini","Info","Pause ","Mit der Taste Pausierst du den Bot.")
IniWrite("NostaleBot3000_Config.ini","Info","Botbe enden","Mit der Taste beendest du den Bot.")
IniWrite("NostaleBot3000_Config.ini","Info","Warte zeitang. ","Dort bestimmst du wie schnell er die Angr.taste drücken soll z.B. 1=1mal pro sekunde")
IniWrite("NostaleBot3000_Config.ini","Info","Warte zeitskill1","Dort bestimmst du wann er die Taste 1 drücken soll.z.B. 5= er drückt die Taste 1 alle 5 sekunden")
IniWrite("NostaleBot3000_Config.ini","Info","Warte zeitskill2","s.o.")
IniWrite("NostaleBot3000_Config.ini","Info","Warte zeitskill3","s.o.")
IniWrite("NostaleBot3000_Config.ini","Info","Warte zeitskill4","s.o.")
$starttaste = INIread("NostaleBot3000_Config.ini", "config", "startbot", "")
$pausetaste = INIread("NostaleBot3000_Config.ini", "config", "pausebot", "")
$beendentaste = INIread("NostaleBot3000_Config.ini", "config", "botbeenden", "")
$wartezeit1 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill1", "")
$wartezeit2 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill2", "")
$wartezeit3 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill3", "")
$wartezeit4 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill4", "")
$wartezeit = INIread("NostaleBot3000_Config.ini", "config", "wartezeitangriffstaste", "")
$taste = INIread("NostaleBot3000_Config.ini", "config", "angriffstaste", "")
$fenster = INIread("NostaleBot3000_Config.ini", "config", "Fenster", "")
EndIf
#EndRegion
#Region HotKey's
HotKeySet("{"& $starttaste &"}","Start")
HotKeySet("{"& $pausetaste &"}","Pause")
HotKeySet("{"& $beendentaste &"}","Beenden")
#EndRegion
#Region Hauptschleife
MsgBox(0,"Bot3000",""& $starttaste &"=Start")
MsgBox(0,"Bot3000",""& $pausetaste &"=Pause")
MsgBox(0,"Bot3000",""& $beendentaste &"=Beenden")
MsgBox(0,"Bot3000","Wenn du die Werte wie z.B. Skillwirkzeit ändern willst gehe unter: "& @ScriptDir &" und dort öffne die NostaleBot3000_Config.ini. Hier ist alles weitere erklärt")
While 1
Sleep(1000)
$starttaste = INIread("NostaleBot3000_Config.ini", "config", "startbot", "")
$pausetaste = INIread("NostaleBot3000_Config.ini", "config", "pausebot", "")
$beendentaste = INIread("NostaleBot3000_Config.ini", "config", "botbeenden", "")
$wartezeit1 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill1", "")
$wartezeit2 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill2", "")
$wartezeit3 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill3", "")
$wartezeit4 = INIread("NostaleBot3000_Config.ini", "config", "wartezeitskill4", "")
$wartezeit = INIread("NostaleBot3000_Config.ini", "config", "wartezeitangriffstaste", "")
$taste = INIread("NostaleBot3000_Config.ini", "config", "angriffstaste", "")
$fenster = INIread("NostaleBot3000_Config.ini", "config", "Fenster", "")
WEnd
#EndRegion
#Region Funktionen
Func Start()
ToolTip("Bot wurde gestartet!", 0,0)
$t1 = 0
$t2 = 0
$t3 = 0
$t4 = 0
$t5 = 0
While 1
If $t1 >= $wartezeit Then
ControlSend(""& $fenster &"", "", 0, "{"& $taste &"}")
$t1 = 0
EndIf
If $t2 >= $wartezeit1 Then
ControlSend(""& $fenster &"", "", 0, "1")
$t2 = 0
EndIf
If $t3 >= $wartezeit2 Then
ControlSend(""& $fenster &"", "", 0, "2")
$t3 = 0
EndIf
If $t4 >= $wartezeit3 Then
ControlSend(""& $fenster &"", "", 0, "3")
$t4 = 0
EndIf
If $t5 >= $wartezeit4 Then
ControlSend(""& $fenster &"", "", 0, "4")
$t5 = 0
EndIf
sleep(1000)
$t1 = $t1 + 1
$t2 = $t2 + 1
$t3 = $t3 + 1
$t4 = $t4 + 1
$t5 = $t5 + 1
WEnd
EndFunc
Func Pause()
ToolTip("Bot ist Pausiert!", 0,0)
Sleep(2000)
While 1
Sleep(500)
WEnd
EndFunc
Func Beenden()
MsgBox(0,"Bot3000","Bot wurde beendet !")
MsgBox(0,"Bot3000","Danke fürs benutzen :D ~Trojan~")
Exit
EndFunc
Wer mit glaubt wenn ich sage das das mit dem Virus an AutoIt liegt der kann sich den Bot hier herunter laden:
Eure Meinung dazu zu hören. Also kräftig Meinugen posten ;D
Mfg. Trojan =DD