Nowy url po _IEFormSubmit()

[kiope]

How do it?

 

Proboje z: _IENAVIGATE

 

 

_IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a

If _IEFormSubmit($formalogowania) Then

 

_ieNavigate($oIE, $Logout)

Endif

 

 

Ale nie idzie za bardzo cały skrypt:

 

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
Global $butt,$captcha,$input,$oIE,$bot
#region  FAQ Opcja do zaznaczania obieku
;------------------------------------------------------
; $obj - uchwyt obiektu IE
; "id" - szukamy checkboxa po ID
; "generate_password_confirm" - ID checkboxa
; 1 - zaznaczamy checkboxa (podając 0 - odznaczamy)
; _IEFormElementCheckBoxSelect($kwadracik1, "PersistentCookie", "PersistentCookie", 1)
;------------------------------------------------------
#endregion
#Region GUI
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$Form1 = GUICreate("Okienko", 700, 545, 192, 124)
$label = guictrlcreatelabel("kipeer",763,430)
$GUIActiveX = GUICtrlCreateObj($oIE, 40, 10, 570, 400)
$but = GUICtrlCreateButton("Klik", 630,200,40,25)
$logout = ("http://GOOgle.pl")
GUISetState(@SW_SHOW)
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
							 Case $GUI_EVENT_CLOSE
	    Exit
Case $but
	    lol()
  EndSwitch
WEnd
Func lol()
$path = "email.txt"
    $file = _FileCountLines($path)
  For $x = 1 To $file Step +1
		    $email = FIleReadLine($path,$x)
	    _IENavigate($oIE, "https://accounts.google.com/NewAccount?gl=PL&client=mv-google&followup=http%3A%2F%2Fm.youtube.com%2Femail_confirm%3Fwarned%3D1&uilel=0&service=youtube&shdf=ChYLEgxub1F1YXJhbnRpbmUaBFRydWUMEgd5b3V0dWJlGgRTSEExIhTDga0qbMaN6_h91_Ghd4kzi_Tu9ygBMhRRf8t_FnPI0wk3pyCMaH42pk-u2g%3D%3D&skipll=true&passive=true&skipvpage=true&continue=http%3A%2F%2Fm.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26warned%3D1%26next%3D%252F%26hl%3Dpl_PL%26new%3Dtrue&hl=pl_PL&nui=17&ltmpl=mobile")
									    _IELoadWait($oIE)
									    sleep(2000)
									    $asdf = _IEBodyReadHTML($oIE)
#endregion
;$oie = _IECreate("https://accounts.google.com/NewAccount?gl=PL&client=mv-google&followup=http%3A%2F%2Fm.youtube.com%2Femail_confirm%3Fwarned%3D1&uilel=0&service=youtube&shdf=ChYLEgxub1F1YXJhbnRpbmUaBFRydWUMEgd5b3V0dWJlGgRTSEExIhTDga0qbMaN6_h91_Ghd4kzi_Tu9ygBMhRRf8t_FnPI0wk3pyCMaH42pk-u2g%3D%3D&skipll=true&passive=true&skipvpage=true&continue=http%3A%2F%2Fm.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26warned%3D1%26next%3D%252F%26hl%3Dpl_PL%26new%3Dtrue&hl=pl_PL&nui=17&ltmpl=mobile")
;$oie = _IECreate("auto:blank") ;wejscie na gmail'a
;$email =InputBox("Podaj email", "wpisz swoj email")
_IELoadWait($oie)
	    $formalogowania = _IEFormGetCollection($oie, 0) ;poniewaz to jedyna forma (liczymy od 0) to index to 0
	    $pole1   = _IEFormElementGetObjByName($formalogowania, "Email") ;patrzymy w źródle strony na Name input'a do loginu tutaj to "Email"
	    $pole2   = _IEFormElementGetObjByName($formalogowania, "Passwd")
$pole3   = _IEFormElementGetObjByName($formalogowania, "PasswdAgain")
$pole4   = _IEFormElementGetObjByName($formalogowania, "loc")
$pole5   = _IEFormElementGetObjByName($formalogowania, "Birthday")
$pole6   = _IEFormElementGetObjByName($formalogowania, "city")
$pole7   = _IEFormElementGetObjByName($formalogowania, "state")
	    $kwadracik1   = _IEFormElementGetObjByName($formalogowania, "rmShown")
	    _IEFormElementSetValue($pole1, $email) ;wpisujemy do pola loginu nasz wpisany loginu
sleep(150)
	    _IEFormElementSetValue($pole2, "qwertyasdfg")
sleep(150)
_IEFormElementSetValue($pole3, "qwertyasdfg")
sleep(150)
	    _IEFormElementOptionSelect($pole4, "22")
sleep(150)
_IEFormElementSetValue($pole5, "02.02.1989")
sleep(150)
	    _IEFormElementSetValue($pole6, "Kuropatwy")
sleep(150)
_IEFormElementOptionSelect($pole7, "2")
_GUICtrlListView_SetItemChecked($formalogowania, "rmShown", 0)
$check = _IEGetObjById($oIE,"PersistentCookie") ; pobieramy ID elementu
_IEAction($check,"click") ; klikamy w ten element.
$obraz = _IEImgGetCollection($oIE,3) ; wyszukuje 3 obrazek
$sInfo = $obraz.src & @CR ; pobiera jego link
InetGet($sInfo,"captcha.jpg") ; pobieramy obraz na dysk
$bot = GUICreate("Przepisz CAPTCHE",300,165)
GUICtrlCreatePic("captcha.jpg",25,0,250,100) ; dodajemy obraz do naszego GUI
$input = GUICtrlCreateInput("Przepisz tekst z obrazka..",25,120,250,25)
GUISetState(@SW_SHOW,$bot)
MsgBox(64,"Info", "Przepisz Captche")
    $captcha = _IEGetObjByName($oIE, "newaccountcaptcha")
    _IEFormElementSetValue($captcha,GUICtrlRead($input))
GUIDelete($bot)
sleep(1000)
	    _IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
  If _IEFormSubmit($formalogowania) Then
   _ieNavigate($oIE, $Logout)
  Endif
  Next
	    EndFunc

[xFrez]

If _IEFormSubmit($formalogowania) Then

A gdzie tutaj jest jakiś warunek?

[kiope]

Można użyć tego bez warunku?

 

 

Może użyć

 

When _IEFormSubmit

_IENAVIGATE($oIE, "http://google.pl")

WEND

 

ale też coś nie idzie...

[xFrez]

If _IEFormSubmit($formalogowania) = -1 Then
_IENavigate($oIE, $logout)
EndIf

 

Return Value

Success: Returns -1

Failure: Returns 0 and sets @ERROR

 

Nie mam czasu sprawdzić czy działa, ale raczej powinno

 

@edit

Nie wiem o co ci za bardzo chodzi. Chcesz, żeby po załadowaniu strony po wysłaniu formularza przeszło do strony $logout?

To nie możesz użyć _IELoadWait, a potem _IENavigate?

Albo po prostu samego _IENavigate? o_O

[kiope]

No wlasnie nie zaskakuje... http://www.mpcforum.pl/topic/511060-javascript-onclick/

[xFrez]

Ale co się dzieje?

Jakiś błąd czy po prostu nie ładuje się strona?

 

Ja np. w jednym z moich skryptów mam:

 

$wyslij = _IEFormSubmit($form)
_IELoadWait($oIE)
_IENavigate($oIE, $link)

i wszystko śmiga jak powinno