Hallo,
einfache Skripte wie dies hier in Google zu suchen funzen:
#include <IE.au3>
$oIEFW = _IECreate('http://www.google.de')
$oFormFW = _IEFormGetObjByName($oIEFW, 'f')
$oQueryFW = _IEFormElementGetObjByName($oFormFW, 'q')
_IEFormElementSetValue($oQueryFW, 'wikfeder download')
_IEFormSubmit($oFormFW, 1)
Das Ausfüllen des Hochladeformulars in Wikipedia funktioniert zwar mit diesem Skript, bei einer Analogleitung sieht man in der Statusanzeige den Fortschrittsbalken bis ca. 90% wachsen, dann geht bereits zum Hochladen des nächsten Bildes über. Überprüft man in Wikipedia ob das Bild hochgeladen ist, stellt man fest, dass das nicht der Fall ist. Sieht so aus als ob er zu schnell das Hochladen als fertig aufgibt. Hat jmd. eine Idee oder eine Erfahrung mit IESubmit Gruus Jan
[autoit]#include <IE.au3> $oIE = _IECreate('http://de.wikipedia.org/wiki/Spezial:Hochladen')
WinWait('Hochladen', '')
WinSetState('Hochladen', '', @SW_MAXIMIZE)
Do
Sleep(500)
$sStatus = StatusbarGetText('Hochladen', '')
Until $sStatus = 'Fertig'
MsgBox(4112, 'Lese', IniRead(@ScriptDir & '\wikifill.ini', $i, 'Pfad', 'Fehler'))
$oForm = _IEFormGetObjByName($oIE, 'Upload')
$oInputFile = _IEFormElementGetObjByName($oForm, "wpUploadFile")
_IEAction($oInputFile, "focus")
$oQuery1 = _IEFormElementGetObjByName($oForm, 'wpDestFile')
_IEFormElementSetValue($oQuery1, IniRead(@ScriptDir & '\wikifill.ini', $i, 'Dateiname', 'Fehler'))
$aEL = StringSplit('Beschreibung|Quelle|Seite|Urheber|Datum|Genehmigung|Andere Versionen|Anmerkungen', '|')
$sDesc = '{{Information' & @CRLF
For $j = 1 To $aEL[0]
$sDesc = $sDesc & '|' & $aEL[$j] & '=' & IniRead(@ScriptDir & '\wikifill.ini', $i, $aEL[$j], 'Fehler') & @CRLF
Next
$sDesc = $sDesc & '}}'
$oQuery3 = _IEFormElementGetObjByName($oForm, 'wpUploadDescription')
_IEFormElementSetValue($oQuery3, $sDesc)
$oSelect = _IEFormElementGetObjByName($oForm, 'wpLicense')
_IEFormElementOptionSelect($oSelect, IniRead(@ScriptDir & '\wikifill.ini', $i, 'GenehmigungII', 'Fehler'), 1, 'byText')
_IEFormSubmit($oForm, 1)
[/autoit]