Get domain name from IE and append to text file

[Wanabeelee]

I'm very basic in my knowlege of programing.  Batch file is about as good as it gets, but willing to learn more.

What I am needing may be very simple for people who understand programing.

I need a button that is always ontop that reads the active IE windows and grabs the domain name only.  And appends it to a text file.

 

Example:

If I was at www.google.com, it would write google.com to line one in the text

if I clicked it while on another page http://ebm.e.redbox.com it would take the redbox.com and write it to line two of the text file.

Could someone show me how this would be done?

Thanks for your time and help.

[BugFix]

Have a look at: 

_IEPropertyGet()

With this function you can get the "locationurl". 

[Wanabeelee]

Like I said, I'm green like spring. 

I get an error.  Also thinking it will not get just the base domain name but the whole url.  Dont know how to make it into a button.  Little help please 

#include <File.au3>
#include <ie.au3>

$sURL = IEPropertyGet($oIE, "locationurl")



write("$sURL")

Func write($thingstowrite)

$sFilePath = @HomeDrive & "\test.txt"
_FileCreate($sFilePath)
$file 

= FileOpen($sFilePath, 1)
FileWrite($file,$thingstowrite & 

@CRLF)
FileClose($file)

EndFunc

[Danp2]

You have to set the value of $oIE before you can use it with any of the _IE functions. Suggest that you try reviewing and running some of the help file examples.

[Wanabeelee]

Been trying for hours,  Guess this is just beyond my understanding.

[BrewManNH]

Try this.

#include <ie.au3>
$oIE = _IECreate("www.google.com")
$sURL = _IEPropertyGet($oIE, "locationurl")
$sDomain = StringRight($sURL, StringInStr($sURL, ".", 0, -2) - 1)
write($sDomain)
Func write($thingstowrite)
    $sFilePath = @HomeDrive & "\test.txt"
    $file = FileOpen($sFilePath, 1)
    FileWrite($file, $thingstowrite & @CRLF)
    FileClose($file)
EndFunc   ;==>write

[Wanabeelee]

Try this.

#include <ie.au3>
$oIE = _IECreate("www.google.com")
$sURL = _IEPropertyGet($oIE, "locationurl")
$sDomain = StringRight($sURL, StringInStr($sURL, ".", 0, -2) - 1)
write($sDomain)
Func write($thingstowrite)
    $sFilePath = @HomeDrive & "\test.txt"
    $file = FileOpen($sFilePath, 1)
    FileWrite($file, $thingstowrite & @CRLF)
    FileClose($file)
EndFunc   ;==>write

A close thing.  It opens google.  I guess I'm not understanding the whole function thing.  Also in the url it is logging it cuts off the G in google.com  

I need it to grab what ever the current opened site is.

[jdelaney]

$sDomain = StringRight($sURL, StringInStr($sURL, ".", 0, -2) - 1)

change to:

$sDomain = StringRight($sURL, StringInStr($sURL, ".", 0, -2))

was playing around with regexp:

$sURL = "http://www.google.com/test/test/blah.bla"
$string = StringRegExpReplace($sURL, "(?i)(https?:/{2,2}w{0,3}.?)(.*.[w]{3,3})(W.*)", "2")

Edited June 3, 2013 by jdelaney

[Wanabeelee]

Thanks for the help.  Had a good friend write something up for me that works great.  I've learned a lot from your post. Thank you for your time.