This topic is locked
Just trying do some program what coolect informations. Just administration tool to check someone ip with ability to login on site > take string from line and put it into INPUT.
For practics i maked one more time but now compile not working, i make functions and strings from pl.fakenamegenerator.com and all data should be in input = How do that.
Problems:
Also question about:
I want get some like that:
$input1 = GUICtrlCreateInput($name + $from + "How many awards:" + $awards, 184, 152, 185, 21) $name = ("Brian") $from = ("Poland") $Awards = ("50")
My code.
AutoIt
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <GUIListBox.au3> #include <Misc.au3> #include <String.au3> #include <Array.au3> ;ToolTip("Załadowany",0,0,"STATUS") Check this cool named action #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 924, 568, 50, 20) Global $oIE = _IECreateEmbedded() Local $kod_strony = _IEBodyReadHTML($oIE) _IENavigate($oIE, "auto:blank") $Save = GUICtrlCreateButton("Zapisz", 820, 448, 81, 33, $WS_GROUP) $Tab1 = GUICtrlCreateTab(3, 60, 800, 500) GUICtrlSetFont(-1, 10, 800, 0, "Segoe Print") GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Fake ustawienia") #region Zmienne lokalne ; czyta stronę local $g_Imie = _StringBetween($kod_strony, '<span class="given-name">', '</span>') ;od jakiego miejsca do jakiego miejsca przeczytać $g_Nazwisko = _StringBetween($kod_strony, '<span class="family-name">', '</span>') $g_Ulica = _StringBetween($kod_strony, '<span class="street-address">', '</span>') $g_Miejscowosc = _StringBetween($kod_strony, '<span class="locality">', '</span>') $g_wojewodztwo = _StringBetween($kod_strony, '<span class="region">', '</span>') $g_kodpocztowy = _StringBetween($kod_strony, '<span class="postal-code">', '</span>') $g_dataurodzenia = _StringBetween($kod_strony, '<li class="bday">', '</li>') $g_haslo = _StringBetween($kod_strony, '<li class="lab">Hasło:</li><li>', '</li>') $g_login = _StringBetween($kod_strony, '<li class="lab">Użytkownik:</li><li>', '</li>') $g_email = _StringBetween($kod_strony, '<li class="email"><span class="value">', '</span>') $g_creditcard = _StringBetween($kod_strony, '<li class="lab">MasterCard:</li><li>', '</li>') $g_cvv2 = _StringBetween($kod_strony, '<li class="lab">CVC2</li><li>', '</li>') $g_expire = _StringBetween($kod_strony, '<li class="lab">Wygasa:</li><li>', '</li>') $g_www = _StringBetween($kod_strony, '<span class="">', '</span>') #endregion $input1 = GUICtrlCreateInput("cos", 184, 152, 185, 21) $Input2 = GUICtrlCreateInput("Ulica + Numer domu", 184, 208, 185, 21) $Input3 = GUICtrlCreateInput("Miasto + Kod pocztowy", 184, 264, 185, 21) $Input4 = GUICtrlCreateInput("xxxxxxxxxxxxxxxx", 408, 136, 89, 21) $Input5 = GUICtrlCreateInput("xxxxxxxxxxxxxxxxxxx", 408, 160, 105, 21) $Input6 = GUICtrlCreateInput(" @teleworm.us", 408, 184, 113, 21) $Input7 = GUICtrlCreateInput("eliteportal.eu", 408, 208, 105, 21) $Input8 = GUICtrlCreateInput("0000 0000 0000 0000", 408, 232, 129, 21) $Input9 = GUICtrlCreateInput("000", 408, 256, 41, 21) $Input10 = GUICtrlCreateInput("00/0000", 408, 280, 73, 21) $Pic1 = GUICtrlCreatePic("", 272, 128, 49, 17) $Label0 = GUICtrlCreateInput("Miesiąc 0, 0000 (00 lat)", 184, 320, 185, 21) $Label1 = GUICtrlCreateLabel("Imię i Nazwisko", 192, 128, 77, 17) $Label2 = GUICtrlCreateLabel("Ulica + Numer domu", 192, 184, 100, 17) $Label3 = GUICtrlCreateLabel("Miasto, Kod pocztowy", 192, 240, 108, 17) $Label4 = GUICtrlCreateLabel("Data urodzenia => Wiek", 184, 296, 119, 17) $Label5 = GUICtrlCreateLabel("Login", 376, 136, 30, 17) $Label6 = GUICtrlCreateLabel("Haslo", 376, 160, 31, 17) $Label7 = GUICtrlCreateLabel("Email", 376, 184, 29, 17) $Label7 = GUICtrlCreateLabel("Email", 376, 184, 29, 17) $Label8 = GUICtrlCreateLabel("www", 376, 208, 28, 17) $Label9 = GUICtrlCreateLabel("Visa", 376, 232, 24, 17) $Label10 = GUICtrlCreateLabel("CVV2", 376, 256, 31, 17) $Label11 = GUICtrlCreateLabel("Expire", 376, 280, 33, 17) $Generator = GUICtrlCreateButton("Generuj moje dane", 384, 312, 177, 73) GUICtrlSetFont(-1, 10, 800, 0, "Segoe Print") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Reg1() Case $Button2 Case $Button13 Case $Button15 EndSwitch WEnd
