IE.au3

  • hallo heute irgendwas geht nicht bei mir..

    kann mir jemand sagen was ich falsch mache..
    ich starte mein bot..und da kommt dann so ein fehler..

  • [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 318, 97, 196, 152)
    $Input1 = GUICtrlCreateInput("Input1", 16, 16, 145, 21)
    $Input2 = GUICtrlCreateInput("Input2", 168, 16, 129, 21)
    $Button1 = GUICtrlCreateButton("Button1", 16, 48, 281, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _login()

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

    EndSwitch
    WEnd

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

    Func _login()

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

    $Names = GUICtrlRead ($Input1)
    $Orts = GUICtrlRead ($Input2)

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

    $IEs =_IECreate("http://www.singlesleipzig.de/account.php", 1, 1)

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

    $Forms =_IEFormGetObjByName($IEs, 1)

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

    $Usernames2=_IEFormElementGetObjByName($Forms, "username")
    _IEFormElementSetValue($Usernames2, $Names)

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

    $Passworts= _IEFormElementGetObjByName($Forms, "passwrd")
    _IEFormElementSetValue($Passworts, $Orts)

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

    $oSubmit = _IEGetObjByName ($IEs, "login")
    _IEAction ($oSubmit, "click")

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

    EndFunc

    [/autoit]