Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Czytanie url z txt i otwieranie strony w gui

kiope

Przez kiope
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

kiope Budowniczy

kiope

Opublikowano
Budowniczy

kiope

Opublikowano

Mam gui, okienko weba _IE, jak otworzyć go w tym samym oknie ?

 

 

For $x = 1 to $linki[0]
  ShellExecute($linki[$x])
               sleep(100)
               Next
     $path = "user.txt"
  	    $file = _FileCountLines($path)
    For $x = 1 To $file Step +1
		    $user = FIleReadLine($path,$x)
               sleep(100)

Próbuje tego ale chyba na darmo...

Nukereq.png
m4rcin93 Bywalec

m4rcin93

Opublikowano
Bywalec

m4rcin93

Opublikowano 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
$Form1 = GUICreate("Progs", 615, 440, 192, 124)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,20,20,580,350)
$button = GUICtrlCreateButton("Klik",100,380,55,25)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $button
		funkcja()
EndSwitch
WEnd

Func funkcja()
$plik = "linki.txt"
$licz = _FileCountLines($plik)
FOr $x = 1 To $licz Step +1
$czytaj = FileReadLine($plik,$x)
_IENavigate($oIE,$czytaj,1)
Next
MsgBox(64,"","KONIEC!")
EndFunc

SUAdi Bywalec

SUAdi

Opublikowano
Bywalec

SUAdi

Opublikowano 

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
$Form1 = GUICreate("Progs", 615, 440, 192, 124)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,20,20,580,350)
$button = GUICtrlCreateButton("click",100,380,55,25)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
			Case $GUI_EVENT_CLOSE
					Exit
			Case $button
					funkcja()
	EndSwitch
WEnd
Func funkcja()
	$plik = "trololo.txt"
	$licz = _FileCountLines($plik)
	FOr $x = 1 To $licz Step +1
	$czytaj = FileReadLine($plik,$x)
	_IENavigate($oIE,$czytaj,1)
Next
MsgBox(64,"","tekst koncowy")
EndFunc

 

@up twoj kod mial 1 dziure (spacje )

 

// Kod wstawiamy w CODE!

Protecto

Jeśli odpowiadasz mi, bądź masz do mnie pytanie, oznacz mnie. Wtedy masz pewność, że Ci odpowiem.


7ltRHSP.png


 


Mentoruje w zarabianu przez internet: subsms, ppa, ppi, ppd, skracanie

kiope Budowniczy

kiope

Opublikowano
Budowniczy

kiope

  • Autor
Opublikowano

Strony sie ładują wszystkie na raz, a na samym końcu dopiero wypelnia formularz kod wyglada tak:

#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  FAQ Opcja do zaznaczania obieku
#Region GUI
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$Form1 = GUICreate("Okienko", 820, 650, 100, 40)
$label = guictrlcreatelabel("okno", 763, 430)
$GUIActiveX = GUICtrlCreateObj($oIE, 20, 10, 600, 600)
$but = GUICtrlCreateButton("Zakładanie kont", 630, 200, 100, 25)
$but2 = GUICtrlCreateButton("Aktywacja kont", 630, 230, 100, 25)
$but3 = GUICtrlCreateButton("Stop", 630, 260, 100, 25)

GUISetState(@SW_SHOW, $bot)

Func autoblank()
   _IENavigate($oIE, "auto:blank")
EndFunc   ;==>autoblank

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
           Exit
       Case $but
           lol()
       Case $but2
           while pages()
           url2()
           wend

       Case $but3
           autoblank()
   EndSwitch
WEnd

Func lol()

   $path = "email.txt"
   $file = _FileCountLines($path)
   For $x = 1 To $file Step +1
       $email = FIleReadLine($path, $x)
       sleep(100)
       _IENavigate($oIE, "https://ssl.allegro.pl/Register.php")
       _IELoadWait($oIE)

       ;$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

       $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

       _IEFormElementSetValue($pole2, "Jacek")

       _IEFormElementSetValue($pole3, "Agniesta")

       _IEFormElementSetValue($pole4, "02-02-1989")

       _IEFormElementSetValue($pole5, "Kuropatwy 2")


       _IEFormElementSetValue($pole6, "70-999")

       _IEFormElementSetValue($pole7, "Miasto")
       _IEFormElementOptionSelect($pole8, "3")

       _IEFormElementOptionSelect($pole9, "16")

       _IEFormElementSetValue($pole01, "500550212")

       _GUICtrlListView_SetItemChecked($formalogowania, "confirmAdult", 0)
       sleep(20)

       $check = _IEGetObjById($oIE, "confirmAdult") ; pobieramy ID elementu
       _IEAction($check, "click") ; klikamy w ten element.
       _IEFormSubmit($formalogowania) ;potwierdzamy logowanie cos stylu wcisniecia ENTER'a
       $oIE.document.parentWindow.scroll(290, 300)
       sleep(2000)

   Next

EndFunc   ;==>lol


Func pages()
    $plik = "linki.txt"
    $licz = _FileCountLines($plik)
    FOr $x = 1 To $licz Step +1
    $czytaj = FileReadLine($plik,$x)
    _IENavigate($oIE,$czytaj,1)
Next
MsgBox(64,"","KONIEC!")
EndFunc

Func url2()


   $path = "user.txt"
   $file = _FileCountLines($path)
   For $x = 1 To $file Step +1
       $user2 = FIleReadLine($path, $x)
       sleep(100)

       $formalogowania = _IEFormGetCollection($oIE, 0) ;poniewaz to jedyna forma (liczymy od 0) to index to 0
       $pole11 = _IEFormElementGetObjByName($formalogowania, "login") ;patrzymy w źródle strony na Name input'a do loginu tutaj to "Email"
       $pole22 = _IEFormElementGetObjByName($formalogowania, "password")
       $pole33 = _IEFormElementGetObjByName($formalogowania, "password2")
       $pole44 = _IEFormElementGetObjByName($formalogowania, "maidenName")
       $pole55 = _IEFormElementGetObjByName($formalogowania, "ggUin")


       $obraz2 = _IEImgGetCollection($oIE, 1) ; wyszukuje 3 obrazek
       $sInfo2 = $obraz2.src & @CR ; pobiera jego link
       InetGet($sInfo2, "captcha.jpg") ; pobieramy obraz na dysk
       $bot2 = GUICreate("Przepisz CAPTCHE", 300, 165)
       GUICtrlCreatePic("captcha.jpg", 25, 0, 250, 100) ; dodajemy obraz do naszego GUI
       $input2 = GUICtrlCreateInput("Przepisz tekst z obrazka..", 25, 120, 250, 25)
       GUISetState(@SW_SHOW, $bot2)
       MsgBox(64, "Info", "Przepisz Captche")
       $kapcze2 = _IEGetObjByName($oIE, "captchaImageCode")
       _IEFormElementSetValue($kapcze2, GUICtrlRead($input2))
       GUIDelete($bot2)

       _IEFormElementSetValue($pole11, $user2) ;wpisujemy do pola loginu nasz wpisany loginu

       _IEFormElementSetValue($pole22, "janek11")

       _IEFormElementSetValue($pole33, "janek11")

       _IEFormElementSetValue($pole44, "NazwiskoPań")

       _IEFormElementSetValue($pole55, "3993478")
       sleep(100)

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


Next
   url2()

EndFunc   ;==>url2

</file.au3></guilistview.au3></windowsconstants.au3></guiconstantsex.au3></guiconstantsex.au3></guilistbox.au3></buttonconstants.au3></ie.au3>

 

 

z plików ma czytać:

email - do rejestracji konta

linki.txt - aktywacja konta + wpisanie pola user i przepisanie captche

user.txt - j/w plik z nickami

Nukereq.png
Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano

Heh. To 

</file.au3></guilistview.au3></windowsconstants.au3></guiconstantsex.au3></guiconstantsex.au3></guilistbox.au3></buttonconstants.au3></ie.au3>

nie jest potrzebne. :)

kiope Budowniczy

kiope

Opublikowano
Budowniczy

kiope

  • Autor
Opublikowano

Heh. To 

</file.au3></guilistview.au3></windowsconstants.au3></guiconstantsex.au3></guiconstantsex.au3></guilistbox.au3></buttonconstants.au3></ie.au3>

nie jest potrzebne. :)

 

sam wklejasz etykietke za spam, a sam nie odpowiadasz na konkretne pytania?

Nukereq.png
kiope Budowniczy

kiope

Opublikowano
Budowniczy

kiope

  • Autor
Opublikowano

@UP2, @UP4

Nie widzę żadnego pytania, kod działa prawidłowo zgodnie z opisem.

 

Kod działa ale racjonalnie myśląc, jak sie robi jedno konto to powinno sie otwierać jedna strona i po akcji otworzyć się druga...

 

Jak zmienić kod tak by strona sie ładowała w taki sposób?

 

1. ładuje sie strona z pliku

2. wpisuje pole login z pliku

3. ładuje obrazek captche

4. wypełnia reszte

5. wylogowuje się

6. Koniec -> ładuje się strona z pliku kolejna

7. wpisuje pole loginu z pliku kolejny itd..\

 

\\\\\\\\\\\\\\\\

 

narazie mam tak:

1. czyta wszystkie strony, wybiera ostatnią

2. Wpisuje pierwszy login

3. wypelnia

4. wylogowuje sie i kończy

 

@4ggr35510n- Nie wiem czy sobie wyobrażasz ale znów dostałem warna za spam. Czy ten moderator ma pojęcie co to SPAM? Zapraszam na wiki.

 

Sam do tego, toczy pogawędke o błędzie kodu zrobionego przez www mowa o tym zacytowanej linijce tekstu spod mojego skryptu.

 

 

 

Skoro on sugeruje odpowiedź, to czemu odpisuje poraz kolejny zamiast edytować post z wytłumaczeniem?

 

Nie umie zwięźle odpowiedzieć w zdaniu? Czy on sie nadaje na moda

Nukereq.png
4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

Faaktyyycznie, bezczelne obgadywanie; szczyt braku kultury, szeptać za plecami; chamstwo, mówić coś o kimś bez jego obecności; zwykłe plotki, kiblowe pogaduchy; tylko tchórze chowają się w publicznych wątkach!

 

A inna sprawa, że takie rzeczy to na PW. I do global adminów - chyba, że lubisz tak popłakiwać w wątkach, licząc, że który zajrzy do tego zapomnianego przez boga działu.

 

 

Na razie mam tak..

Więc zrób tak:

1. Przeczytaj wszystkie.

WHILE jest(n)

a. wybierz n

b. wpisz n login

c. wypełnij n

WEnd

4. Wyologuj sie i skoncz

 

Nie wiem, w czym problem.

Ta sygnatura jest pusta.

kiope Budowniczy

kiope

Opublikowano
Budowniczy

kiope

  • Autor
Opublikowano

Faaktyyycznie, bezczelne obgadywanie; szczyt braku kultury, szeptać za plecami; chamstwo, mówić coś o kimś bez jego obecności; zwykłe plotki, kiblowe pogaduchy; tylko tchórze chowają się w publicznych wątkach!

 

A inna sprawa, że takie rzeczy to na PW. I do global adminów - chyba, że lubisz tak popłakiwać w wątkach, licząc, że który zajrzy do tego zapomnianego przez boga działu.

 

 

 

Więc zrób tak:

1. Przeczytaj wszystkie.

WHILE jest(n)

a. wybierz n

b. wpisz n login

c. wypełnij n

WEnd

4. Wyologuj sie i skoncz

 

Nie wiem, w czym problem.

 

Paranoja, kod czyta wszystkie strony pokoleji po czym na ostatnią sie loguje. Żal. Umiesz czytaĆ?

Nukereq.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...