"KlickBot" Metin2

03/19/2013 13:07 pascal4556#1
Hey leute kenne das Programm erst seit einem Tag ich brauche einfach nur einen Klick bot der :

1. Einen Rechtsklick macht (Kordinaten sind ersmal egal)
2. Einen Linksklick (Kordinaten sind ersmal egal)
3. Bevor er wieder den Rechtsklick macht 60 Sek. warten
4. Immer wiederholen
5.Einen "Button" um es in dem Metin2 Fenster zu starten/stoppen ohne das er das Metin2 Fenster "verlässt/schließt"


Hier ist mein Code "Nooblike" :P


Code:
MouseClick("right" , 1205, 756, 1)
MouseClick("left" , 746, 473, 1)
Sleep(60000)
Muss einfach nur die 5. Sachen erfüllen wäre nett wenn ihr mir den Code kurz schreiben könnten
03/19/2013 13:12 lolkop#2
Quote:
Originally Posted by pascal4556 View Post
Hey leute kenne das Programm erst seit einem Tag ich brauche einfach nur einen Klick bot der :

1. Einen Rechtsklick macht (Kordinaten sind ersmal egal)
2. Einen Linksklick (Kordinaten sind ersmal egal)
3. Bevor er wieder den Rechtsklick macht 60 Sek. warten
4. Immer wiederholen
5.Einen "Button" um es in dem Metin2 Fenster zu starten/stoppen ohne das er das Metin2 Fenster "verlässt/schließt"


Hier ist mein Code "Nooblike" :P


Code:
MouseClick("right" , 1205, 756, 1)
MouseClick("left" , 746, 473, 1)
Sleep(60000)
Muss einfach nur die 5. Sachen erfüllen wäre nett wenn ihr mir den Code kurz schreiben könnten
setze das ganze noch in eine einfache schleife und es läuft endlos... danach noch einen einfachen laufzustand einfügen, welchen du zb per tastendruck ändern kannst, und du erhälst folgendes:
Code:
HotKeySet('{F5}', 'SwitchState')
Dim $run=False
Do
	If $run Then
		MouseClick("right" , 1205, 756, 1)
		MouseClick("left" , 746, 473, 1)
		Sleep(60000)
	EndIf
Until False

Func SwitchState()
	$run = Not $run
EndFunc
03/19/2013 13:23 pascal4556#3
Quote:
Originally Posted by lolkop View Post
setze das ganze noch in eine einfache schleife und es läuft endlos... danach noch einen einfachen laufzustand einfügen, welchen du zb per tastendruck ändern kannst, und du erhälst folgendes:
Code:
HotKeySet('{F5}', 'SwitchState')
Dim $run=False
Do
	If $run Then
		MouseClick("right" , 1205, 756, 1)
		MouseClick("left" , 746, 473, 1)
		Sleep(60000)
	EndIf
Until False

Func SwitchState()
	$run = Not $run
EndFunc
Wow Cool danke für die Schnelle Antwort :)