_IELinkClickByText until "Link-Text" not found

Smomo

Hallo zusammen,

ich bin ziemlich unerfahren was AutoIt betrifft.

Bis dato bin ich aber relativ gut klar gekommen.

Es soll auf einer Webpage Seitenzahlen durchgeklickt werden.

Aktuell klickt er wie unten im Code zu sehen alle Seiten durch bis Seite 20.

Tritt der Fall ein, dass es z.B. nur 7 Seiten gibt, läuft er aber weiter bis Seite 20. (klickt ins Leere - es passiert nichts, außer dass Zeit flöten geht.)

Hier möchte ich, dass er wenn möglich nach Seite 7 aufhört.

Code

for $j = 1 To 20

_IELoadWait ($IE)

_IELinkClickByText($IE, $j)

_IELoadWait ($IE)

Danke vorab!

MfG

Smomo

**Musashi**

Zitat von Smomo

Aktuell klickt er wie unten im Code zu sehen alle Seiten durch bis Seite 20.

Na ja, viel zu sehen ist in dem Code nicht gerade.

Die Funktion _IELinkClickByText setzt @error, z.B. wenn keine Übereinstimmung gefunden wurde -> siehe Hilfe. In diesem Fall kannst Du die For..Next Schleife mit ExitLoop abbrechen.

Gruß Musashi

Smomo

Erst mal Danke für deine sehr schnelle antwort :).

Code

GUICtrlSetState($Starten, $GUI_DISABLE)
For $i = 0 To UBound($mm) - 1  
Local $hAk = $mm[$i][0] 
Local $sSuche= GUICtrlRead($hAk, 1) 
Local $sAktuelleWebseite = $acb[$i][1]
Local $sSuchString = $mm[$i][2]
If BitAND(GUICtrlRead($sSuche), $GUI_CHECKED) Then _Log($sSuche & " überprüfen...")
Local $bGefunden = False
for $j = 1 To 20
_IELinkClickByText($IE, $j)
If StringInStr(_IEBodyReadText($IE), $mm[$i][2]) Then_Log($sSuche & " """ & $sSuchString & """ gefunden! Seite: " & $j)
$bGefunden = True
ExitLoop
EndIf
Sleep(3)
Next
If Not $bGefunden Then _Log($sSuche & " """ & $sSuchString & """ nicht gefunden!")
Else_Log($sSuche & " nicht überprüft.")
EndIfSleep(150)
Next

Alles anzeigen

das funktioniert, allerdings erst nach dem er den String gefunden hat.

Solange er noch danach sucht & die Homepage keine weiteren seiten "Anklickbare nummern" mehr hat versucht er trozdem weiter & genau das möchte ich unterbinden darauf "zuklicken".

jetzt bitte nach unten sehen, meist du so?

Er bringt leider im Autoit Scrit schon von seite 1 den error, aber er tut was er soll.

Code

for $j = 1 To 20
if @error Then
exitloop
endif
Sleep(150)
_IELoadWait ($IE)
_IELinkClickByText($IE, $j)

So macht das script leider garnichts mehr. Hätten Sie noch eine Idee?

**alpines**

Zitat von Smomo

Hätten Sie noch eine Idee?

Ja, du zeigst uns den ganzen Code und die Webseite auf der dieser arbeiten soll und was sowie warum das Skript anstellen soll.

Viele User sehen den Wald vor lauter Bäumen nicht, vielleicht kannst du komplett auf die IE.au3 verzichten.

**Musashi**

Zitat von Smomo

So macht das script leider gar nichts mehr.

@error muss in der Schleife, direkt nach dem Funktionsaufruf (_IELinkClickByText($IE, $j) ) abgefragt werden :

Code

For $j = 1 To 20
    [...]

    _IELinkClickByText($IE, $j)
    If @error Then ExitLoop

    [...]
Next

[...]

Gruß Musashi

Smomo

alpines

wie ist das genau gemeint?

Als wir das Projekt gestartet haben wurden mehrere Browser getestet, leider war es lediglich mit IE.au3 umsetzbar. (vllt lag es nur an mangelndem skill )

Das Script ist auch ziemlich groß...deshalb würde ich es gerne vermeiden dieses umzuschreiben.

Musashi

Danke, "If @error Then ExitLoop" hat an der von dir genannten Stelle funktioniert!

Allerdings spuckt er mir in Scite IMMER einen Error aus.

Weshalb er nur Seite 1 anklickt und dann aufhört

Ohne "If @error Then ExitLoop" klickt er alle Seiten durch und tut was er soll (wie angegeben bis Seite 20) spuckt aber trotzdem bei jeder angeklickten Seite folgenden Error aus:

--> IE.au3 T3.0-2 Warning from function _IELinkClickByText, $_IESTATUS_NoMatch

Demnach bricht er den Loop sofort ab.

**alpines**

Zitat von Smomo

wie ist das genau gemeint?

Genau so wie ich es gesagt habe.

Zitat von alpines

zeigst uns den ganzen Code [der für die Seite zuständig ist]

Zitat von alpines

die Webseite auf der dieser arbeiten soll

Zitat von alpines

was sowie warum das Skript anstellen soll

Welche Arbeit soll dir das Skript am Ende abnehmen bzw. welchen Vorteil hast du davon? Erzähl uns das doch, vielleicht geht das ganze ohne Browser.

**Musashi**

@error bei _IELinkClickByText kann verschiedene Werte zurückgeben !

(Auszug aus der Hilfe) :

1 ($_IEStatus_GeneralError) - Allgemeiner Fehler

2 ($_IEStatus_COMError) - COM Error in Objektreferenz

3 ($_IEStatus_InvalidDataType) - Ungültiger Datentyp

4 ($_IEStatus_InvalidObjectType) - Ungültiger Objekttyp

6 ($_IEStatus_LoadWaitTimeout) - Ladezeit überschritten

7 ($_IEStatus_NoMatch) - Keine Übereinstimmung gefunden

8 ($_IEStatus_AccessIsDenied) - Zugriff verweigert

9 ($_IEStatus_ClientDisconnected) - Verbindung abgebrochen

Gebe den Wert mit ConsoleWrite in der SciTE-Konsole (unteres Fenster im Editor) aus :

Code

Local $iError
For $j = 1 To 20
    [...]

    _IELinkClickByText($IE, $j)
    $iError = @error
    ConsoleWrite("$j = " & $j & "    Error = " & $iError & @CRLF)

    [...]
Next
[...]

Alles anzeigen

(Ergebnis bitte posten)

Ansonsten sehe ich es so wie alpines !

Erzeuge ein lauffähiges Minimalskript, welches von uns nachvollzogen werden kann.

Gruß Musashi

kra88

eine andere Möglichkeit wäre im Quellcode die (Max) Seitenanzahl auszulesen und die Schleife entsprechen der Seite anpassen.

Code

   $sHTML = _IEBodyReadText($IE) ; Quellcode der Seite auslesen
    $aPages = StringRegExp($sHTML, 'importId=\d+&page=([^"]+)', 3) ; suchabfrage nach Seiten
    If IsArray($aPages) Then
        $iMax = _ArrayMax($aPages) ; ermittel die höchste Seite
        For $iPage = 1 To $iMax
             _IELinkClickByText($IE, $iPage)
        next
    endif