hallo elitepvpers ahbe ein kleines prob.
i-wie willes es nicht fungsen....
P.S. bin neu mit programmiere
PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PickupBot by Zuck", 279, 200, 211, 372)
$taste = GUICtrlCreateInput("y oder ^", 152, 48, 105, 21)
$Start = GUICtrlCreateButton("Start (F10)", 24, 40, 105, 33, $WS_GROUP)
$Exit = GUICtrlCreateButton("Beenden (F9)", 24, 120, 107, 33, $WS_GROUP)
$Stop = GUICtrlCreateButton("Stop (F11)", 24, 80, 107, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Tasten", 16, 24, 129, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$timeinms = GUICtrlCreateInput("100", 152, 128, 105, 21)
$Pick = GUICtrlCreateLabel("PickUp Taste:", 152, 24, 72, 17)
$Time = GUICtrlCreateLabel("Zeit zwischen den Picks", 152, 104, 119, 17)
$Info = GUICtrlCreateButton("Info", 200, 176, 73, 17, $WS_GROUP)
$hi = GUICtrlCreateButton("Info", 70, 176, 73, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
GUICreate("BildTest", 507, 397, 192, 124)
;erstellt ein GUI indem man das Bild sehen soll
$Button1 = GUICtrlCreateButton("Elitepvpers", 507, 397, 192, 124)
;Erstellt einen Button
GUICtrlSetBkColor(-1, 0x008080)
;Farbe des Buttons
GUICtrlSetCursor (-1, 0)
;Finger als Cursor
GUICtrlCreatePic(@ScriptDir & "\yang.jpg", 0, 0, 505, 393, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICtrlCreatePic ist der GUIbefehl für ein Bild. Mit @ScriptDir drückst du aus, dass das Bild in dem Ordner ist indem auch der Script bzw. nachher die .exe ist.
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F10}", "_Start")
HotKeySet("{F11}", "_Stop")
HotKeySet("{F9}", "_Beenden")
Func _Beenden()
Exit
EndFunc ;==>_Beenden
Func _Stop()
While 1
Sleep(60000)
WEnd
EndFunc ;==>_Stop
Func _Start()
Sleep(1500)
While 1
$PickUp = GUICtrlRead($taste)
Send($PickUp)
$Time = GUICtrlRead($timeinms)
Sleep($Time)
WEnd
EndFunc ;==>_Start
Func 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
_Start ()
Case $Stop
_Stop ()
Case $Exit
_Beenden ()
Case $Info
_Info ()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("http://www.elitepvpers.com")
EndSwitch
WEnd
P.S. bin neu mit programmiere