bitte einmal helfen

01/28/2009 21:04 bunney#1
Halli Hallo,
habe das problem, dass ich einen button bei einem gui einer func anfügen will. Nur wenn ich den button drücke tut sich nix-.-

Quote:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot", 341, 152, 193, 125)
$GO = GUICtrlCreateButton("GO", 184, 72, 153, 73, 0)
$Input1 = GUICtrlCreateInput("Hier-Rundenanzahl", 8, 16, 153, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$msg=GuiGetMsg()
If $msg=-1 Then Exit
If $msg=$GO Then button1()
Wend


func button1()
Call("alles")
EndFunc
Bitte einmal helfen. Finde auch keine lösung bei nem anderen script. I-wie alles was ich davon nehme funkt net ...
danke schonmal im vorraus :handsdown::handsdown:
01/28/2009 21:08 aLasca#2
PHP Code:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot", 341, 152, 193, 125)
$GO = GUICtrlCreateButton("GO", 184, 72, 153, 73, 0)
$Input1 = GUICtrlCreateInput("Hier-Rundenanzahl", 8, 16, 153, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Btn1
            _Btn1()
    EndSwitch
WEnd



Func _Btn1()

_alles()

EndFunc 
Bitte niemals Call benutzen.. immer ganz normal aufrufen..Also

PHP Code:
_Func($flag1, $flag2, $bla) 
01/29/2009 21:56 bunney#3
ok also das ganze sieht jetzt so aus aber tut sich trotzdem nix

Quote:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot", 341, 152, 193, 125)
$GO = GUICtrlCreateButton("GO", 184, 72, 153, 73, 0)
$Input1 = GUICtrlCreateInput("Hier-Rundenanzahl", 8, 16, 153, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO
_Btn1()
EndSwitch
WEnd



Func _Btn1()

alles()

EndFunc
01/30/2009 18:59 aLasca#4
PHP Code:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form= 
$Form1 = GUICreate("Bot", 341, 152, 193, 125) 
$GO = GUICtrlCreateButton("GO", 184, 72, 153, 73, 0) 
$Input1 = GUICtrlCreateInput("Hier-Rundenanzahl", 8, 16, 153, 21) 
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 


While 1 
    $nMsg = GUIGetMsg() 
    Switch $nMsg 
        Case $GUI_EVENT_CLOSE 
            Exit 
        Case $Go
            _Go() 
    EndSwitch 
WEnd 



Func _Go() 

MsgBox(0x40, "Test", "Hat geklappt, nu mach nochma THX-Button")

EndFunc 
Das geht..
02/01/2009 19:17 bunney#5
ok danke also an dem gui kanns nicht mehr liegen nur er startet trotzdem nicht^^
02/01/2009 19:19 kknb#6
dann liegt es an deinem restlichen code, der aufruf ist richtig.
02/03/2009 15:17 bunney#7
PHP Code:
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")
#cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.0.0
    Author:        bunney
    
    TT6 MoveTo by tonitusch666
    
    Script Function:
    Thermalquellen farmen (55hp/HM)

#ce ----------------------------------------------------------------------------

#include "tt6.au3"
#include "nomadmemory.au3"

while 1
alles()
WEnd


HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{End}", "_end") ;-Mit "Ende" Beendest du das Script

Func _end()
    Exit
EndFunc   ;==>_end 

Global $Paused


Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("Script is running")
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf
Sleep(2000)
EndFunc

Global $check_map = IniRead("update.ini","SECTION D","CHECK_MAP","NotFound")

Func RS($min, $max)
    $time = Random($min, $max)
    Sleep($time)
EndFunc

Func randomw()
    $wayout = Random(1,6,1)
    If $wayout = 1 Then
        wayout2()
    ElseIf $wayout = 2 Then
        wayout6()
    ElseIf $wayout = 3 Then
        wayout1()
    ElseIf $wayout = 4 Then
        wayout2()
    ElseIf $wayout = 5 Then
        wayout3()
    Else
        wayout4()
    EndIf
EndFunc


Func wayout1()
PrepMoveTo()
MoveTo(1,18445+(Random(-4,4)),-16592+(Random(-4,4)))
MoveTo(1,17816+(Random(-4,4)),-16582+(Random(-4,4)))
MoveTo(1,17198+(Random(-4,4)),-16498+(Random(-4,4)))
MoveTo(1,16926+(Random(-4,4)),-16458+(Random(-4,4)))
MoveTo(1,16465+(Random(-4,4)),-16405+(Random(-4,4)))
MoveTo(1,16197+(Random(-4,4)),-16274+(Random(-4,4)))
MoveTo(1,16034+(Random(-4,4)),-16129+(Random(-4,4)))
MoveTo(1,15818+(Random(-4,4)),-15993+(Random(-4,4)))
MoveTo(1,15636+(Random(-4,4)),-15867+(Random(-4,4)))
MoveTo(1,15532+(Random(-4,4)),-15711+(Random(-4,4)))
MoveTo(1,15542+(Random(-4,4)),-15488+(Random(-4,4)))
MoveTo(1,15538+(Random(-4,4)),-15347+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func wayout2()
PrepMoveTo()
MoveTo(1,18206+(Random(-4,4)),-16426+(Random(-4,4)))
MoveTo(1,17974+(Random(-4,4)),-16279+(Random(-4,4)))
MoveTo(1,17820+(Random(-4,4)),-16115+(Random(-4,4)))
MoveTo(1,17485+(Random(-4,4)),-15956+(Random(-4,4)))
MoveTo(1,17240+(Random(-4,4)),-15940+(Random(-4,4)))
MoveTo(1,17033+(Random(-4,4)),-15963+(Random(-4,4)))
MoveTo(1,16775+(Random(-4,4)),-15966+(Random(-4,4)))
MoveTo(1,16574+(Random(-4,4)),-15884+(Random(-4,4)))
MoveTo(1,16429+(Random(-4,4)),-15846+(Random(-4,4)))
MoveTo(1,16185+(Random(-4,4)),-15857+(Random(-4,4)))
MoveTo(1,15999+(Random(-4,4)),-15844+(Random(-4,4)))
MoveTo(1,15769+(Random(-4,4)),-15773+(Random(-4,4)))
MoveTo(1,15583+(Random(-4,4)),-15704+(Random(-4,4)))
MoveTo(1,15469+(Random(-4,4)),-15540+(Random(-4,4)))
MoveTo(1,15415+(Random(-4,4)),-15413+(Random(-4,4)))
MoveTo(1,15425+(Random(-4,4)),-15256+(Random(-4,4)))
MoveTo(1,15440+(Random(-4,4)),-15063+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func wayout3()
    PrepMoveTo()
MoveTo(1,18474+(Random(-4,4)),-16489+(Random(-4,4)))
MoveTo(1,18276+(Random(-4,4)),-16406+(Random(-4,4)))
MoveTo(1,18047+(Random(-4,4)),-16336+(Random(-4,4)))
MoveTo(1,17798+(Random(-4,4)),-16298+(Random(-4,4)))
MoveTo(1,17535+(Random(-4,4)),-16340+(Random(-4,4)))
MoveTo(1,17327+(Random(-4,4)),-16414+(Random(-4,4)))
MoveTo(1,17090+(Random(-4,4)),-16482+(Random(-4,4)))
MoveTo(1,16829+(Random(-4,4)),-16480+(Random(-4,4)))
MoveTo(1,16530+(Random(-4,4)),-16354+(Random(-4,4)))
MoveTo(1,16297+(Random(-4,4)),-16195+(Random(-4,4)))
MoveTo(1,16139+(Random(-4,4)),-15993+(Random(-4,4)))
MoveTo(1,15997+(Random(-4,4)),-15812+(Random(-4,4)))
MoveTo(1,15845+(Random(-4,4)),-15617+(Random(-4,4)))
MoveTo(1,15656+(Random(-4,4)),-15472+(Random(-4,4)))
MoveTo(1,15511+(Random(-4,4)),-15303+(Random(-4,4)))
MoveTo(1,15457+(Random(-4,4)),-15103+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func wayout4()
PrepMoveTo()
MoveTo(1,18416+(Random(-4,4)),-16468+(Random(-4,4)))
MoveTo(1,18089+(Random(-4,4)),-16284+(Random(-4,4)))
MoveTo(1,17726+(Random(-4,4)),-16160+(Random(-4,4)))
MoveTo(1,17415+(Random(-4,4)),-16153+(Random(-4,4)))
MoveTo(1,17106+(Random(-4,4)),-16314+(Random(-4,4)))
MoveTo(1,16862+(Random(-4,4)),-16410+(Random(-4,4)))
MoveTo(1,16515+(Random(-4,4)),-16375+(Random(-4,4)))
MoveTo(1,16181+(Random(-4,4)),-16181+(Random(-4,4)))
MoveTo(1,15866+(Random(-4,4)),-15857+(Random(-4,4)))
MoveTo(1,15622+(Random(-4,4)),-15578+(Random(-4,4)))
MoveTo(1,15549+(Random(-4,4)),-15395+(Random(-4,4)))
MoveTo(1,15445+(Random(-4,4)),-15267+(Random(-4,4)))
MoveTo(1,15365+(Random(-4,4)),-15190+(Random(-4,4)))
MoveTo(1,15358+(Random(-4,4)),-15081+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func wayout5()
PrepMoveTo()
MoveTo(1,18273+(Random(-4,4)),-16535+(Random(-4,4)))
MoveTo(1,18036+(Random(-4,4)),-16434+(Random(-4,4)))
MoveTo(1,17780+(Random(-4,4)),-16366+(Random(-4,4)))
MoveTo(1,17505+(Random(-4,4)),-16303+(Random(-4,4)))
MoveTo(1,17442+(Random(-4,4)),-16288+(Random(-4,4)))
MoveTo(1,17385+(Random(-4,4)),-16264+(Random(-4,4)))
MoveTo(1,17357+(Random(-4,4)),-16244+(Random(-4,4)))
MoveTo(1,17324+(Random(-4,4)),-16206+(Random(-4,4)))
MoveTo(1,17255+(Random(-4,4)),-16009+(Random(-4,4)))
MoveTo(1,17050+(Random(-4,4)),-15918+(Random(-4,4)))
MoveTo(1,16532+(Random(-4,4)),-15898+(Random(-4,4)))
MoveTo(1,16244+(Random(-4,4)),-15890+(Random(-4,4)))
MoveTo(1,16013+(Random(-4,4)),-15879+(Random(-4,4)))
MoveTo(1,15787+(Random(-4,4)),-15823+(Random(-4,4)))
MoveTo(1,15638+(Random(-4,4)),-15704+(Random(-4,4)))
MoveTo(1,15543+(Random(-4,4)),-15527+(Random(-4,4)))
MoveTo(1,15478+(Random(-4,4)),-15335+(Random(-4,4)))
MoveTo(1,15454+(Random(-4,4)),-15206+(Random(-4,4)))
MoveTo(1,15445+(Random(-4,4)),-15161+(Random(-4,4)))
MoveTo(1,15435+(Random(-4,4)),-15109+(Random(-4,4)))
MoveTo(1,15411+(Random(-4,4)),-14983+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func wayout6()
    PrepMoveTo()
MoveTo(1,18313+(Random(-4,4)),-16573+(Random(-4,4)))
MoveTo(1,18101+(Random(-4,4)),-16457+(Random(-4,4)))
MoveTo(1,17842+(Random(-4,4)),-16395+(Random(-4,4)))
MoveTo(1,17579+(Random(-4,4)),-16495+(Random(-4,4)))
MoveTo(1,17361+(Random(-4,4)),-16579+(Random(-4,4)))
MoveTo(1,17236+(Random(-4,4)),-16625+(Random(-4,4)))
MoveTo(1,17074+(Random(-4,4)),-16672+(Random(-4,4)))
MoveTo(1,16952+(Random(-4,4)),-16697+(Random(-4,4)))
MoveTo(1,16884+(Random(-4,4)),-16703+(Random(-4,4)))
MoveTo(1,16820+(Random(-4,4)),-16705+(Random(-4,4)))
MoveTo(1,16769+(Random(-4,4)),-16705+(Random(-4,4)))
MoveTo(1,16708+(Random(-4,4)),-16701+(Random(-4,4)))
MoveTo(1,16569+(Random(-4,4)),-16685+(Random(-4,4)))
MoveTo(1,16168+(Random(-4,4)),-16514+(Random(-4,4)))
MoveTo(1,15961+(Random(-4,4)),-16347+(Random(-4,4)))
MoveTo(1,15840+(Random(-4,4)),-16102+(Random(-4,4)))
MoveTo(1,15712+(Random(-4,4)),-15844+(Random(-4,4)))
MoveTo(1,15657+(Random(-4,4)),-15639+(Random(-4,4)))
MoveTo(1,15640+(Random(-4,4)),-15410+(Random(-4,4)))
MoveTo(1,15589+(Random(-4,4)),-15227+(Random(-4,4)))
MoveTo(1,15537+(Random(-4,4)),-15096+(Random(-4,4)))
MoveTo(1,15519+(Random(-4,4)),-15016+(Random(-4,4)))
KeepMoveTo()
While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
StopMoveTo()
EndFunc

Func _TQfigth()
    RS(1000,1600)
    Send("8")
    RS(6500, 7000)
    Send("7")
    RS(6500, 7000)
    Send("6")
    RS(6500, 7000)
    Send("5")
    RS(3000, 3500)
    Send("4")
    RS(12000, 13000)
    Send("1")
    RS(700, 800)
    Send("4")
    RS(2500, 2510)
    Send("{w down}")
    RS(3000, 3010)
    Send("{w up}")
    RS(1000, 1010)
    Send("{e down}")
    RS(2000, 2010)
    Send("{e up}")
    RS(500, 510)
    Send("1")
    RS(700, 710)
    Send("2")
    RS(1200, 1300)
    Send("{w down}")
    RS(6700, 6750)
    Send("{w up}")
    RS(90, 100)
    Send("2")
    RS(1000, 1100)
    Send("{q down}")
    RS(2600, 2700)
    Send("{q up}")
    RS(100, 110)
    Send("1")
    RS(600, 700)
    Send("{q down}")
    RS(2600, 2700)
    Send("{q up}")
    RS(200, 400)
    Send("2")
    RS(1500, 1600)
    Send("4")
    RS(2000, 2010)
    Send("1")
    RS(2000, 2010)
    Send("3")
    RS(3000, 3100)
    Send("2")
    RS(3000, 3100)
    Send("1")
    RS(3000, 3100)
    Send("2")
    RS(3000, 3100)
    Send("1")
    RS(1500, 1600)
    Send("4")
    RS(3000, 3100)
    Send("2")
    RS(3000, 3100)
    Send("1")
    RS(3000, 3100)
EndFunc   

Func _afterfight()
    For $ii = 1 To 5
        RS(1100, 1200)
        Send("{o}")
        RS(1100, 1200)
        Send("{SPACE}")
        RS(3200, 3300)
    Next
    Send("1")
    RS(2000, 2010)
    Send("2")
    RS(1400, 1500)
    Send("{NUMPAD8}")
    RS(1100, 1200)
    Send("{SPACE}")
    RS(3500, 3800)
    Send("{ENTER}")
    RS(1150, 1200)
    Send("/giveup", 1)
    RS(1150, 1200)
    Send("{ENTER}")
    RS(3500, 3700)
    MouseClick("left", 519+Random(-20,+20), 415+Random(-2,+2))
    While _memoryread($check_map,$hprocess,'int')<>1
RS(25,50)
WEnd
RS(50,80)
EndFunc


Func kampf()
    RS(3500,4500)
    Randomw()
    _TQfigth()
    _afterfight()
EndFunc

.
.
.Hier wären noch vk funv und so
.

Func alles()
    $runden = 12
    $l=0
    For $l = $runden+Random(-1,+4) to 1 step -1
    RS(10,20)
    kampf()
    Next
    VK()
EndFunc 
so also den weg nach draußen macht er aber draußen angekommen beendet sich das script...was ist falsch???
02/03/2009 15:49 Noisuf-X#8
steht nicht wenn du es als script im script editor ausführst irgentwas da??
weil zu sehen ist bis jetzt nichts
02/03/2009 16:12 bunney#9
nein das ist ja mein problem
ich starte es
es läuft den wayout und dann beendet es sich/tut nix mehr...
02/11/2009 17:08 bunney#10
möp ok hab ihn jetzt zum laufen gebracht alo er macht 12 runs und dann soll er eig VKen aber er fängt die Vk funk net an slo pls help
PHP Code:
Func VK()
    While _memoryread($check_map,$hprocess,'int')<>1
    RS(25,50)
    WEnd
    randomstorage()
    RS(200,800)
    ablegen()
    RS(200,800)
    _gold()
    RS(200,800)
    ident()
    RS(200,800)
    randomVkWay()
    RS(200,800)
    VkHaendler()
    RS(200,800)
EndFunc

$runs=0
while True
    Select
        case $runs < 12
            kampf()
            $runs = $runs +1 
        case Else
            VK()
            $runs = $runs -12
    EndSelect
WEnd 
02/11/2009 18:01 N.E.O.#11
PHP Code:
Func MainFunc()

$i = 0
$maxrounds = 10 ;bsp.

While 1

If $i = $maxrounds Then
Sell()
EndIf

;Main Code +
$i = $i + 1

WEnd
EndFunc ;==> MainFunc


Func _Sell()

While $sell = True

$VK = 25  ;Itemplatzanzahl

;Sell Funktion Code
If $VK = 25 Then $sell = False And MainFunc()

WEnd
EndFunc ;==> _Sell 
Müsste so funzen...
02/11/2009 18:08 bunney#12
PHP Code:
Func VkHaendler()
RS(50,300)
MouseClick("left",580+Random(-10,+10),55+Random(-2,+3))
RS(50,300)
MouseClick("left",780+Random(-10,+10),700+Random(-2,+3))
    For $iii = 1 To 20
        MouseClick("left",780+Random(-10,+10),700+Random(-2,+3))
        RS(800,1200)
    Next
    RS(50,800)
    Send("{ESC}")
EndFunc

Func VK()
    randomstorage()
    RS(200,800)
    ablegen()
    RS(200,800)
    _gold()
    RS(200,800)
    ident()
    RS(200,800)
    randomVkWay()
    RS(200,800)
    VkHaendler()
    RS(200,800)
EndFunc

$runs=0
while True
    Select
        case $runs < 12
            kampf()
            $runs = $runs +1 
        case $runs = 12
            VK()
            $runs = $runs -12
    EndSelect
WEnd 
also deins verstehe ich net ganz^^ bitte erklären^^.

also wenn max anzahl den sell()
und denn 25x VK??
02/11/2009 18:25 N.E.O.#13
Ne, wie oft er überhaupt verkaufen will.

Du musst die Itemplatzanzahl angeben...

Das ist nur dafür da, dass er weiss wann die nächste Func anfängt..
02/11/2009 18:30 bunney#14
hat sich erledigt^^