Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 15:16

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



leftklick until brauche Hilfe

Discussion on leftklick until brauche Hilfe within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2012
Posts: 91
Received Thanks: 2
leftklick until brauche Hilfe

Hallo Leute,

Habe erst kürzlich angefangen Autoit zu benutzen und bin nun ein wenig auf den geschmack gekommen .. Wollte mir nun einen einfachen Bot schreiben:

HotKeySet("{F6}","_Exit")


While 1
$Variable = PixelSearch(1529,309,242,582,0x000F3B)
If IsArray($Variable) = True Then
MouseMove($Variable [0], $Variable [1],1)
MouseClick("right")
sleep(500)
send("^!a")
EndIf
WEnd
Func _Exit()
Exit
EndFunc

Also er Sucht jetzt ja einfach den Pixel und drückt mit rechtsklick drauf und dann drückt er strg. Jetzt wollte ich aber noch etwas hinzufügen damit dieser Bot sozusagen einfach irgendwo auf dem Fenster leftklicks macht bis er diesen Pixel gefunden hat. Und wenn er ihn gefunden hat soll er sofort stoppen, wenn der Pixel dann nicht mehr zu finden ist soll er aber wieder weiterhin einfach irgendwo hin klicken bis er den Pixel wieder findet. Aber irgendwie bekomme ich das nicht ganz hin .. bräuchte ein wenig Hilfe

Danke schon mal im Voraus
masterchief23 is offline  
Old 05/25/2012, 08:44   #2
 
potato.'s Avatar
 
elite*gold: 0
The Black Market: 119/0/0
Join Date: Aug 2010
Posts: 1,204
Received Thanks: 230
$width = 1
$height = 1
$totalwidth = Fensterbreite
$totalheight = Fensterhöhe
While $coords <> $totalwidth & "," & $totalheight
MouseMove($width,$height)
If IsArray($Variable) = True Then
MouseClick("right")
sleep(500)
send("^!a")
Else
$width = $width +1
MouseClick("left")
EndIf
If $width > $totalwidth Then
$width = 1
$height = $height +1
EndIf
$coords = $width &","& $height
WEnd

------------
hab jetzt glaub nicht alles vom code aufgeschrieben, aber so fährt
er auf jeden Fall von oben links bis unten rechts alles ab und klickt
überall links, das PixelSearch or whatever musste noch einbauen,
bin grad übermüdet und steig nicht mehr ganz durch:>
potato. is offline  
Old 05/25/2012, 09:01   #3
 
elite*gold: 0
Join Date: Feb 2012
Posts: 91
Received Thanks: 2
also habe das jetzt eingefügt und die fensterbreite und höhe auch reingeschrieben aber er klickt mir komischerweise immer noch nicht herum :/ .. also das ganze sieht jetzt so aus :

HotKeySet("{F6}","_Exit")


While 1
$Variable = PixelSearch(1529,309,242,582,0x000F3B)
If IsArray($Variable) = True Then
MouseMove($Variable [0], $Variable [1],1)
MouseClick("right")
sleep(500)
send("^!a")
EndIf
WEnd
Func _Exit()
Exit
EndFunc



$width = 1
$height = 1
$totalwidth = 806
$totalheight = 668
While $coords <> $totalwidth & "," & $totalheight
MouseMove($width,$height)
If IsArray($Variable) = True Then
MouseClick("right")
sleep(500)
send("^!a")
Else
$width = $width +1
MouseClick("left")
EndIf
If $width > $totalwidth Then
$width = 1
$height = $height +1
EndIf
$coords = $width &","& $height
WEnd

HotKeySet("{F6}","_Exit")

Oder wie muss ich das ganze zusammensetzen ^^?
Danke dir
masterchief23 is offline  
Old 05/25/2012, 12:00   #4
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Quote:
Originally Posted by masterchief23 View Post
also habe das jetzt eingefügt und die fensterbreite und höhe auch reingeschrieben aber er klickt mir komischerweise immer noch nicht herum :/ .. also das ganze sieht jetzt so aus :

HotKeySet("{F6}","_Exit")


While 1
$Variable = PixelSearch(1529,309,242,582,0x000F3B)
If IsArray($Variable) = True Then
MouseMove($Variable [0], $Variable [1],1)
MouseClick("right")
sleep(500)
send("^!a")
EndIf
WEnd
Func _Exit()
Exit
EndFunc



$width = 1
$height = 1
$totalwidth = 806
$totalheight = 668
While $coords <> $totalwidth & "," & $totalheight
MouseMove($width,$height)
If IsArray($Variable) = True Then
MouseClick("right")
sleep(500)
send("^!a")
Else
$width = $width +1
MouseClick("left")
EndIf
If $width > $totalwidth Then
$width = 1
$height = $height +1
EndIf
$coords = $width &","& $height
WEnd

HotKeySet("{F6}","_Exit")

Oder wie muss ich das ganze zusammensetzen ^^?
Danke dir
zunächst einmal benutzen wir hier code tags:
Code:
<hier dein code>
nun zu deinem zusammen gesetzten tool... überleg mal was genau dort passiert....
Code:
While 1
    [...]
WEnd
immer wenn die expression hinter While, = True ist, springt WEnd wieder zurück zum anfang der schleife. da 1 immer True ist, springt die WEnd funktion von daher immer wieder zum anfang der schleife.

daraus folgt, das kein code hinter dieser schleife jemals erreicht werden kann...

du musst beim scripten immer bedenken, das dein script zeile für zeile abgearbeitet wird. ist eine zeile nicht erreichbar, so kann sie natürlich auch nicht ausgeführt werden, und ist somit überflüssig.
lolkop is offline  
Reply


Similar Threads Similar Threads
[Brauche Hilfe]Brauche Hilfe beim einfügen der neuen Rüstungen
01/04/2013 - Metin2 Private Server - 3 Replies
Brauche Hilfe! Hallo epvp. Ich habe mal ein paar Rüstungen gemoddet und dann wollte ich sie einfügen. Es hat fast alles geklappt und ich war recht "happy", weil sie für den männlichen Krieger einbandfrei funktioniert haben. Dann wollt ich gucken wie das bei den anderen Charaktern aussieht. Ich habe mir die Rüstungen gerufen. Die icons der Rüstungen sind für den Ninja und den Krieger richtig. Bei der Sura und der Schami Rüstung sieht mal aber wieder die icons der Krieger und Ninja rüstung....
[Hilfe] Brauche hilfe beim erstellen eines eigenen server's
10/25/2011 - Last Chaos - 0 Replies
Hallo, Ich bin am verzweifeln weil ich seit geraumer zeit versuche einen privaten server zu erstellen brauche unbedingt hilfe wer denk dass er mir helfen kann kann mich bitte in skype adden ^.^ darkreborn1994
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung Ich habe seit einigen Tagen ein Problem... Microsoft Windows Search Protocol Host funktioniert nicht mehr Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt. Ich weiß nicht was das ist und wie ich es loswerde.



All times are GMT +2. The time now is 15:16.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.