Zakładanie kont xxx.pl i formularz _IE

kiope · 19 Grudnia 2011

Pisze schemat do zakladania stron, jest tego DUŻO na tym forum ale musiałem przerwać gdy zobaczyłem, że moj limit transferu już ma 300mb a do końca zostało mi zaledwie 50mb...

Potrzebuje pomocy z _IE

Ktoś wrzuci ten skrypt do okienka Label w gui?


$oie = _IECreate("https://ssl.allegro.pl/Register.php") ;wejscie na gmail'a
$email =InputBox("Podaj email", "wpisz swoj email")
;schowane opcje
;$imie=InputBox("Imie", "Blabla")
;$nazwisko=InputBox("TwojaMama", "blabla")
;$data=InputBox("Dataurodzenia", "WPisz date urodzenia")
;$adres=InputBox("Adres" , "Augostynow 2")
;$kodpocztowy=InputBox("kodpocztowy" , "70666")
;$miasto=InputBox("Miasto" , "Zakrwara")
;$panstwo=("Pa")
;$telefon=InputBox("telefon", "503222132")
;$confirm=InputBox("akceptuj box", " ")
 _IELoadWait($oie)
$formalogowania = _IEFormGetCollection($oie, 0) ;poniewaz to jedyna forma (liczymy od 0) to index to 0
$pole1   = _IEFormElementGetObjByName($formalogowania, "firstName") ;patrzymy w źródle strony na Name input'a do loginu tutaj to "Email"
$pole2   = _IEFormElementGetObjByName($formalogowania, "lastName")
$pole3   =  _IEFormElementGetObjByName($formalogowania, "birthDate")
$pole4   = _IEFormElementGetObjByName($formalogowania, "address")
$pole5   = _IEFormElementGetObjByName($formalogowania, "postcode")
$pole6   = _IEFormElementGetObjByName($formalogowania, "city")
$pole6i2 = _IEFormElementGetObjByName($formalogowania, "state")
$pole7   = _IEFormElementGetObjByName($formalogowania, "country")
$pole8   = _IEFormElementGetObjByName($formalogowania, "email")
$pole9   = _IEFormElementGetObjByName($formalogowania, "phone")
$pole0   = _IEFormElementGetObjByName($formalogowania, "confirmAdult")

_IEFormElementSetValue($pole1, "nijakie") ;wpisujemy do pola loginu nasz wpisany loginu
_IEFormElementSetValue($pole2, "Myjakie")
_IEFormElementSetValue($pole3, "01-01-1998")
_IEFormElementSetValue($pole4, "Kurza stopa 14/97")
_IEFormElementSetValue($pole5, "71-007")
_IEFormElementSetValue($pole6, "Kuropatwy")
_IEFormElementOptionSelect($pole6i2, "2")
_IEFormElementOptionSelect($pole6i2, "15")
_IEFormElementSetValue($pole8, $email)
_IEFormElementSetValue($pole9, "502342589")
If _IEFormElementSetValue($pole9, "502342589") then
_IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
EndIf
#endregion
#Region GUI

#endregion
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
  Case $GUI_EVENT_CLOSE
	 Exit
 Case GUICtrlSetState(-1,$GUI_SHOW)
  EndSwitch
WEnd

Ew. pomoc w:

1. zaakceptuj regulamin ( taki kwadracik do akceptacji regulaminu... jaką opcją moge go zaznaczyć? W źródle nie ma opcji input= tylko wyrażenie class= )

2. Jak z okna "$oie" wysłać zapytanie o otworzenie nowego okna a wnim obrazek captche oraz jego pole input.

Protecto · 19 Grudnia 2011

Co rozumiesz poprzez wrzucenie skryptu do labela ?

1. Ja bym to zrobił tak:

Kod checkboxa:

<input id="generate_password_confirm" type="checkbox">

Kod skryptu:

#CS
------------------------------------------------------
; $obj - uchwyt obiektu IE
; "id" - szukamy checkboxa po ID
; "generate_password_confirm" - ID checkboxa
; 1 - zaznaczamy checkboxa (podając 0 - odznaczamy)
------------------------------------------------------
#CE
_IEFormElementCheckBoxSelect($obj, "id", "generate_password_confirm", 1)

2. Możesz jaśniej? Nie rozumiem.

kiope · 19 Grudnia 2011

Co rozumiesz poprzez wrzucenie skryptu do labela ?

1. Ja bym to zrobił tak:

Kod checkboxa:

<input id="generate_password_confirm" type="checkbox">

Kod skryptu:

#CS
------------------------------------------------------
; $obj - uchwyt obiektu IE
; "id" - szukamy checkboxa po ID
; "generate_password_confirm" - ID checkboxa
; 1 - zaznaczamy checkboxa (podając 0 - odznaczamy)
------------------------------------------------------
#CE
_IEFormElementCheckBoxSelect($obj, "id", "generate_password_confirm", 1)

2. Możesz jaśniej? Nie rozumiem.

No tak wiedzialem, zaraz sprawdze kod to opisze czy dziala...

1. rzucenie skryptu do labela ? - żeby w tym obrębie "vision" było okno _IE

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\aaa\Pulpit\Programy\Program\Wstępny gui.kxf
$Form1 = GUICreate("Form1", 623, 442, 207, 135)
GUISetCursor (2)
$Group1 = GUICtrlCreateGroup("Vision", 24, 32, 361, 273) ;; TABELA
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor (-1, 2)
$List2 = GUICtrlCreateList("", 400, 8, 193, 385, BitOR($GUI_SS_DEFAULT_LIST,$LBS_MULTIPLESEL,$LBS_HASSTRINGS,$LBS_USETABSTOPS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
;; PRZYCISKI;
$Button1 = GUICtrlCreateButton("start", 24, 312, 89, 33)
$Button2 = GUICtrlCreateButton("stop", 120, 312, 81, 33)
$Button3 = GUICtrlCreateButton("zapisz konta", 400, 400, 105, 17)
;; PRZYCISKI;
GUIStartGroup()
$Progress1 = GUICtrlCreateProgress(40, 16, 105, 9)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 184, 8, 185, 25)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
EndSwitch
WEnd

2. Przy otwieraniu strony wyświetla się Catche, który trzeba wpisać, Chciałbym by program poinformował prostym MSGboxem, że captcha sie załadowało. Po kliknięciu OK, otworzyło by nowe okienko gui w ktorym się wyświetliło by: Obrazek z sessi oraz miejsce do przepisania kodu z obrazka.

no nie rozumiem twojego kodu

kod strony i przyciskow: http://img38.imageshack.us/img38/1241/222222yow.jpg

A w kodzie to wyglada to tak:

   $kwadracik1   = _IEFormElementGetObjByName($formalogowania, "PersistentCookie")
_IEFormElementCheckBoxSelect($kwadracik1, "PersistentCookie", "PersistentCookie", 0)

Protecto · 19 Grudnia 2011

1. Zapraszam: http://www.mpcforum.pl/topic/440516-program-do-losowania-komentarzy-na-youtube/

kiope · 19 Grudnia 2011

1. Zapraszam: http://www.mpcforum....rzy-na-youtube/

Pisze schemat do zakladania stron, jest tego DUŻO na tym forum ale musiałem przerwać gdy zobaczyłem, że moj limit transferu już ma 300mb a do końca zostało mi zaledwie 50mb...

no tak

Protecto · 19 Grudnia 2011

To co ty masz do pokazywania źródła jest jakieś dziwne. Firebugiem zobacz.

kiope · 19 Grudnia 2011

To co ty masz do pokazywania źródła jest jakieś dziwne. Firebugiem zobacz.

Kurde... tak czy siak chodzi tutaj o m.youtube.pl/signup . Moja MozRepl działa dobrze. Mógłbyś sam zobaczyć jak to jest z tymi kwadracikami? Fire buga nie moge sciagnac tak jak mowilem ze limit mi padnie zara i sie wkurze":/

No ok, porzućmy te pytanie o GUi... istotniejszy jest kwadracik nie mozna go odznaczyć ...

<span title="<input id="PersistentCookie" name="PersistentCookie" value="yes">" class="webdeveloper-display-form-details"><input id="PersistentCookie" name="PersistentCookie" value="yes"></span><input name="PersistentCookie" id="PersistentCookie" value="yes" checked="checked" type="checkbox">
<span title="<input name="rmShown">" class="webdeveloper-display-form-details"><input name="rmShown"></span><input class=" webdeveloper-unhidden" name="rmShown" value="1" type="text"><label style="font-size: smaller;" for="PersistentCookie">Zapamiętaj mnie

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#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", 220, 445, 192, 124)
$label = guictrlcreatelabel("kipeer",763,430)
$GUIActiveX = GUICtrlCreateObj($oIE, 240, 10, 570, 400)
GUISetState(@SW_SHOW)
_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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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)
   _IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
 Case $GUI_EVENT_CLOSE
   ;	 Exit
Case GUICtrlSetState(-1,$GUI_SHOW)
exit
  EndSwitch
WEnd

CO MOZE BYĆ źle placze bo juz 7 godzina i nie moge ogarnac

m4rcin93 · 19 Grudnia 2011

Skrypt pobiera CAPTCHe i wyświetla ją w GUI oraz odznacza Zapamiętaj mnie .

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#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)
GUISetState(@SW_SHOW)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
	 Case $GUI_EVENT_CLOSE
   Exit
Case $but
   lol()
  EndSwitch
WEnd

Func lol()
   _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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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
GUICtrlCreatePic("captcha.jpg",200,400,200,150) ; dodajemy obraz do naszego GUI
MsgBox(64,"Info", "Przepisz Captche")

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

kiope · 21 Grudnia 2011

Skrypt pobiera CAPTCHe i wyświetla ją w GUI oraz odznacza Zapamiętaj mnie .

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#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)
GUISetState(@SW_SHOW)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
	 Case $GUI_EVENT_CLOSE
Exit
Case $but
lol()
  EndSwitch
WEnd

Func lol()
_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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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
GUICtrlCreatePic("captcha.jpg",200,400,200,150) ; dodajemy obraz do naszego GUI
MsgBox(64,"Info", "Przepisz Captche")

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

Kod "_IEAction($check,"click") ; klikamy w ten element." odnosi sie czego ? Kliknąłem obraza captcha i nic.

Do rzeczy.... captcha sie nie resetuje, ściąga się tylko raz. Problem w tym, że captcha miało się otwierać w nowym okienku typu Inbox z polem do wpisania obrazka, narazie wam idzie nieźle .

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#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)
$oIE2 = _IECreateEmbedded()
$label = guictrlcreatelabel("kipeer",100,430)
GUISetState(@SW_SHOW)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
			 Case $GUI_EVENT_CLOSE
   Exit
Case $but
   lol()
  EndSwitch
WEnd

Func lol()
   _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)
 $email =InputBox("Podaj email", "wpisz swoj email")
			    $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
_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")
$kapcze  = _IEFormElementGetObjByName($formalogowania, "newaccountcaptcha")
$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
GUICtrlCreatePic("captcha.jpg",200,400,200,150) ; dodajemy obraz do naszego GUI
$forma = InputBox("próba", "wpisz kod z obrazka")
   _IEFormElementSetValue($pole1, $email) ;wpisujemy do pola loginu nasz wpisany loginu
sleep(150)
   _IEFormElementSetValue($pole2, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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)
_IEFormElementSetValue($kapcze, $forma) ;wpisujemy do pola loginu nasz wpisany loginu
If $forma then
 _IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
EndIf
   EndFunc

m4rcin93 · 21 Grudnia 2011

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.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)
GUISetState(@SW_SHOW)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
			 Case $GUI_EVENT_CLOSE
    Exit
Case $but
    lol()
  EndSwitch
WEnd

Func lol()
    _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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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)
    _IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
    EndFunc

Do InputBoxa nie można wstawić obrazka, chyba że ja o czymś nie wiem, więc zrobiłem to inaczej.

Najpierw przepisz tekst z obrazka a dopiero potem kliknij OK w Msgboxie.

Co masz na myśli "Captcha się nie resetuje" ?

Captcha pobiera się po każdym odpaleniu skryptu. Obrazki się podmieniają, więc ciągle jest jeden plik 'captcha.jpg'.

Kod "_IEAction($check,"click") ; klikamy w ten element." odnosi sie czego ? Kliknąłem obraza captcha i nic.

Odnosi się do tego:

Czyli odznacza ten checkbox.

kiope · 21 Grudnia 2011

No to ladnie się połączyło. Natomiast wiesz jak obejść captcha trader?

- Jak zrobić funkcje by z stworzyć liste a z niej automatycznie pobierało by email?

m4rcin93 · 21 Grudnia 2011

#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)
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
_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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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)
	_IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
	Next
	EndFunc

Skrypt pobiera z pliku email.txt maile zapętla skrypt tyle razy, ile linii w pliku email.txt .

Po co chcesz "obejść' Captchatrader? :|

kiope · 21 Grudnia 2011

#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)
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
_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, "haslo123123szZ")
sleep(150)
_IEFormElementSetValue($pole3, "haslo123123szZ")
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)
	_IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
	Next
	EndFunc

Skrypt pobiera z pliku email.txt maile zapętla skrypt tyle razy, ile linii w pliku email.txt .

Po co chcesz "obejść' Captchatrader? :|

Hmm zeby go nie wpisywać, kurde.

Moje olśnienie w tej sprawie, zmieniłem nieco ten kod i wyszło o tak:

#include <Ie.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.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)
GUISetState(@SW_SHOW)
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
							 Case $GUI_EVENT_CLOSE
		Exit
Case $but
		lol()
  EndSwitch
WEnd
Func lol()
		_IENavigate($oIE, "https://ssl.allegro.pl/Register.php")
  _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, "firstName")
$pole3   = _IEFormElementGetObjByName($formalogowania, "lastName")
$pole4   = _IEFormElementGetObjByName($formalogowania, "birthDate")
$pole5   = _IEFormElementGetObjByName($formalogowania, "address")
$pole6   = _IEFormElementGetObjByName($formalogowania, "postcode")
$pole7   = _IEFormElementGetObjByName($formalogowania, "city")
$pole8   = _IEFormElementGetObjByName($formalogowania, "state") ; wybieranie listy
$pole9   = _IEFormElementGetObjByName($formalogowania, "country")
$pole0   = _IEFormElementGetObjByName($formalogowania, "city")
$pole01   = _IEFormElementGetObjByName($formalogowania, "phone")
		$kwadracik1   = _IEFormElementGetObjByName($formalogowania, "rmShown")
		_IEFormElementSetValue($pole1, $email) ;wpisujemy do pola loginu nasz wpisany loginu
sleep(15)
		_IEFormElementSetValue($pole2, "Jacek")
sleep(15)
  _IEFormElementSetValue($pole3, "Agniesta")
sleep(15)
  _IEFormElementSetValue($pole4, "02-02-1989")
  _IEFormElementSetValue($pole5, "Kuropatwy 2")
sleep(15)
		_IEFormElementSetValue($pole6, "70-999")
sleep(15)
  _IEFormElementSetValue($pole7, "Miasto")
		_IEFormElementOptionSelect($pole8, "3")
sleep(15)
		_IEFormElementOptionSelect($pole9, "16")
  _IEFormElementSetValue($pole01, "500550212")
sleep(200)
_GUICtrlListView_SetItemChecked($formalogowania, "confirmAdult", 0)
$check = _IEGetObjById($oIE,"confirmAdult") ; pobieramy ID elementu
_IEAction($check,"click") ; klikamy w ten element.
#region wylaczony captcha
GUISetState(@SW_SHOW,$bot)
		_IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
  If  _IEFormSubmit($formalogowania) Then
Sleep(205)
_IEFormSubmit($formalogowania)
EndIf
 EndFunc

Nie akceptuje drugiego razu submit, w czym lezy problem? w ogole zauwazylem, ze piszemy dwa oddzielne rejestracje hehe. ALe damy rade.

NO ok... więc skrypt jest bardzo ok wyjaśniam tylko, że checkbox jest zaznaczany ( czyt. nie jest sprawdzany )

Skorzystać z Funkcji IF tak?

_GUICtrlListView_SetItemChecked($formalogowania, "confirmAdult", 0)
If _GUICtrlListView_SetItemChecked($formalogowania, "confirmAdult", 0) = 1 Then
EndSelect
EndIf

Zaloguj się

👋 Witaj na MPCForum!

Zakładanie kont xxx.pl i formularz _IE

Rekomendowane odpowiedzi

kiope

kiope

Protecto

Protecto

kiope

kiope

Protecto

Protecto

kiope

kiope

Protecto

Protecto

kiope

kiope

m4rcin93

m4rcin93

kiope

kiope

m4rcin93

m4rcin93

kiope

kiope

m4rcin93

m4rcin93

kiope

kiope

Zarchiwizowany