Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Guild Wars > GW Bots
Brauche Hilfe Brauche Hilfe
You last visited: Today at 20:52

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

Advertisement


Advertise with us!

Brauche Hilfe

Discussion on Brauche Hilfe within the GW Bots forum part of the Guild Wars category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 11
Received Thanks: 0
Brauche Hilfe

hey leute
Also ich brauch hilfe, ich bin neu hier und habe erst kürzlich angefangen mit schreiben, hab mich auch informiert hier, hilfe datei, autoit forum usw. aber die antwort auf meine frage hab ich iwie nirgends gefunden. Vlt könnt ihr mir helfen?

Also, mein problem ist folgendes: Wie kann ich mein GUI so mit dem Script verbinden, das wenn der start butten abläuft einfach das gesamte script abläuft? Also mit dem beenden hab ich das geschaft. ich weiss halt nicht wie ich das gesamte laufen lasse??



ps. Rechtschreibefehler sind gewollt und sind ein kleiner Teil meines grossen Planes die Weltherrschaft an mich zu reissen.
lightningh is offline  
Old 01/09/2009, 14:07   #2
 
NBA's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,874
Received Thanks: 213
Code:
Func Bot()
Hier dein Script
Endfunc

While 1
$msg = GuiGetMsg()
Case $button1
         Bot()
wend
NBA is offline  
Old 01/09/2009, 14:16   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 11
Received Thanks: 0
so hab ich s auch schon versuch, dann kommt immer nen error und es heisst das ein anderer func keine endfunc hat?
lightningh is offline  
Old 01/09/2009, 14:19   #4
 
| Moep |'s Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
schau mal hier:
| Moep | is offline  
Old 01/09/2009, 14:20   #5
 
elite*gold: 0
The Black Market: 5/0/0
Join Date: Jan 2008
Posts: 1,098
Received Thanks: 198
Zeig doch mal das Script. Hier kann keiner gut Raten
i4mSoH34Vy is offline  
Old 01/09/2009, 14:30   #6
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 11
Received Thanks: 0
achso sry ganz vergessen^^

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1
Author:

Script Function:
Thermalquellen Bot v.0.1

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\NICOLA\Desktop\Vamp!re$ Bots Thermalquellen Bot v.0.1\Thermalquellen Bot.kxf
$Form1_1 = GUICreate("Form1", 633, 454, 193, 115)
$Button1 = GUICtrlCreateButton("Start", 440, 248, 129, 41, 0)
$Button2 = GUICtrlCreateButton("Ende", 80, 248, 129, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start ()
Case $Button2
_exitit()
EndSwitch
WEnd

HotKeySet("{F8}","_exitit")
Func _exitit()
MsgBox(0,"Programm Beendet","Sie haben Thermalquellen Bot v.0.1 beendet.")
exit 0
EndFunc

Opt("MouseCoordMode",2)
opt("SendKeyDelay", Random(100,200))
sleep(2000)
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
Sleep(7000)
MouseClick("left", 1095, 47)


Global $t = random(450,550)
Global $c = random(200, 600)
Global $xxx = random(1,17)
Global $a = Random(700, 999)
Global $b = Random(10000, 11000)
Global $g = random(1900,2500)
Global $h = random(4000,5000)



Func wayto()
sleep(500)
Send("ö")
Send("{space}")
Sleep(8000)
Send("r")
Sleep(2000)
Send("{d down}")
Sleep(800)
Send("{d up}")
Sleep(8000)
EndFunc

func fight()
send("8" )
sleep($g)
send("7" )
sleep($g+1500)
send("6" )
sleep($g)
Send("4")
sleep($g)
Send("5")
Sleep($b+1000)
Send("4")
Sleep($h)
Send("{w down}")
Sleep(2500)
Send("{w up}")
Send("{e down}")
sleep(3000)
Send("{e up}")
Sleep(5000)
Send("4")
Sleep($g)
Send("1")
Sleep(1000)
Send("2")
Sleep($c)
Send("{w down}")
Sleep(6000)
Send("{w up}")
Send("2")
Send("{q down}")
Sleep($g)
Send("{q up}")
Send("4")
Sleep($g)
Send("2")
Sleep($a)
Send("3")
Sleep($g)
Send("1")
Sleep($a)
Send("2")
Sleep($b)
Send("1")
Sleep($a)
Send("2")
Sleep(20000)
Send("2")
EndFunc


Func loot()

For $i = 1 To 5
send("ö")
sleep($c)
send("{space}")
sleep(2000)
Next

EndFunc

func travel()
sleep($c)
send("{enter}")
sleep($t)
send("/resign")
sleep($t)
send("{enter}")
sleep($h)
MouseClick("left", 641, 540)
sleep(8000+$t)

endfunc

$runs = 0
$runs1 = 2
While True
Select
case $runs <> $runs1
wayto()
fight()
loot()
travel()
$runs = $runs +1
case $runs == $runs1
sell()
$runs = $runs - 10
EndSelect
wend

Func sell()
Send("{a down}")
Sleep(1100)
Send("{a up}")
Send("r")
Sleep(4000)
Send("{d down}")
Sleep(1300)
Send("{d up}")
Sleep(1500)
send("v")
Send("{space}")
Sleep(4000)
MouseClick("left", 155, 51)
Send("{F9}")
MouseClick("left", 95, 443, 2)
MouseClick("left", 43, 87)
MouseClick("left", 142, 447, 2)
MouseClick("left", 90, 87)
MouseClick("left", 189, 444, 2)
MouseClick("left", 140, 89)
MouseClick("left", 95, 443, 2)
MouseClick("left", 186, 84)
MouseClick("left", 142, 447, 2)
MouseClick("left", 230, 88)
MouseClick("left", 189, 444, 2)
MouseClick("left", 43, 147)
MouseClick("left", 95, 443, 2)
MouseClick("left", 92, 144)
MouseClick("left", 142, 447, 2)
MouseClick("left", 140, 143)
MouseClick("left", 189, 444, 2)
MouseClick("left", 184, 148)
MouseClick("left", 95, 443, 2)
MouseClick("left", 232, 144)
MouseClick("left", 142, 447, 2)
MouseClick("left", 42, 204)
MouseClick("left", 189, 444, 2)
MouseClick("left", 90, 206)
MouseClick("left", 95, 443, 2)
MouseClick("left", 145, 206)
MouseClick("left", 142, 447, 2)
MouseClick("left", 185, 204)
MouseClick("left", 189, 444, 2)
MouseClick("left", 232, 204)
MouseClick("left", 95, 443, 2)
MouseClick("left", 44, 266)
MouseClick("left", 142, 447, 2)
MouseClick("left", 90, 271)
MouseClick("left", 189, 444, 2)
MouseClick("left", 136, 267)
MouseClick("left", 95, 443, 2)
MouseClick("left", 186, 268)
MouseClick("left", 142, 447, 2)
MouseClick("left", 231, 270)
Send("{F9}")
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 461, 815)
Sleep($a)
Send("g")
MouseClick("left", 355, 70)
Sleep(5000)
MouseClick("left", 355, 70)
Sleep(5000)
Send("g")
MouseClick("left", 1095, 47)
EndFunc
--------------------------------------------------------------------------------
lightningh is offline  
Old 01/09/2009, 14:38   #7
 
NBA's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,874
Received Thanks: 213
ok,
du schreibst jetzt erstmal 100 mal "Ich werde [.code] und [/code] um meinen Code schreiben" schreiben (das erste code ohne . !)
Werds mir mal ansehen...

edit: Du kannst es auch so schreiben...
Code:
While 1 
If $nmsg = $button then
exitit()
endif
NBA is offline  
Old 01/09/2009, 14:41   #8
 
elite*gold: 0
The Black Market: 5/0/0
Join Date: Jan 2008
Posts: 1,098
Received Thanks: 198
Du hattest die Funktion Start() nicht

Func Start()
$runs = 0
$runs1 = 2
While True
Select
case $runs <> $runs1
wayto()
fight()
loot()
travel()
$runs = $runs +1
case $runs == $runs1
sell()
$runs = $runs - 10
EndSelect
wend
EndFunc
i4mSoH34Vy is offline  
Old 01/09/2009, 14:42   #9
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 11
Received Thanks: 0
=) sry hab nicht gewusst wie.

Code:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1
Author: 

Script Function:
Thermalquellen Bot v.0.1

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\NICOLA\Desktop\Vamp!re$ Bots Thermalquellen Bot v.0.1\Thermalquellen Bot.kxf
$Form1_1 = GUICreate("Form1", 633, 454, 193, 115)
$Button1 = GUICtrlCreateButton("Start", 440, 248, 129, 41, 0)
$Button2 = GUICtrlCreateButton("Ende", 80, 248, 129, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start ()
Case $Button2
_exitit() 
EndSwitch
WEnd

HotKeySet("{F8}","_exitit")
Func _exitit()
MsgBox(0,"Programm Beendet","Sie haben Thermalquellen Bot v.0.1 beendet.")
exit 0
EndFunc

Opt("MouseCoordMode",2)
opt("SendKeyDelay", Random(100,200))
sleep(2000)
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
Sleep(7000)
MouseClick("left", 1095, 47)


Global $t = random(450,550)
Global $c = random(200, 600)
Global $xxx = random(1,17)
Global $a = Random(700, 999)
Global $b = Random(10000, 11000)
Global $g = random(1900,2500)
Global $h = random(4000,5000)



Func wayto()
sleep(500)
Send("ö")
Send("{space}")
Sleep(8000)
Send("r")
Sleep(2000)
Send("{d down}")
Sleep(800)
Send("{d up}")
Sleep(8000)
EndFunc

func fight() 
send("8" ) 
sleep($g) 
send("7" ) 
sleep($g+1500) 
send("6" ) 
sleep($g)
Send("4")
sleep($g)
Send("5")
Sleep($b+1000)
Send("4")
Sleep($h)
Send("{w down}")
Sleep(2500)
Send("{w up}")
Send("{e down}")
sleep(3000)
Send("{e up}")
Sleep(5000)
Send("4")
Sleep($g)
Send("1")
Sleep(1000)
Send("2")
Sleep($c)
Send("{w down}")
Sleep(6000)
Send("{w up}")
Send("2")
Send("{q down}")
Sleep($g)
Send("{q up}")
Send("4")
Sleep($g)
Send("2")
Sleep($a)
Send("3")
Sleep($g)
Send("1")
Sleep($a)
Send("2")
Sleep($b)
Send("1")
Sleep($a)
Send("2")
Sleep(20000)
Send("2")
EndFunc


Func loot()

For $i = 1 To 5
send("ö")
sleep($c)
send("{space}")
sleep(2000)
Next

EndFunc

func travel()
sleep($c)
send("{enter}")
sleep($t)
send("/resign")
sleep($t)
send("{enter}")
sleep($h)
MouseClick("left", 641, 540)
sleep(8000+$t)

endfunc

$runs = 0
$runs1 = 2
While True
Select
case $runs <> $runs1
wayto()
fight()
loot()
travel()
$runs = $runs +1
case $runs == $runs1
sell()
$runs = $runs - 10
EndSelect
wend

Func sell()
Send("{a down}")
Sleep(1100)
Send("{a up}")
Send("r")
Sleep(4000)
Send("{d down}")
Sleep(1300)
Send("{d up}")
Sleep(1500)
send("v")
Send("{space}")
Sleep(4000)
MouseClick("left", 155, 51)
Send("{F9}")
MouseClick("left", 95, 443, 2)
MouseClick("left", 43, 87)
MouseClick("left", 142, 447, 2)
MouseClick("left", 90, 87)
MouseClick("left", 189, 444, 2)
MouseClick("left", 140, 89)
MouseClick("left", 95, 443, 2)
MouseClick("left", 186, 84)
MouseClick("left", 142, 447, 2)
MouseClick("left", 230, 88)
MouseClick("left", 189, 444, 2)
MouseClick("left", 43, 147)
MouseClick("left", 95, 443, 2)
MouseClick("left", 92, 144)
MouseClick("left", 142, 447, 2)
MouseClick("left", 140, 143)
MouseClick("left", 189, 444, 2)
MouseClick("left", 184, 148)
MouseClick("left", 95, 443, 2)
MouseClick("left", 232, 144)
MouseClick("left", 142, 447, 2)
MouseClick("left", 42, 204)
MouseClick("left", 189, 444, 2)
MouseClick("left", 90, 206)
MouseClick("left", 95, 443, 2)
MouseClick("left", 145, 206)
MouseClick("left", 142, 447, 2)
MouseClick("left", 185, 204)
MouseClick("left", 189, 444, 2)
MouseClick("left", 232, 204)
MouseClick("left", 95, 443, 2)
MouseClick("left", 44, 266)
MouseClick("left", 142, 447, 2)
MouseClick("left", 90, 271)
MouseClick("left", 189, 444, 2)
MouseClick("left", 136, 267)
MouseClick("left", 95, 443, 2)
MouseClick("left", 186, 268)
MouseClick("left", 142, 447, 2)
MouseClick("left", 231, 270)
Send("{F9}")
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 342, 816)
Sleep($a)
MouseClick("left", 461, 815)
Sleep($a)
Send("g")
MouseClick("left", 355, 70)
Sleep(5000)
MouseClick("left", 355, 70)
Sleep(5000)
Send("g")
MouseClick("left", 1095, 47)
EndFunc
--------------------------------------------------------------------------------
lightningh is offline  
Old 01/09/2009, 14:49   #10
 
aLasca's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jul 2008
Posts: 614
Received Thanks: 164
V0.1?? fängt es nicht normarlerweise bei 1.0 an??^^
aLasca is offline  
Old 01/09/2009, 16:34   #11
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 11
Received Thanks: 0
irgendwie klappts so auch nicht, jetzt geht garnixmehr wenn ichs so mache:

Code:
Func Start()
 $runs = 0
 $runs1 = 10
   While True
   Select
   case $runs <> $runs1
wayto()
fight()
loot()
travel()
        $runs = $runs +1
    case $runs == $runs1
     sell()
$runs = $runs - 10
EndSelect
wend
EndFunc
lightningh is offline  
Reply

« Countdown in GUI | Frage zu Hintergrundmodus »

Similar Threads Similar Threads
[Sammelthread]Brauche hilfe/Biete hilfe beim p-server erstellen
07/07/2011 - Metin2 Private Server - 14 Replies
Jeder einzelne um hilfe bittet bzw bietet. Dafür muss nicht immer ein extra Thread eröffnet werden ;) -Posted eure fragen -Eure probleme -Oder wenn ihr Hilfe anbietet doch einfach hier hinein
[HILFE]Brauche hilfe beim FreeBSD Rootserver umbekannte Fehlermeldung.
09/09/2010 - Metin2 Private Server - 8 Replies
Hallo comunity. So, ich habe ja letztens schonmal was gefragt wegen dem kernel. Dem den rootserver gehört hat den den hoster eingeschreiben, die haben nun einen reinstall gemacht. So bis jetzt klappt alles, so wie es soll außer....das starten Wenn wir den den server starten möchten, kommt das: http://www.fotos-hochladen.net/uploads/unbenann11 tuptn6kfg.png
[Hilfe] Brauche Hilfe bei meinem Hamachi Server alles Fertig ausser Navicat und co.
08/07/2010 - Metin2 Private Server - 2 Replies
Guten Tag, Also ich habe heute mein Hamachi P-Server erstellt doch habe Paar Fragen. Kann ich nachdem ich Server erstellt habe VPC schließen also da wo Operation timed out steht. Wie kann ich das mit Navicat machen (wäre schön wenn einer alles einzeln beschreiben könnte). Wie funktionert das mit der Datenbank? Und wie erstelle ich Accounts?
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 +1. The time now is 20:54.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, 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 ©2026 elitepvpers All Rights Reserved.