Brauche Hilfe

01/09/2009 14:05 lightningh#1
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.:rolleyes:
01/09/2009 14:07 NBA#2
Code:
Func Bot()
Hier dein Script
Endfunc

While 1
$msg = GuiGetMsg()
Case $button1
         Bot()
wend
01/09/2009 14:16 lightningh#3
so hab ich s auch schon versuch, dann kommt immer nen error und es heisst das ein anderer func keine endfunc hat?
01/09/2009 14:19 | Moep |#4
schau mal hier:

[Only registered and activated users can see links. Click Here To Register...]
01/09/2009 14:20 i4mSoH34Vy#5
Zeig doch mal das Script. Hier kann keiner gut Raten :D
01/09/2009 14:30 lightningh#6
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
--------------------------------------------------------------------------------
01/09/2009 14:38 NBA#7
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
01/09/2009 14:41 i4mSoH34Vy#8
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
01/09/2009 14:42 lightningh#9
=) 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
--------------------------------------------------------------------------------
01/09/2009 14:49 aLasca#10
V0.1?? fängt es nicht normarlerweise bei 1.0 an??^^
01/09/2009 16:34 lightningh#11
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