Hilfe :D

Scopy™ · 02/07/2011, 19:52

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

Jonas_93 · 02/07/2011, 19:55

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

Scopy™ · 02/07/2011, 20:14

Danke

omer36 · 02/07/2011, 20:27

denk jetz nicht mal dran, den hier zu releasen!