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
Komme nicht ganz draus, wie das mit Ingame-GUI geht, genauere Erklärung bitte, wie man das macht.