EasyBot

[Trøjan]

Zu dem EasyBot brauch man nicht viel zu sagen er ist einfach nur einfach!
Ich habe ihn gemacht weil sich sehr viele Leute einfach nur nen einfachen Bot
gewünscht haben und das soll dieser Bot auch sein!
Wenn mann das Fenster in NosTale verschieben will tut man den Mauszeiger an die gewünschte position und drückt strg. + F1 ;D

Source

 Spoiler

#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $XS_n
HotKeySet("^{F1}", "pos")
#Region ### START Koda GUI section ### Form=
$FORM1 = GUICreate("Easy Bot", 166, 119, @DesktopWidth / 2 - 192 / 2, @DesktopHeight / 2 - 127 / 2, $WS_POPUP)
GUISetBkColor(0x000000)
XPStyle(1)
$BUTTON1 = GUICtrlCreateButton("Exit", 48, 88, 65, 25)
GUICtrlSetColor($BUTTON1, 16711680)
GUICtrlSetBkColor($BUTTON1, 2763306)
GUICtrlSetOnEvent($BUTTON1, "Button1Click")
$RADIO1 = GUICtrlCreateRadio("Leertaste drücken", 16, 0, 145, 25)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000);0xFFFFFF)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$RADIO2 = GUICtrlCreateRadio("Leertaste und x", 16, 28, 145, 25)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000);0xFFFFFF)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$RADIO3 = GUICtrlCreateRadio("Stop", 16, 59, 145, 25)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000);0xFFFFFF)
GUICtrlSetState(-1, 1)
GUICtrlSetFont($RADIO3, 10, 400, 0, "MS Sans Serif")
$INPUT1 = GUICtrlCreateInput("", 136, 88, 30, 25)
GUICtrlSetColor($INPUT1, 0xFF0000)
GUICtrlSetBkColor($INPUT1, 0x000000)
GUICtrlCreateUpdown($INPUT1)
GUICtrlSetData($INPUT1, 0)
XPStyle(0)
GUICtrlSetLimit(-1, 3)
WinSetTrans("Easy Bot", "", 0)
GUISetState()
For $I = 0 To 255 Step 1
	Sleep(10)
	WinSetTrans("Easy Bot", "", $I)
Next
#EndRegion ### END Koda GUI section ###
#RequireAdmin 
While 1
	TRANS()
	$LEER = GUICtrlRead($RADIO1)
	$X = GUICtrlRead($RADIO2)
	$STOP = GUICtrlRead($RADIO3)
	While $LEER = 1
		$LEER = GUICtrlRead($RADIO1)
		ControlSend("NosTale", "", 0, "{Space}")
		Sleep(100)
		ControlSend("NosTale", "", 0, "{Space}")
	WEnd
	While $X = 1
		$X = GUICtrlRead($RADIO2)
		ControlSend("NosTale", "", 0, "{Space}")
		Sleep(100)
		ControlSend("NosTale", "", 0, "{Space}")
		For $a = 1 To 5
			ControlSend("NosTale", "", 0, "x")
			Sleep(100)
		Next
	WEnd
	While $STOP = 1
		TRANS()
		$STOP = GUICtrlRead($RADIO3)
		Sleep(100)
	WEnd
WEnd

Func BUTTON1CLICK()
	Exit
EndFunc   ;==>BUTTON1CLICK

Func XPStyle($OnOff = 1)
	If $OnOff And StringInStr(@OSType, "WIN32_NT") Then
		$XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
		DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
		Return 1
	ElseIf StringInStr(@OSType, "WIN32_NT") And IsArray($XS_n) Then
		DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
		$XS_n = ""
		Return 1
	EndIf
	Return 0
EndFunc   ;==>XPStyle

Func POS()
	$POS = MouseGetPos()
	WinMove("Easy Bot", "", $POS[0], $POS[1])
EndFunc   ;==>POS


Func TRANS()
	$INPUT = GUICtrlRead($INPUT1)
	If $INPUT = 0 Then
		WinSetTrans("Easy Bot", "", 254)
	ElseIf $INPUT = 1 Then
		WinSetTrans("Easy Bot", "", 192)
	ElseIf $INPUT = 2 Then
		WinSetTrans("Easy Bot", "", 129)
	ElseIf $INPUT = 3 Then
		WinSetTrans("Easy Bot", "", 66)
	EndIf
EndFunc   ;==>TRANS

Tut mir leid ich habe den Bot vorher nicht richtig getestet nun müsste er gehen! Wenn er vorher nicht ging dann geht er jetzt!

Wichtige Stichpunkte:
♦Einfach Bot starten und dann Nostale starten und das Nostale Fenster anklicken.
♦[Nicht Mehr]
♦Der Bot läuft auch im Hintergrund (wenn Nostale minimiert ist)
♦Windows Vista nutzer müssen den Bot als Administrator ausführen!!!
♦THX nicht vergessen ;DD

Nur eSafe sagt Suspicious File aber das hängt mit AutoIt zusammen.
Hier der Report von Virus Total :


Wer mir traut soll sich es runterladen wer nich hält die Klappe und schreibt nicht
„VIIIIIIRRRRUUUUUSSS“
...Danke! ;D


Download ab jetzt im Anhang!


Da is nen Bild dort sieht man auch scon alles was der Bot kann! xDD

Bugs usw. bitte hier in diesen Threat posten!

Mfg Trojan

//Edit:
Update:
♦Transparens möglich!
♦Bot geht jetzt richtig!
♦Download im Anhang!
♦Farben geändert
♦Kein Flackern mehr
♦General Update von ~Freaky~

[connors266]

so also der bot geht nicht bei mir das kotzt mich an iwas is bei meim pc nich normal kein einziger bot geht...

[Trøjan]

Ab jetzt geht der Bot richtig habe ihn vorher nicht richtig getestet!

[NetMax]

Wie wärs wenn du postest was er kann?
bitte =)

[SanVentura]

also wenn es bei jemanden geht wunder ich mich o.o bei mir flakert es nur sobald ich den bot da starte und pc kackt total ab -.- schon zum 3.mal o.o

und da müsste so ein auswahlmenü kommen aber bei mir is es nur schwarz und flakert total blöd bis pc geist aufgibt ^^ jemand eine ahnung warum? o.o

[Trøjan]

Ich hab ihn jetzt geupdated und auf 2Verschiedenen Pc's getestet und es ging ohne Fehler!
Hoffe er geht jezz auch bei euch! ;D



Mfg Tro

[DarkBlood1]

hi
also bei mir geht er einwandfrei

mfg DaRK

[Trøjan]

//Updated by ~Freaky~

Danke ~Freaky~


Mfg Tro

[connors266]

nunja bei mir fölackert er pc kack FAST ab nur fast aber nach 5 min rumgeklicke usw geht er doch nur nach 2h oder so löscht er alles was ich anklicke an dateien oder ordnern^^

[eagle12]

i cant understand is this for nostale global?

[NetMax]

Originally Posted by eagle12

i cant understand is this for nostale global?

No it isn't

[~Freaky~]

13Trojan13 thx das du es auch erwähnst weil die meisten würden nichts sagen

[zero2oo9]

Der Bot geht immer noch nicht -.-

[Trøjan]

Als Admin bei Vista ausgeführt?^-^


@~Freaky~
ich finds gut das du ihn geupdated hast. Mir is es eig egal was wer wie mit meinen
Bots macht. Und wenn einer sie Verbessert finde ich das Super! ^-^

[Sephiroth10]

Hi zusammen,

Also der Bot ist aufjedenfall nicht schlecht aber wäre es vll möglich irgend wie dort eine Funktion reinzubringen die dich wiederbelebt wenn man stirbt. Den der nachteil an diesem bot ist nur der das er sich nicht heilt der Cha sondern nur raufhaut und sammelt. Gebe es da eine Möglichkeit das so zu machen das wenn der Cha stirbt er sich belebt und weiter macht? Aber sonst dickes Lob an den Macher =) echt cool.