Embeded IE into GUI

DaleHohm · July 26, 2006

The embeded is in the first post, that last post I made was the script I was trying to get to work in the first post, any idea why it wont work?

You're just making this too hard. How about you post the errors you are getting and description of the problem you are having now that you presumably fixed your version problem.

Dale

Vivvic · July 26, 2006

Getting these errors

--> IE.au3 Warning from function _IEFormGetObjByName, $_IEStatus_NoMatch
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormSubmit, $_IEStatus_InvalidDataType

and the script wont log into gaia, so I cannot even check if posting works yet.

EDIT: Typo

Edited July 26, 2006 by Vivvic

DaleHohm · July 26, 2006

Getting these errors

--> IE.au3 Warning from function _IEFormGetObjByName, $_IEStatus_NoMatch
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormSubmit, $_IEStatus_InvalidDataType

and the script wont log into gaia, so I cannot even check if posting eorks yet.

Use _IENavigate() instead of .Navigate

Dale

Vivvic · July 26, 2006

Sorry for being soo....difficult, but now that I changed .navigate to _IENavigate I get this error

C:\Documents and Settings\Vivvic\Desktop\Codeing\Codeing\Gaia\Project\Gaia Online_TEST.au3(94,29) : ERROR: _IENavigate() called with wrong number of args.
                    _IENavigate($Gaia_login)
                    ~~~~~~~~~~~~~~~~~~~~~~~^
c:\program files\autoit3\beta\include\IE.au3(415,55) : REF: definition of _IENavigate().
Func _IENavigate(ByRef $o_object, $s_Url, $f_wait = 1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Vivvic\Desktop\Codeing\Codeing\Gaia\Project\Gaia Online_TEST.au3(104,57) : ERROR: _IENavigate() called with wrong number of args.
        Global $Embed = _IENavigate($Gaia_login, 0, 1, 1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
c:\program files\autoit3\beta\include\IE.au3(415,55) : REF: definition of _IENavigate().
Func _IENavigate(ByRef $o_object, $s_Url, $f_wait = 1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Vivvic\Desktop\Codeing\Codeing\Gaia\Project\Gaia Online_TEST.au3 - 2 error(s), 0 warning(s)

EDIT:

Decided to add my code to make sure I did it correct.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;              Emit               ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;Origonal 'post bot' by Codemyster;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <c:/program files/autoit3/beta/include/IE.au3>
#include <GUIConstants.au3>
;+++++++++++++++++++++++++++++++++++++++++++++
$gui = GUICreate("Gaia Online Bot .~*BETA*~.", 800, 600, 0, 0);375, 170, -1, -1

#c
;+++++++++++++++++++++++++++++++++++++++++++++
#cs
FileInstall( "C:\Documents and Settings\Vivvic\Desktop\Codeing\Gaia\project\avatar_guest.gif" , "./" )
guictrlcreatepic("C:\Documents and Settings\Vivvic\Desktop\Codeing\Gaia\project\avatar_guest.gif" , 615 , 50 )
guictrlsetstate( -1, $GUI_DISABLE)
#ce
;+++++++++++++++++++++++++++++++++++++++++++++
$Embed = _IEcreateEmbedded ()
$Embed.document.body.scroll = "yes"
$gui = $Embed
;+++++++++++++++++++++++++++++++++++++++++++++
;$feedbackmenu = GuiCtrlCreateMenu ("Feedback")
;$seperator = GuiCtrlCreateMenuitem ("",$feedbackmenu)
;$emiT = GuiCtrlCreateMenuitem ("Emit",$Feedbackmenu)
;$seperator1 = GuiCtrlCreateMenuitem ("",$feedbackmenu)
;+++++++++++++++++++++++++++++++++++++++++++++
;$Word_Bump_bot= GUICtrlCreateButton("Word Bump", 645, 410, 150, 30)
;$Gaia_Slot_bot= GUICtrlCreateButton("Gaia Slots Bot", 645, 445, 150, 30)
;$Lurk_bot= GUICtrlCreateButton("Gaia Lurk Bot", 645, 480, 150, 30)
$Post_bot= GUICtrlCreateButton("<^*~*~*Gaia Post Bot*~*~*^>", 645, 515, 150, 30)
;$Fishing_bot= "coming soon"
;$Marketplace_bot= "coming soon"
$STOP= GUICtrlCreateButton("STOP", 645, 550, 150, 30)
;+++++++++++++++++++++++++++++++++++++++++++++
$Username = GUICtrlCreateInput("", 700, 15, 95, 18, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Username:", 645, 15, 50, 15)
$Password = GUICtrlCreateInput("", 700, 40, 95, 18, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Password:", 645, 40, 50, 15)
$Message = "*Bump*"
;+++++++++++++++++++++++++++++++++++++++++++++
GUICtrlCreateObj($Embed, 5, 5, 635, 570)
$Embed.navigate ("http://gaiaonline.com")
;+++++++++++++++++++++++++++++++++++++++++++++
GuiSetState ()
    While 1
        $msg = GUIGetMsg()
            Select
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $STOP
                $Loop = 0
;+++++++++++++++++++++++++++++++++++++++++++++
#cs
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Fishing_bot
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Marketplace_bot
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $emiT
                MsgBox(0, "Feedback", "Feel free to" & @CRLF & "email feedback to" & @CRLF & "Emit@30gigs.com")
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Gaia_Slot_bot
                $Loop = 1
                Do
                    
                Until $Loop = 0
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Word_Bump_bot
                $Embed.navigate ("http://www.gaiaonline.com/games/launch.php?g=wordbump")
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Lurk_bot
                $Loop = 1
                $time = 12000
                Do
                    
                Until $Loop = 0             
;+++++++++++++++++++++++++++++++++++++++++++++
#ce
;+++++++++++++++++++++++++++++++++++++++++++++
            Case $msg = $Post_bot
                ;$Bump_NUM = 0
                ;$Bump_NUM = $Bump_NUM + 1
                $loop = 1
                $Bump_NUM = 0
                $TopicNumber = "15949257"
                $PostNumber = ""
                $var        =  ""
                $var2      =  ""
                Dim $Thread[4]  = ["http://gaiaonline.com/forum/viewtopic.php?t=" & $TopicNumber,"http://www.gaiaonline.com/forum/posting.php?mode=edit&p=" & $PostNumber,"http://www.gaiaonline.com/forum/posting.php?mode=reply&tc=1&t=" & $TopicNumber,"http://www.gaiaonline.com/forum/posting.php?mode=reply&tc=561&t=" & $TopicNumber]
                $Forum    =  "http://gaiaonline.com/forum/viewforum.php?f=23"
                $Main      =  "http://gaiaonline.com"
                $Exit      =  1
                $Gaia_login = "http://www.gaiaonline.com/gaia/login.php?"
                    _IENavigate($Gaia_login)
                    Call("Process")
;+++++++++++++++++++++++++++++++++++++++++++++
            EndSelect
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend
;+++++++++++++++++++++++++++++++++++++++++++++
Func Begin()
    If $Exit = 1 Then
        $Exit = 0
        Global $Embed = _IENavigate($Gaia_login, 0, 1, 1)
        Call("Process")
    EndIf
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++  
Func Process()
    Call("Login")
    Call("Post")
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++
Func Login()
    $Login = _IEFormGetObjByName($Embed,"loginForm")
    $User = _IEFormElementGetObjByName($Login,"username")
    $Pass = _IEFormElementGetObjByName($Login,"password")
    _IEFormElementSetValue($User,$Username)
    _IEFormElementSetValue($Pass,$Password)
    _IEFormSubmit($Login)
    $var2 = _IEPropertyGet($Embed,"locationurl")
    $var = "&" & StringMid($var2,37, 9999)
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++
Func Logout()
    _IENavigate($Embed,$Main)
    _IELinkClickByText($Embed,"Logout")
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++
Func Post()
    While $Loop = 1 ;And $Bump_NUM <= 200
        _IENavigate($Embed,$Thread[2] & $var)
        $Post = _IEFormGetObjByName($Embed,"post")
        $Mess = _IEFormElementGetObjByName($Post,"message")
        _IEFormElementSetValue($Mess,$Message)
        _IEFormImageClick ($Post,"Submit","alt")
        Sleep(55000)
                _IENavigate($Embed,$Thread[3] & $var)
        $Post = _IEFormGetObjByName($Embed,"post")
        $Mess = _IEFormElementGetObjByName($Post,"message")
        _IEFormElementSetValue($Mess,$Message)
        _IEFormImageClick ($Post,"Submit","alt")
        Sleep(45000)
    WEnd
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++
 Func start()
    Begin()
EndFunc
;+++++++++++++++++++++++++++++++++++++++++++++

Edited July 26, 2006 by Vivvic

DaleHohm · July 26, 2006

You have a strange habit of posting error messages that don't match your code.

Vivvic · July 26, 2006

Well Im sorry, I just post what it says, if it helps, I use the "beta run" option in SciTE.

MHz · July 26, 2006

Au3Check can result in a domino effect with errors. In other words, look at the 1st error, solve it and the others may disappear.

Look in the Beta helpfile for _IENavigate() and you find your 1st error is a syntax error as 2 parameters is the minimun required for _IENavigate().

SvenP · July 26, 2006

...

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;              Emit               ;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;Origonal 'post bot' by Codemyster;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <c:/program files/autoit3/beta/include/IE.au3>
#include <GUIConstants.au3>
;+++++++++++++++++++++++++++++++++++++++++++++
$gui = GUICreate("Gaia Online Bot .~*BETA*~.", 800, 600, 0, 0);375, 170, -1, -1

#c
;+++++++++++++++++++++++++++++++++++++++++++++
#cs
FileInstall( "C:\Documents and Settings\Vivvic\Desktop\Codeing\Gaia\project\avatar_guest.gif" , "./" )
guictrlcreatepic("C:\Documents and Settings\Vivvic\Desktop\Codeing\Gaia\project\avatar_guest.gif" , 615 , 50 )
guictrlsetstate( -1, $GUI_DISABLE)
#ce
;+++++++++++++++++++++++++++++++++++++++++++++
$Embed = _IEcreateEmbedded ()
$Embed.document.body.scroll = "yes"
$gui = $Embed
^^^ And you have just killed your reference variable to your GUI....

-Sven

Vivvic · July 26, 2006

Ok, thanks, I got the errors fixed(t leastthe ones that popup), but am still getting these In the SciTE Console.

--> IE.au3 Warning from function _IEFormGetObjByName, $_IEStatus_NoMatch
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormImageClick, $_IEStatus_InvalidDataType

And it now goes to the login page, but it enters the wrong username and password (username 5? maby an error code?) If someone could test with the account I provided it might give some insight, thanks again for the help so far.

DaleHohm · July 26, 2006

Ok, thanks, I got the errors fixed(t leastthe ones that popup), but am still getting these In the SciTE Console.
--> IE.au3 Warning from function _IEFormGetObjByName, $_IEStatus_NoMatch
--> IE.au3 Error from function _IEFormElementGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType
--> IE.au3 Error from function _IEFormImageClick, $_IEStatus_InvalidDataType
And it now goes to the login page, but it enters the wrong username and password (username 5? maby an error code?) If someone could test with the account I provided it might give some insight, thanks again for the help so far.

Like AU3Check, the messages from IE.au3 cascade. Messages 2-5 are a result of the condition that caused the first. I output those messages to the console for you as a convenience, you may want to start checking the return status of the function calls and take appropriate actions.

Take a look at it -- it should be very useful. It tells you that you called the function _IEFormGetObjByName and that there was NoMatch for the form name you supplied to the function.

Find the places in your code where you call this function and put in some ConsoleWrite debugging statements to help you narrow down the issue. You can also use the SciTe "Trace Add Trace Lines" function in the tools menu. Right now you seem to have a tiger by the tail as you don't really understand the flow of your own code.

I told you to use _IENavigate instead of .Navigate because _IENavigate calls _IELoadWait and insures that your page is fully loaded before trying to access document elements on the new page. It looks like you did this in one or more places in your code, but not all. This could still be the source of your trouble, but start breaking it down and dig into the flow so taht you can properly troubleshoot this.

Dale

Vivvic · July 26, 2006

Changed all all to _IENavigate, that much works.

>When I try to look at the control ID for the embeded IE window it dosnt show.

Press CTRL-ALT-F to pause the display.

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title:  Gaia Online Bot .~*BETA*~.
Class:  AutoIt v3 GUI
Size:   X: 188  Y: 20   W: 806  H: 632

>>>>>>>>>>> Mouse Details <<<<<<<<<<<
Screen: X: 599  Y: 342
Cursor ID:  5

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB:    Hex: 0xFFFFFF   Dec: 16777215

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size:       X: 5    Y: 5    W: 635  H: 570
Control ID: 
ClassNameNN:    Internet Explorer_Server1
Text:       
Style:      0x56000000
ExStyle:        0x00000000

>>>>>>>>>>> Status Bar Text <<<<<<<<<<<


>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
<^*~*~*Gaia Post Bot*~*~*^>
STOP

Any way to fix this?

big_daddy · July 26, 2006

Changed all all to _IENavigate, that much works.
>When I try to look at the control ID for the embeded IE window it dosnt show.
Any way to fix this?

Nope, because its not broken. :whistle:

If you need to reference the embedded browser just use the variable given to _IECreateEmbedded.

Vivvic · July 26, 2006

I am referncing the Embeded IE window, but in the window it cant find the Control ID's

Func Login()
    $Login = _IEFormGetObjByName($Embed,"loginForm")
    $User = _IEFormElementGetObjByName($Login,"username")
    $Pass = _IEFormElementGetObjByName($Login,"password")
    _IEFormElementSetValue($User,$Username)
    _IEFormElementSetValue($Pass,$Password)
    _IEFormSubmit($Login)
    $var2 = _IEPropertyGet($Embed,"locationurl")
    $var = "&" & StringMid($var2,37, 9999)
EndFunc

$embed = the variable given to _IECreateEmbedded

big_daddy · July 26, 2006

I am referncing the Embeded IE window, but in the window it cant find the Control ID's
$embed = the variable given to _IECreateEmbedded

The window info tool does not work with browser objects. You instead need to get a reference to the object from the $embed variable.

Vivvic · July 26, 2006

How would I do that?

DaleHohm · July 26, 2006

How would I do that?

You're in over your head right now. Please take a deep breath and go back and work through examples in the helpfile until you understand how it works. Try simple things and ask simple questions for a bit.

It shouldn't take you too long if you work at it seriously. In my opinion your current project is just too ambitous for your current level of understanding.

Dale

Vivvic · July 26, 2006

Alright, will do, thanks for all the help.

Embeded IE into GUI

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members