Gui Internet Objekt no Scroll

  • Hallo Lieber Aktiven User =]
    Jaaa , ich bin es wieder :D
    Und zwar wollte ich mein Programm ein Account ersteller basteln, habe nur 2Probleme.
    1 Problem mann kann Scrollen bei dem "GUICtrlCreateObj" , dass soll schomer weg. =]
    2 Problem , ich schaff es nicht , wenn ich auf den Erstell Knopf drücke das er sich nicht regestiert.
    Ich habe schon _FFClick & _IeAction click ausprobiert. Bekomme es aber nicht hin.

    Auf dieser Seite soll dan das "submit" gedrückt werden.
    Und hier mal das Script , bedanke mir für jede Antwort =]

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    $Gui = GUICreate("Account Ersteller " & "", 640, 155, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 120)
    GUICtrlSetStyle($GUIActiveX, $WS_HSCROLL)
    $GUI_Button_Home = GUICtrlCreateButton(" E r s t e l l e n ", 2, 125, 638, 30)
    GUISetState() ;Show GUI
    _IENavigate($oIE, "http://tuttifrutti.kilu.de/index.html")
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    GuiCtrlSetState($GUIActiveX,$GUI_HIDE)
    GUICtrlCreateLabel("Dies kann einige Sekunden dauern." & @CRLF & "Wir bedauern, dass es so lange dauert," & @CRLF & "wenn viele Leute sich accounts erstellen" & @CRLF & "kann es ein paar Sekunden dauern.", 10, 10, 468, 84)
    GUICtrlSetFont(-1, 11, 400, 0, "Century Gothic")

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

    $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
    If _IELoadWait ($oIE) Then Exit 0
    EndSelect
    WEnd
    GUIDelete()
    Exit

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

    2 Mal editiert, zuletzt von tuttifrutti (28. August 2009 um 18:27)

  • Das macht natürlich nur Sinn mit FireFox und ja es wäre dann einfach nur _FFFormSubmit() ohne Parameter.

    Bei IE sollte es mit _IEFormSubmit($oForm) gehen.
    Ist damit aber (nicht nur Aufgrund diesen furchtbaren HTML-Codes) etwas umständlicher

    Da das Formular weder ID noch Namen hat, muß man mit diesen Collections arbeiten, also:

    [autoit]

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

    [/autoit]

    Apropos furchtbares HTML: Mit was ist denn diese Seite erstellt? Habe wirklich noch nie sooo viele Fehler in so wenigen Zeilen gesehen :huh:

  • Danke =] Nur jetzt bleibt noch 1 problem xD Wie ich mache , dass man nicht scroolen kann.
    Mit GuiCtrlSetStyle habe ich es schon probiert, klappte aber net oder ich war wie immer zu plöde xD

  • So weit bin ich nun.
    Habe es auch mal in Post 1# Editiert.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    $Gui = GUICreate("Account Ersteller " & "", 640, 155, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 120)
    GUICtrlSetStyle($GUIActiveX, $WS_HSCROLL)
    $GUI_Button_Home = GUICtrlCreateButton(" E r s t e l l e n ", 2, 125, 638, 30)
    GUISetState() ;Show GUI
    _IENavigate($oIE, "http://tuttifrutti.kilu.de/index.html")
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    GuiCtrlSetState($GUIActiveX,$GUI_HIDE)
    GUICtrlCreateLabel("Dies kann einige Sekunden dauern." & @CRLF & "Wir bedauern, dass es so lange dauert," & @CRLF & "wenn viele Leute sich accounts erstellen" & @CRLF & "kann es ein paar Sekunden dauern.", 10, 10, 468, 84)
    GUICtrlSetFont(-1, 11, 400, 0, "Century Gothic")

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

    $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
    If _IELoadWait ($oIE) Then Exit 0
    EndSelect
    WEnd
    GUIDelete()
    Exit

    [/autoit] [autoit][/autoit] [autoit][/autoit]
  • Bin schonmal soweit, das man nicht scrollen kann (Dafür leider auch nix eingeben)^^

    Spoiler anzeigen

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    $Gui = GUICreate("Account Ersteller " & "", 640, 155, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 120)
    $GUI_Button_Home = GUICtrlCreateButton(" E r s t e l l e n ", 2, 125, 638, 30)
    GUISetState() ;Show GUI
    _IENavigate($oIE, "http://tuttifrutti.kilu.de/index.html")
    GUICtrlSetStyle($GUIActiveX, $WS_Disabled)
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    GuiCtrlSetState($GUIActiveX,$GUI_HIDE)
    GUICtrlCreateLabel("Dies kann einige Sekunden dauern." & @CRLF & "Wir bedauern, dass es so lange dauert," & @CRLF & "wenn viele Leute sich accounts erstellen" & @CRLF & "kann es ein paar Sekunden dauern.", 10, 10, 468, 84)
    GUICtrlSetFont(-1, 11, 400, 0, "Century Gothic")

    $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
    If _IELoadWait ($oIE) Then Exit 0
    EndSelect
    WEnd
    GUIDelete()
    Exit

    Theorie ist wenn man weiß wie's geht, aber nichts klappt.
    Praxis ist wenn's klappt aber man weiß nicht weiso.

    Bei Microsoft sind Theorie und Praxis vereint: Nichts klappt und keiner weiß wieso ;)