Stringsbetween need put to INPUT

[mojehyip]

HI

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:

C:\Program Files (x86)\AutoIt3\Include\IE.au3 (1953) : ==> Variable must be of type "Object".:
Return SetError($_IEStatus_Success, 0, $o_object.document.body.innerHTML)
Return SetError($_IEStatus_Success, 0, $o_object.document^ ERROR

Also question about:

$input1 = GUICtrlCreateInput("cos", 184, 152, 185, 21)

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.

expandcollapse popup

#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

[mojehyip]

bump

[BrewManNH]

A running script that shows the problem might be helpful to your getting an answer.

[mojehyip]

I have problem with my autoit code

Problems:

[ autoit ] ( ?do=embed' frameborder='0' data-embedContent> )

C:Program Files (x86)AutoIt3IncludeIE.au3 (1953) : ==> Variable must be of type "Object".: Return SetError($_IEStatus_Success, 0, $o_object.document.body.innerHTML) Return SetError($_IEStatus_Success, 0, $o_object.document^ ERROR

My code.

[ autoit ] ( - ?do=embed' frameborder='0' data-embedContent> )

#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

[mojehyip]

ANYONE CAN HELP?

[PhoenixXL]

I'm Getting confused

Please be a little more clear and post the Autoit code inside Autoit Tags

Edit : more preferably give the address of the website and mention the information you want

Also keep in mind that your request doesnt break the Forum Rules

Edited July 8, 2012 by PhoenixXL

[Melba23]

mojehyip,

That looks very much like a site login script and I am sure that you are not really navigating to the "auto:blank" page - so why are you not using the real page? Furthermore it mentions @teleworm.us which is not a email address I am happy to see used. As a result I am locking this thread as I am fairly sure it breaks at least 2 of our rules.

Please make sure you understand the Forum Rules before you post again.

M23