Automatischer Login [gelöst]

  • [autoit]

    #include <GUIConstants.au3>

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\kubiak\desktop\koda_1.6.0.2\forms\aidalogin.xml.kxf
    $AIDALogin = GUICreate("XXX Login", 264, 88, 354, 237)
    GUISetBkColor(0xA6CAF0)
    $Personalnummer = GUICtrlCreateLabel("Personalnummer", 8, 8, 82, 17)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Passwort = GUICtrlCreateLabel("Passwort", 8, 32, 47, 17)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $n = GUICtrlCreateInput("", 104, 8, 153, 21)
    $pw = GUICtrlCreateInput("", 104, 32, 153, 21,$ES_PASSWORD) ;Passwortmaskierung hinzgefügt
    $Enter = GUICtrlCreateButton("einloggen", 80, 64, 89, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Enter
    If $n > 3 And $pw > 0 Then
    ;Internet Explorer starten
    Run("C:\Programme\Internet Explorer\iexplore.exe")
    ;Warten bis Internet Explorer offen ist
    sleep(1500)
    ;in die Url Leiste Taben
    Send("{TAB}")
    ;URL eingeben
    Send("http://xxx.xxx.xxx.xxx/") ;Hier URL eintragen
    ;Enter drücken
    send("{ENTER}")
    sleep(150)
    ;Anmelden
    send(GUICtrlRead($n))
    send("{TAB}")
    send(GUICtrlRead($pw))
    Sleep(100)
    send("{ENTER}")
    exit
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    das code für leute die sowas auch brauchen

    Einmal editiert, zuletzt von RieSeR (21. August 2007 um 12:24)