Hilfe :D

02/07/2011 19:52 Scopy™#1
PHP Code:
#RequireAdmin 

Global $Active = 0, $msg = 0

HotKeySet("{F2}", "_StartBot")
HotKeySet("{F3}", "_PauseBot")
HotKeySet("{F4}", "_EndeBot")

Func _StartBot()
    If $msg = 0 Then MsgBox ("","", "F2 Start" & @CRLF & "F3 Pause" & @CRLF & "F4 Ende" & @CRLF & "© Scopy")
    $Active = 1
    $msg = 1
EndFunc

Func _PauseBot()
    $Active = 0
EndFunc

Func _EndeBot()
    Exit
EndFunc

While 1
    If $Active = 1 Then
        MouseClick("left", 873, 61, 5)
        Sleep(10000)
        MouseClick("left", 873, 61, 5)
        Sleep(10000)
        Send ("wswsws")
        Sleep(10000)
    EndIf
WEnd 
Hätte gerne ; das ne Msgbox am Ende kommt also wenn ich das programm bendet (F4)

Inhalt:
Made by ScopyTM for ElitePvPers
02/07/2011 19:55 Jonas_93#2
Code:
#RequireAdmin 

Global $Active = 0, $msg = 0

HotKeySet("{F2}", "_StartBot")
HotKeySet("{F3}", "_PauseBot")
HotKeySet("{F4}", "_EndeBot")

Func _StartBot()
    If $msg = 0 Then MsgBox ("","", "F2 Start" & @CRLF & "F3 Pause" & @CRLF & "F4 Ende" & @CRLF & "© Scopy")
    $Active = 1
    $msg = 1
EndFunc

Func _PauseBot()
    $Active = 0
EndFunc

Func _EndeBot()
    MSGBOX(0,"","Made by ScopyTM for ElitePvPers")
    Exit
EndFunc

While 1
    If $Active = 1 Then
        MouseClick("left", 873, 61, 5)
        Sleep(10000)
        MouseClick("left", 873, 61, 5)
        Sleep(10000)
        Send ("wswsws")
        Sleep(10000)
    EndIf
WEnd
02/07/2011 20:14 Scopy™#3
Danke :)
02/07/2011 20:27 omer36#4
denk jetz nicht mal dran, den hier zu releasen!