hallo
für alle Freunde von IE
Spoiler anzeigen
#include "IE.au3"
$wikipfad = "http://wikiseite/mediawiki/"
$benutzername = "bot"
$passwort = "bot"
$aufsicht = 1 ;1= an 0= aus
;Start
$IE= _IECreate($aufsicht)
_IELoadWait($IE)
_IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogout",1)
_IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogin",1)
$o_form = _IEFormGetObjByName($IE, "userlogin")
$o_login = _IEFormElementGetObjByName($o_form, "wpName")
$o_password = _IEFormElementGetObjByName($o_form, "wpPassword")
_IEFormElementSetValue($o_login, $benutzername)
_IEFormElementSetValue($o_password, $passwort)
_IEFormSubmit($o_form)
_IELoadWait($IE)
;
HIER kommt rein was zu machen ist
;Ende
_IENavigate($IE,$wikipfad&"index.php?title=Spezial:Userlogout",1)
_IEQuit($IE)
func _WikiArtikelAusgabe($IE,$artikel)
;Auslesen
_IENavigate($IE,$wikipfad&"index.php?title="&$artikel&"&action=edit",1)
$o_form = _IEFormGetObjByName($IE, "editform")
$o_box = _IEFormElementGetObjByName($o_form,"wpTextbox1")
$artikel_inhalt = _IEFormElementGetValue($o_box)
return $artikel_inhalt
EndFunc
func _WikiArtikelAendern($IE,$artikel,$neuerText)
;Bearbeiten und erstellen
_IENavigate($IE,$wikipfad&"index.php?title="&$artikel&"&action=edit",1)
$o_form = _IEFormGetObjByName($IE, "editform")
$o_box = _IEFormElementGetObjByName($o_form,"wpTextbox1")
$artikel_anders= _IEFormElementSetValue($o_box, $neuerText)
_IEFormSubmit($o_form)
_IELoadWait($IE)
return $artikel_anders
EndFunc