Ich habe in dem Auto It nen Script gefunden das die Web Forms auslesen soll:
Spoiler anzeigen
#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
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
$name = "info" & $i & ".txt"
$i +=1
Else
ExitLoop
EndIf
WEnd
FileWriteLine($name,"Forms aus " & $Url) ;schreibt in die Datei
FileWriteLine($name,"")
TrayTip("info","Bitte warten bis Informationen eingeholt wurden",5)
$oIE = _IECreate ($Url,0,0) ;ruft ein verstecktes Internetfenster auf
$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
FileWriteLine($name,'Form-Index: ' & $Index & ' / Name: ' & $oForm.Name & @CRLF)
$oFormElements = _IEFormElementGetCollection($oForm)
If IsObj($oFormElements) Then
$IndexElement = 0
For $oElement In $oFormElements
FileWriteLine($name,'Form: ' & $Index & ' /Element: ' & $IndexElement & ' /Name: ' & $oElement.Name & @CRLF)
$IndexElement += 1
Next
EndIf
$Index += 1
Next
EndIf
_IEQuit($oIE)
TrayTip("Info","Programm beendet",5)
sleep(5000)
Exit
nur leider funktioniert das Script anscheinend nicht hat jemand vielleicht an Script das die gleiche Funktion hat?