Abend zusammen,
ich wolllte ein programm schreiben mit dem ich eben schnell bei svz gucken kann ob neue nachrichten oder der gleichen gekommen sind. Dafür muss sich das script einlogen und auf die eigene seite gehen. So weit bin ih shcon gekommen:
Spoiler anzeigen
include <GUIConstants.au3>
#include <IE.au3>
#include <file.au3>
Opt("WinTitleMatchMode", 1)
[/autoit] [autoit][/autoit] [autoit]Func login()
$addy = "name"
$pw = "pw"
$oI = _IECreate("http://www.schuelervz.net/Login",1,1)
;Sleep(1000)
[/autoit] [autoit][/autoit] [autoit]WinMove("schuelerVZ","",@desktopwidth,0)
$o_form = _IEFormGetObjByName($oI, "login")
;$ok = _IEFormElementGetObjByName($o_form, "Einloggen")
$o_login = _IEFormElementGetObjByName($o_form, "login_email")
$o_password = _IEFormElementGetObjByName($o_form, "login_password")
;write_simgleletter($addy,$o_login)
;write_simgleletter($pw,$o_password)
_IEFormElementSetValue($o_login,$addy)
_IEFormElementSetValue($o_password,$pw)
;$ok = _IEFormElementGetObjByName($o_form, "login_email")
[/autoit] [autoit][/autoit] [autoit];_IEAction ($ok, "click" )
[/autoit] [autoit][/autoit] [autoit]WinSetState("schuelerVZ","",@SW_SHOW)
WinSetState("schuelerVZ","",@SW_ENABLE)
Send("{enter}")
[/autoit] [autoit][/autoit] [autoit]Sleep(1000)
[/autoit] [autoit][/autoit] [autoit]If WinExists("Sicherheitshinweis") Then Send("{enter}")
[/autoit] [autoit][/autoit] [autoit]Sleep(1000)
[/autoit] [autoit][/autoit] [autoit]_IELinkClickByText ($oI,"Meine Seite")
[/autoit] [autoit][/autoit] [autoit]WinMove("schuelerVZ","",0,0)
[/autoit] [autoit][/autoit] [autoit]$o_form = _IEFormGetObjByName($oI, "pinnwand")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Sleep(5000)
[/autoit] [autoit][/autoit] [autoit];_IELinkClickByText ($oI,"Einloggen")
[/autoit] [autoit][/autoit] [autoit];_IEFormSubmit ($o_form)
Exit
EndFunc
login()
[/autoit] [autoit][/autoit] [autoit]Func write_simgleletter($word,$obj)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To StringLen($word) Step 1
[/autoit] [autoit][/autoit] [autoit]_IEFormElementSetValue($obj,StringRight($word,$i))
[/autoit] [autoit][/autoit] [autoit]Sleep(100)
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]