Ein Programm mit dem man bei svz neue nachrichten un pinnwand einträge bafragen kann.

    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
    [autoit]

    include <GUIConstants.au3>
    #include <IE.au3>
    #include <file.au3>

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

    Opt("WinTitleMatchMode", 1)

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

    Func login()
    $addy = "name"
    $pw = "pw"
    $oI = _IECreate("http://www.schuelervz.net/Login",1,1)

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

    ;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")

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

    ;write_simgleletter($addy,$o_login)
    ;write_simgleletter($pw,$o_password)

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

    _IEFormElementSetValue($o_login,$addy)
    _IEFormElementSetValue($o_password,$pw)

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

    ;$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)

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

    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

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

    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]

    Öhm.. Und wo liegt Dein Problem bei der Sache? Warum hast du es in Hilfe & Unterstützung gepostet?

    guck dir mal die Einstellungen an :pinch:

    ich bekomme eine Mail, wenn ich neue Nachrichten habe, bzw wenn jemand was auf meine Pinnwand schreibt...

    :whistling:
    C-TEC

    Zitat

    Laughing Man

    "I thought, what I'd do was, I'd pretend I was one of those deaf-mutes"

    Versuche es doch mal mit TCP, da muss sich kein Browser öffnen und er guckt ob du neue Mails hast, wenn er was gefunden hat gibt er eine MsgBox aus und sagt dir das du eine neue Mail hast und fragt ob du sie dir anschauen willst. Kurz darauf öffnen sich noch 2 InputBoxen zum anmelden und er lädt dann die Seite.

    Ein bisschen viel, aber müsste eigentlich klappen das ganze in AutoIt umzuwandeln :D

    Oder so: (kurz angetestet :rofl: )

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    Global $oIE
    $login = "loginname"
    $password = "password"

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

    $oIELogout = _IECreate("http://www.schuelervz.net/Logout/tid/127", 0, 0)
    _IELoadWait($oIELogout)
    _IEQuit($oIELogout)

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

    _login()
    func _login()
    $oIE = _IECreate("http://www.schuelervz.net/Login", 0, 0)

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

    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection($oIE, 0)

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

    $oQuery = _IEFormElementGetObjByName($oForm, "login_email")
    _IEFormElementSetValue($oQuery, $login)
    $oQuery = _IEFormElementGetObjByName($oForm, "login_password")
    _IEFormElementSetValue($oQuery, $password)
    $oQuery = _IEFormElementGetObjByName($oForm, "login")
    _IEAction($oQuery, "click")
    _IELoadWait($oIE)
    _mescheck()
    EndFunc

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

    func _mescheck()
    _IENavigate($oIE, "http://www.schuelervz.net/Messages/tid/106")
    _IELoadWait($oIE)
    $mesBody = _IEBodyReadHTML($oIE)

    If StringinStr($mesBody, "Du hast keine Nachrichten") Then MsgBox(0, "Keine Nachrichten!", "Du hast keine Nachrichten.")

    _IEQuit($oIE)
    EndFunc

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

    Was meinst du mit "suchen"? Schau dir StringRegExp in der Hilfe an! Dann müsstest du drauf kommen. Schau dir auch den Quellcode von sVZ an. Die Beispiele in der Hilfedatei müssten ausreichen. Ansonsten adde mich mal in ICQ oder Skype (im Profil). Dann kann ich dir auch dort weiterhelfen, und wir spammen hier nicht so :rofl: