[2nd Release]NostaleBot3000

[Trøjan]

Diesen Bot habe ich bereits schon einmal released aber
der Threat wurde aufgrund von Virenverdacht geschlossen.
Nun veröffentliche ich ihn ein zweites mal und sage dabei,
dass scripte mit AutoIt gecodet und zu .exe gemacht worden
sind, bei manchen Antiviren Programmen als Viren bzw. Trojan-
er angezeigt werden. Hier steht alles noch mal genauer:


So und hier ist der Code

 Spoiler

#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 ~Trojan~")
Exit
EndFunc

Hier ist der Virus scann und er zeigt nur 1mal "Suspicious File" an :

Wer mit glaubt wenn ich sage das das mit dem Virus an AutoIt liegt der kann sich den Bot hier herunter laden:

Der Bot ist nicht grad der Beste ich habe ihn auch released um
Eure Meinung dazu zu hören. Also kräftig Meinugen posten ;D
Wenn er euch gut gefällt drückt bitten den „Thx Button“.!

Mfg. Trojan =DD

[~Freaky~]

wieso benutzt du nicht inireadsection und iniwritesection ?

[Trøjan]

Ich kenne mich noch nicht soo gut mit AutoIt aus und habe Teile aus
TuT's.
Was wäre denn mit iniread- bzw writesection anderes?
Wäre das Script dann kürzer oder so? ^^

[~Freaky~]

ja es wäre kürzer du breuchtest für deine ganze iniread funktionen nur 1 befehl und für iniwrite auch ^^

[Trøjan]

Ok, danke ich guck's mir mal an =D