Sign in to follow this  
Followers 0
nassausky

Insert button or text on top of Internet Explorer window

4 posts in this topic

#1 ·  Posted (edited)

I was looking to put a button on top of Internet Explorer.  The position isn't critical at the moment as long as it is displayed anywhere in the window.I was playing with some code I found on a thread about ANYGUI.au3 but I just can't piece it together.

I got 2 sample code pieces to function using calculator & notepad which were listed in the posts of the ANYGUI thread by quaizywabbit and zcoacoaz at ('?do=embed' frameborder='0' data-embedContent>>)  and modified 'em as follows but no button displays inside my newly opened IE window:

 
 
Here is what I have

#include <ie.au3>
#include <ANYGUIv2.8.au3>
#include <guiconstants.au3>


Opt("WinTitleMatchMode", -2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Local $iPID = Run("C:\Program Files\Internet Explorer\iexplore.exe", "" )
WinWait ("[CLASS:IEFrame]", "")

$Pos = WinGetPos ( "Internet" )
$Ctrltarget = _GuiTarget ( "Internet", 1 )
$Quit = _TargetAddButton ( "TEST BUTTON", 20, 20, 50, 29 )
$Quit = $Quit[0]
GUISetState ( )

While 1
    $msg = GUIGetMsg ( )
    If $msg = $Quit Then Exit
    If Not WinExists ( "Internet" ) Then Exit
WEnd

Func OnAutoItExit()
    ProcessClose ( "iexplore.exe" )
EndFunc

Any real basic code or tips to place a button or text so that it is visible on IE?

Thanks

Edited by nassausky

Share this post


Link to post
Share on other sites

Thanks but so far that didn't work: I think that is causing a crossdomain issue. I modified the code as follows:

#include <IE.au3>

Local $oIE = _IECreate()
Local $sHTML = ""
$sHTML &= "<HTML>" & @CRLF
$sHTML &= "<HEAD>" & @CRLF
$sHTML &= "<TITLE>_IE_Example('frameset')</TITLE>" & @CRLF
$sHTML &= "</HEAD>" & @CRLF
$sHTML &= "<FRAMESET rows='25,200'>" & @CRLF
$sHTML &= " <FRAME NAME=Top SRC=about:blank>" & @CRLF
$sHTML &= " <FRAME NAME=Bottom SRC='http://www.google.com'>" & @CRLF
$sHTML &= "</FRAMESET>" & @CRLF
$sHTML &= "</HTML>"
_IEDocWriteHTML($oIE, $sHTML)
_IEAction($oIE, "refresh")
Local $oFrameTop = _IEFrameGetObjByName($oIE, "Top")
Local $oFrameBottom = _IEFrameGetObjByName($oIE, "Bottom")
_IEBodyWriteHTML($oFrameTop, '$oFrameTop = _IEFrameGetObjByName($oIE, "Top")')
_IEBodyWriteHTML($oFrameBottom, '$oFrameMain = _IEFrameGetObjByName($oIE, "Bottom")')

Share this post


Link to post
Share on other sites

Ok thanks great. Just checked into your other option. This will work for now.   

; Insert HTML at the top and bottom of a document

#include <IE.au3>

Local $oIE = _IECreate("http://www.autoitscript.com")
Local $oBody = _IETagNameGetCollection($oIE, "body", 0)
_IEDocInsertHTML($oBody, "<h2><font color=red>This HTML is inserted After Begin</font></h2>", "afterbegin")
_IEDocInsertHTML($oBody, "<h2><font color=red>This HTML is inserted Before End</font></h2>", "beforeend")

To move this on forward, may I ask how to possibly add text or a button to the title bar of IE in Windows 7?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0