Per Script Forms auslesen?

  • Ich habe in dem Auto It nen Script gefunden das die Web Forms auslesen soll:

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $name = "info.txt" ;legt den Namen der Datei mit den Ergebnissen fest
    $Url = InputBox("Url Eintragen","Bitte hier die komplette URL eintragen") ;eine Inputbox wo die URL eingetragen wird

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

    if $Url = '' then $Url = "http://wiki.autoit.de" ;wenn man nichts einträgt wird die diese URL genommen

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

    $i = 1
    while 1
    If FileExists($name) then ;schaut ob die Datei vorhanden ist und erzeugt wenn ja eine Neue mit forlaufender Nummerierung

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

    $name = "info" & $i & ".txt"
    $i +=1
    Else
    ExitLoop
    EndIf
    WEnd

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

    FileWriteLine($name,"Forms aus " & $Url) ;schreibt in die Datei
    FileWriteLine($name,"")

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

    TrayTip("info","Bitte warten bis Informationen eingeholt wurden",5)
    $oIE = _IECreate ($Url,0,0) ;ruft ein verstecktes Internetfenster auf

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

    $oForms = _IEFormGetCollection ($oIE) ;holt sich jetzt einzeln die Forms raus und listet sie dann in der Text Datei auf
    If @error Then
    MsgBox(0, '', 'Keine Formen enthalten')
    Else
    $Index = 0
    For $oForm In $oForms

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

    FileWriteLine($name,'Form-Index: ' & $Index & ' / Name: ' & $oForm.Name & @CRLF)
    $oFormElements = _IEFormElementGetCollection($oForm)
    If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements

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

    FileWriteLine($name,'Form: ' & $Index & ' /Element: ' & $IndexElement & ' /Name: ' & $oElement.Name & @CRLF)
    $IndexElement += 1
    Next
    EndIf
    $Index += 1
    Next
    EndIf

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

    _IEQuit($oIE)
    TrayTip("Info","Programm beendet",5)
    sleep(5000)
    Exit

    [/autoit]


    nur leider funktioniert das Script anscheinend nicht hat jemand vielleicht an Script das die gleiche Funktion hat?

  • Tut genau das was es tun soll.

    Spoiler anzeigen

    Du schaust aber schon in die info.txt rein oder?

  • welche IE Version benutzt du? Auch wenn ich autoit.de eingebe passiert rein garnichts oder muss man länger als 5min warten?

  • Benutzen tu ich ihn zwar nicht aber er schwirrt hier auf der Platte rum .... IE8.

    Was macht da Script denn bei dir nicht?

    Es stellt nur eine Verbindung her und meldet sich dann per Tooltip. Dann sollte im Scriptordner die Info.txt liegen.
    Wenn's keine Form gibt kommt eine MsgBox.