EasyBot

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

Code:

#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 :
[Only registered and activated users can see links. Click Here To Register...]

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
[Only registered and activated users can see links. Click Here To Register...]
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~