Get cuurent URL using IE.au3

[plat]

Hi;

I am having trouble with IE.au3 syntax; The following code will navigate to an url already in the clipboard but what I am trying to achieve is to capture the current URL to a variable- say by right clicking a systray context menu from the application I am writing.

The end aim is to be able to download the current page using InetGet for offline string parsing without having to hightlight the text in the URL bar first as the example below would require.

Any thoughts greatly appreciated...

#include <IE.au3>

$sURL = ClipGet()

$oIE = _IECreate ($sURL)

$addr = _IEPropertyGet ($oIE, "LocationURL")

Msgbox(0, "", $addr)

[DaleHohm]

Your syntax looks fine. I ran your code and ended up with the current URL in $addr

What happens for you? Do I misunderstand your question?

Dale

[plat]

Your syntax looks fine. I ran your code and ended up with the current URL in $addr

What happens for you? Do I misunderstand your question?

Dale

Hi Dale; The bit I am having trouble with is how to get $addr assigned on the fly; Surf the net and at I time I choose hit a key and the script grabs the current url for me (i.e. no need to manually select contents of address bar & ctrl+c to populate the clipboard)

[DaleHohm]

how to get $addr assigned on the fly; Surf the net and at I time I choose hit a key and the script grabs the current url for me

I'm sorry, I need to to be more explicit about what you are trying to do. This is way too ambiguous.

Dale

[lod3n]

expandcollapse popup

#include <IE.au3>
Opt("GUIOnEventMode", 1)
global $title = "IE Monitor"

; the following sets CTRL-F12 as your on the fly url grabbing hotkey, 
; but change this to what you want
if not HotKeySet ( "^{f12}" , "graburl" ) then 
    msgbox(0,$title,"Error, could not set graburl hotkey")
    Exit
EndIf
if not HotKeySet ( "{esc}" , "abort" ) then 
    msgbox(0,$title,"Error, could not set abort hotkey")
    Exit
EndIf


$sURL = ClipGet()
if stringinstr($sURL,"http://") Then
    global $oIE = _IECreate ($sURL)
Else
    global $oIE = _IECreate ()
EndIf

while 1
    sleep(1000)
WEnd


func graburl()
    $addr = _IEPropertyGet ($oIE, "LocationURL")
    clipput($addr)
    Msgbox(0, $title, $addr)
EndFunc

func abort()
    Msgbox(0, $title, "Esc pressed, aborting")
    Exit
EndFunc

Edited August 17, 2006 by lod3n

[AceLoc]

also check out IE builder v2

[plat]

Turns out the following code achieves what I need

Thanks eveyone for your input...

$oIE = _IEAttach ("bbc")

$ItemAddress = _IEPropertyGet ($oIE, "locationurl")