_IE problem

1. offizieller Beitrag

    hallo
    ich habe folgenden link

    Code
    <td><a href="bla,bla,bla " >Link name</a></td>


    wie kann ich jetzt einen klick dadrauf simuliren
    dann das ding hat ja keine id oder ?
    pls help

    edit: aso hab vergessen, dass das Ganze in einem Fame ist also das ist ein Ausschnit aus dem Fame Quellentext

    Also erstmal musst du mit _IEFrameGetObjByName den Frame auswählen.
    Dann kannst du mit diesem Handle weiter verfahren und den Link z.b. mit _IELinkClickByText anklicken lassen. ;)

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D

    jetzt werden warscheinlich wieder alle rummeckern weils sich um ein game handelt
    und zwar die stämme
    also ich hab vor einen stämme manager zu machen
    der geht auch schon so weit
    nur es gibt ein probem wenn man gebäude ausbauen will
    eben der mit dem link
    wenn ich ieNavigate machene sagt stämme dass es ein fehler gibt
    und wenn ich IELinkKlick nehme kann ich nicht das 2 gebäude ausbeuen wennn zwie gebäude die gleiche stufe haben
    weil er bei name immer den 1 nimmt
    und bei index der wert sich immer ändert

    also mein bisheriger script:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    Logout ==> "http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=&action=logout&h="&$ampCode

    [/autoit] [autoit][/autoit] [autoit]

    Hauptgebäude ==> "http://de"&$server&".die-staemme.de/staemme.php?village="&$villageID&"&screen=main"
    Gebäude bauen ==> "http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=main&action=build&id="&$gebaude&"&h="&$ampCode

    [/autoit] [autoit][/autoit] [autoit]

    Kaserne ==> "http://de"&$server&".die-staemme.de/staemme.php?village="&$villageID&"&screen=barracks"
    Kaserne ==> "javascript:insertUnit(gid('"&$tech&"'),%20"&$RekutAnzahl&")"
    Kaserne Rekutieren ==> "http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=barracks&action=train&h=5699"
    Schmiede Entwickenl ==> "http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=smith&action=research&id="&$tech&"&h="&$ampCode
    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup()
    Global Const $gebaude[16][2]= [["main","Hauptgebäude"],["barracks","Kaserne"],["stable","Stall"], _
    ["garage","Werkstatt"],["snob","Adelshof"],["smith","Schmiede"],["place","Versammlungsplatz"], _
    ["statue","Statue"],["market","Marktplatz"],["wood","Holzfäller"],["stone","Lehmgrube"], _
    ["iron","Eisenmine"],["farm","Bauernhof"],["storage","Speicher"],["hide","Versteck"],["wall","Wall"]]
    Global Const $tech[10]= ["spear","sword","axe","archer","spy","light","marcher","heavy","ram","catapult"]
    Global $RekutAnzahl[12], $AusbauSchleife[5][4], $Ausbau[16][2], $oIE, $WaitGUI, $server, $Res[5]
    Global $Eingelogt = 0, $villageID, $ampCode, $oIE
    Global $hImageHolz = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\Stämme\holz.png")
    Global $hImageLehm = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\Stämme\lehm.png")
    Global $hImageEisen = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\Stämme\eisen.png")
    Global $hImageRes = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\Stämme\res.png")
    Global $hImageFace = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\Stämme\face.png")

    [/autoit] [autoit][/autoit] [autoit]

    $mainGUI = GUICreate("Stämme Manager", 627, 507)
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($mainGUI)
    GUICtrlCreateLabel("ID:", 24, 16, 18, 17)
    $iID = GUICtrlCreateInput("", 24, 32, 145, 21)
    GUICtrlCreateLabel("PW:", 184, 16, 25, 17)
    $iPW = GUICtrlCreateInput("", 184, 32, 145, 21,$ES_PASSWORD)
    GUICtrlCreateLabel("Server:", 352, 16, 38, 17)
    $iServer = GUICtrlCreateInput("", 352, 32, 49, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
    $iDauerLogin = GUICtrlCreateCheckbox("Bereits Eingelogt (Dauerhaftes Login)", 408, 24, 113, 33, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_MULTILINE,$WS_TABSTOP))
    ;~ GUICtrlSetState(-1,$GUI_CHECKED)
    $Login = GUICtrlCreateButton("Login", 528, 24, 75, 33)
    $Res[0] = GUICtrlCreateLabel("0", 40, 178, 34, 17)
    $Res[1] = GUICtrlCreateLabel("0", 95, 178, 34, 17)
    $Res[2] = GUICtrlCreateLabel("0", 150, 178, 34, 17)
    $Res[3] = GUICtrlCreateLabel("0", 205, 178, 34, 17)
    $Res[4] = GUICtrlCreateLabel("0/0", 257, 178, 57, 17)
    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup("Gebäude:", 16, 208, 289, 289)
    $Ausbau[0][0] = GUICtrlCreateLabel("Hauptgebäde", 25, 230, 200, 17)
    $Ausbau[0][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 229, 91, 17)
    $Ausbau[1][0] = GUICtrlCreateLabel("Kaserne", 24, 248, 200, 17)
    $Ausbau[1][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 248, 91, 17)
    $Ausbau[2][0] = GUICtrlCreateLabel("Stall", 24, 264, 200, 17)
    $Ausbau[2][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 264, 91, 17)
    $Ausbau[3][0] = GUICtrlCreateLabel("Werkstatt", 24, 280, 200, 17)
    $Ausbau[3][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 280, 91, 17)
    $Ausbau[4][0] = GUICtrlCreateLabel("Adelshof", 24, 296, 200, 17)
    $Ausbau[4][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 296, 91, 17)
    $Ausbau[5][0] = GUICtrlCreateLabel("Schmiede", 24, 312, 200, 17)
    $Ausbau[5][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 312, 91, 17)
    $Ausbau[6][0] = GUICtrlCreateLabel("Versammlungsplatz", 24, 328, 200, 17)
    $Ausbau[6][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 328, 91, 17)
    $Ausbau[7][0] = GUICtrlCreateLabel("Statue", 24, 344, 200, 17)
    $Ausbau[7][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 344, 91, 17)
    $Ausbau[8][0] = GUICtrlCreateLabel("Markt", 24, 360, 200, 17)
    $Ausbau[8][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 360, 91, 17)
    $Ausbau[9][0] = GUICtrlCreateLabel("Holzfäller", 24, 376, 200, 17)
    $Ausbau[9][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 376, 91, 17)
    $Ausbau[10][0] = GUICtrlCreateLabel("Lehmgrube", 24, 392, 200, 17)
    $Ausbau[10][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 392, 91, 17)
    $Ausbau[11][0] = GUICtrlCreateLabel("Eisenmine", 24, 408, 200, 17)
    $Ausbau[11][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 408, 91, 17)
    $Ausbau[12][0] = GUICtrlCreateLabel("Bauernhof", 24, 424, 200, 17)
    $Ausbau[12][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 424, 91, 17)
    $Ausbau[13][0] = GUICtrlCreateLabel("Speicher", 24, 440, 200, 17)
    $Ausbau[13][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 440, 91, 17)
    $Ausbau[14][0] = GUICtrlCreateLabel("Versteck", 24, 456, 200, 17)
    $Ausbau[14][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 456, 91, 17)
    $Ausbau[15][0] = GUICtrlCreateLabel("Wall", 24, 472, 200, 17)
    $Ausbau[15][1] = GUICtrlCreateButton("Bauen/Ausbauen", 172, 472, 91, 17)
    For $i=0 To 15
    GUICtrlSetState($Ausbau[$i][1],$GUI_DISABLE)
    Next
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup("Rekutieren / Entwickeln:", 320, 168, 273, 329)
    GUICtrlCreateLabel("Speerträger", 328, 192, 59, 17)
    $RekutAnzahl[0] = GUICtrlCreateInput("", 440, 192, 57, 21)
    $Erforschen0 = GUICtrlCreateButton("Erforschen", 512, 192, 67, 17)
    GUICtrlCreateLabel("Schwertkämpfer", 328, 216, 81, 17)
    $RekutAnzahl[1] = GUICtrlCreateInput("", 440, 216, 57, 21)
    $Erforschen1 = GUICtrlCreateButton("Erforschen", 512, 216, 67, 17)
    GUICtrlCreateLabel("Axtkämpfer", 328, 240, 57, 17)
    $RekutAnzahl[2] = GUICtrlCreateInput("", 440, 240, 57, 21)
    $Erforschen2 = GUICtrlCreateButton("Erforschen", 512, 240, 67, 17)
    GUICtrlCreateLabel("Bogenschütze", 328, 264, 72, 17)
    $RekutAnzahl[3] = GUICtrlCreateInput("", 440, 264, 57, 21)
    $Erforschen3 = GUICtrlCreateButton("Erforschen", 512, 264, 67, 17)
    GUICtrlCreateLabel("Späher", 328, 288, 38, 17)
    $RekutAnzahl[4] = GUICtrlCreateInput("", 440, 288, 57, 21)
    $Erforschen4 = GUICtrlCreateButton("Erforschen", 512, 288, 67, 17)
    GUICtrlCreateLabel("Leichter Kaval.", 328, 312, 75, 17)
    $RekutAnzahl[5] = GUICtrlCreateInput("", 440, 312, 57, 21)
    $Erforschen5 = GUICtrlCreateButton("Erforschen", 512, 312, 67, 17)
    GUICtrlCreateLabel("Berit. Bogenschütze", 328, 336, 99, 17)
    $RekutAnzahl[6] = GUICtrlCreateInput("", 440, 336, 57, 21)
    $Erforschen6 = GUICtrlCreateButton("Erforschen", 512, 336, 67, 17)
    GUICtrlCreateLabel("Schwere Kaval.", 328, 360, 79, 17)
    $RekutAnzahl[7] = GUICtrlCreateInput("", 440, 360, 57, 21)
    $Erforschen7 = GUICtrlCreateButton("Erforschen", 512, 360, 67, 17)
    GUICtrlCreateLabel("Rammbck", 328, 384, 52, 17)
    $RekutAnzahl[8] = GUICtrlCreateInput("", 440, 384, 57, 21)
    $Erforschen8 = GUICtrlCreateButton("Erforschen", 512, 384, 67, 17)
    GUICtrlCreateLabel("Katapult", 328, 408, 43, 17)
    $RekutAnzahl[9] = GUICtrlCreateInput("", 440, 408, 57, 21)
    $Erforschen9 = GUICtrlCreateButton("Erforschen", 512, 408, 67, 17)
    GUICtrlCreateLabel("Paladin", 328, 432, 39, 17)
    $RekutAnzahl[10] = GUICtrlCreateInput("", 440, 432, 57, 21)
    GUICtrlCreateLabel("Adelsgeschlecht", 328, 456, 82, 17)
    $RekutAnzahl[11] = GUICtrlCreateInput("", 440, 456, 57, 21)
    $Rekutieren = GUICtrlCreateButton("Alle Rekutieren", 440, 475, 139, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup("Bauschleife", 16, 64, 289, 97)
    $AusbauSchleife[0][0] = GUICtrlCreateLabel("", 28, 83, 200, 17)
    $AusbauSchleife[0][1] = GUICtrlCreateLabel("", 130, 83, 40, 17)
    $AusbauSchleife[0][2] = GUICtrlCreateLabel("", 172, 83, 94, 17)
    $AusbauSchleife[0][3] = GUICtrlCreateButton("Abr.", 268, 80, 31, 17)
    GUICtrlSetState(-1,$GUI_HIDE)
    $AusbauSchleife[1][0] = GUICtrlCreateLabel("", 28, 105, 200, 17)
    $AusbauSchleife[1][1] = GUICtrlCreateLabel("", 130, 105, 40, 17)
    $AusbauSchleife[1][2] = GUICtrlCreateLabel("", 172, 105, 94, 17)
    $AusbauSchleife[1][3] = GUICtrlCreateButton("Abr.", 268, 104, 31, 17)
    GUICtrlSetState(-1,$GUI_HIDE)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup("Laufende Ausbildungen und Entwicklungen", 320, 64, 273, 97)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Login
    $server=GUICtrlRead($iServer)
    Login(GUICtrlRead($iID),GUICtrlRead($iPW),$server,GUICtrlRead($iDauerLogin))
    EndSwitch
    For $i = 0 To 15
    If $nMsg=$Ausbau[$i][1] Then Ausbauen($i)
    Next
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func Ausbauen ($gebaudeNummer)
    _IENavigate($oIE,"http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=main&action=build&id="&$gebaude[$gebaudeNummer][0]&"&h="&$ampCode)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Login($ID,$PW,$Server,$DauerLogin)
    Local $Lables
    Wait(1)
    If $Eingelogt = 0 Then
    GUICtrlSetState($iID,$GUI_DISABLE)
    GUICtrlSetState($iPW,$GUI_DISABLE)
    GUICtrlSetState($iServer,$GUI_DISABLE)
    GUICtrlSetState($iDauerLogin,$GUI_DISABLE)
    GUICtrlSetData($Login,"Logout")
    $oIE = _IECreate ("http://www.die-staemme.de/",0,1)
    If $DauerLogin = $GUI_CHECKED Then
    _IEFormImageClick ($oIE, "server_de"&$server, "name")
    _IELoadWait($oIE)
    Else
    $oDiv = _IEGetObjById ($oIE, "user")
    _IEFormElementSetValue($oDiv,$ID)
    $oDiv = _IEGetObjById ($oIE, "password")
    _IEFormElementSetValue($oDiv,$PW)
    $oDiv = _IEGetObjById ($oIE, "server_select")
    _IEFormElementOptionSelect ($oDiv, "Welt "&$server, 1, "byText")
    $oDiv = _IEGetObjById ($oIE, "login-btn-input")
    _IEAction ($oDiv, "click")
    _IELoadWait($oIE)
    EndIf
    $Lables=GetAccStats()
    For $i=0 To 4
    GUICtrlSetData($Res[$i],$Lables[$i])
    Next
    For $i=5 To 20
    GUICtrlSetData($Ausbau[$i-5][0],GUICtrlRead($Ausbau[$i-5][0])&" "&$Lables[$i])
    Next
    GUICtrlSetData($AusbauSchleife[0][0],$Lables[21])
    GUICtrlSetData($AusbauSchleife[0][1],$Lables[22])
    GUICtrlSetData($AusbauSchleife[0][2],$Lables[23])
    GUICtrlSetState($AusbauSchleife[0][3],$Lables[24])
    GUICtrlSetData($AusbauSchleife[1][0],$Lables[25])
    GUICtrlSetData($AusbauSchleife[1][1],$Lables[26])
    GUICtrlSetData($AusbauSchleife[1][2],$Lables[27])
    GUICtrlSetState($AusbauSchleife[1][3],$Lables[28])
    For $i=0 To 15
    If $Lables[$i+29]="Ja" Then GUICtrlSetState($Ausbau[$i][1],$GUI_ENABLE)
    Next
    _ArrayDisplay($Lables)
    $Eingelogt = 1
    Else
    _IENavigate($oIE,"http://de"&$server&".die-staemme.de/game.php?village="&$villageID&"&screen=&action=logout&h="&$ampCode)
    _IEQuit($oIE)
    For $i=0 To 4
    GUICtrlSetData($Res[$i],"0")
    Next
    For $i=0 To 15
    GUICtrlSetData($Ausbau[$i][0],$gebaude[$i][1])
    Next
    GUICtrlSetData($AusbauSchleife[0][0],"")
    GUICtrlSetData($AusbauSchleife[0][1],"")
    GUICtrlSetData($AusbauSchleife[0][2],"")
    GUICtrlSetState($AusbauSchleife[0][3],$GUI_HIDE)
    GUICtrlSetData($AusbauSchleife[1][0],"")
    GUICtrlSetData($AusbauSchleife[1][1],"")
    GUICtrlSetData($AusbauSchleife[1][2],"")
    GUICtrlSetState($AusbauSchleife[1][3],$GUI_HIDE)
    For $i=0 To 15
    GUICtrlSetState($Ausbau[$i][1],$GUI_DISABLE)
    Next
    GUICtrlSetState($iID,$GUI_ENABLE)
    GUICtrlSetState($iPW,$GUI_ENABLE)
    GUICtrlSetState($iServer,$GUI_ENABLE)
    GUICtrlSetState($iDauerLogin,$GUI_ENABLE)
    GUICtrlSetData($Login,"Login")
    $Eingelogt = 0
    EndIf
    Wait(0)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func GetAccStats()
    Local $Output[99]
    $oFrame = _IEFrameGetCollection ($oIE, 0)
    $htmlcode=_IEPropertyGet ($oFrame, "outerhtml")
    $a=StringSplit($htmlcode,'<TD><A href="/game.php?village=',1)
    $b=StringSplit($a[2],'&amp;screen=&amp;action=logout&amp;',1)
    $villageID=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD><A href="/game.php?village=95510&amp;screen=&amp;action=logout&amp;h=',1)
    $b=StringSplit($a[2],'" target=_top>Ausloggen</A></TD>',1)
    $ampCode=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD><SPAN id=wood title=214>',1)
    $b=StringSplit($a[2],'</SPAN>&nbsp;</TD>',1)
    $Output[0]=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD><SPAN id=stone title=184>',1)
    $b=StringSplit($a[2],'</SPAN>&nbsp;</TD>',1)
    $Output[1]=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD><SPAN id=iron title=158>',1)
    $b=StringSplit($a[2],'</SPAN>&nbsp;</TD>',1)
    $Output[2]=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD id=storage>',1)
    $b=StringSplit($a[2],' </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>',1)
    $Output[3]=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TD style="PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px" align=middle>',1)
    $b=StringSplit($a[2],'</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>',1)
    $Output[4]=$b[1]

    [/autoit] [autoit][/autoit] [autoit]

    _IENavigate($oIE,"http://de"&$server&".die-staemme.de/staemme.php?village="&$villageID&"&screen=main")
    $oFrame = _IEFrameGetCollection ($oIE, 0)
    $htmlcode=_IEPropertyGet ($oFrame, "outerhtml")
    For $i=0 To 15
    $a=StringSplit($htmlcode,$gebaude[$i][1]&'</A> <SPAN class=nowrap>',1)
    If UBound($a)>=3 Then
    $b=StringSplit($a[2], '</SPAN></TD>',1)
    $Output[$i+5]=$b[1]
    Else
    $Output[$i+5]="(Nicht Gebaut)"
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    $a=StringSplit($htmlcode,'<TR class=lit>',1)
    If UBound($a)>=3 Then
    $b=StringSplit($a[2],'</TD>',1)
    $c=StringTrimLeft($b[1],6)
    $Output[21]=$c
    $Output[24]=$GUI_SHOW
    Else
    $Output[21]=""
    $Output[24]=$GUI_HIDE
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If UBound($a)>=3 Then
    $a=StringSplit($a[2],'<TD><SPAN class=timer>',1)
    If UBound($a)>=3 Then
    $b=StringSplit($a[2],'</SPAN></TD>',1)
    $Output[22]=$b[1]
    $a=StringSplit($b[2],'<TD>',1)
    If UBound($a)>=3 Then
    $b=StringSplit($a[2],'</TD>',1)
    $Output[23]=$b[1]
    Else
    $Output[23]=""
    EndIf
    Else
    $Output[22]=""
    $Output[23]=""
    EndIf
    Else
    $Output[22]=""
    $Output[23]=""
    EndIf
    ;~ $a=StringSplit($a[2],'<TR>',1)
    ;~ If UBound($a)>=3 Then
    ;~ $b=StringSplit($a[2],'</TD>',1)
    ;~ $c=StringTrimLeft($b[1],6)
    ;~ $Output[25]=$c
    ;~ $Output[28]=$GUI_SHOW
    ;~ Else
    ;~ $Output[25]=""
    ;~ $Output[28]=$GUI_HIDE
    ;~ EndIf
    For $i=0 To 15
    $a=StringSplit($htmlcode,'&amp;screen=main&amp;action=build&amp;id='&$gebaude[$i][0]&'&amp;',1)
    If UBound($a)>=3 Then
    $b=StringSplit($a[2],'</A></TD></TR>',1)
    $c=StringSplit($b[1],'">',1)
    $d=StringTrimRight($c[2],2)
    If $d="Ausbau auf Stufe" Or $d="Bau" Then
    $Output[$i+29]="Ja"
    Else
    $Output[$i+29]="Nein"
    EndIf
    Else
    $Output[$i+29]="Nein"
    EndIf
    Next
    Return $Output
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Wait($AnAus)
    If $AnAus=1 Then
    $WaitGUI= GUICreate("", 305, 86, -1, -1,$WS_POPUPWINDOW,-1,$mainGUI)
    GUISetBkColor(0xFFFFFF)
    GUICtrlCreateLabel("Pls wait ...", 96, 24, 118, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    Else
    GUIDelete($WaitGUI)
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
    _WinAPI_RedrawWindow($mainGUI, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImageHolz, 20, 176)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImageLehm, 75, 176)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImageEisen, 130, 176)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImageRes, 185, 176)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImageFace, 240, 176)
    _WinAPI_RedrawWindow($mainGUI, 0, 0, $RDW_VALIDATE)
    Return $GUI_RUNDEFMSG
    EndFunc ;==>MY_WM_PAINT

    [/autoit]

    *kopf --> tisch*
    Fällt euch denn nix gescheides ein? Gäbe doch so viele tolle Möglichkeiten mit AutoIt
    Überlege dir warum die Programmierer von Stämme so etwas gemacht haben... Richtig damit die Leute keine Bots verwenden können bzw. ihnen die Verwendung von Bots so schwer wie möglich gemacht wird :!:

    Sry aber hier hört mein Support auf...

    MFG FireFlyer

    *Paradox ist, wenn man sich im Handumdrehen den Fuss bricht* :D