Get browser Address & IP

[EZEason]

How can I put the browser address & IP address into strings?

What doesn't kill you makes you stronger.

 

[rjoubert]

I'm assuming you're using ASP. Check out the SERVER_PROTOCOL and URL in the ASP Server variables collection.

http://www.w3schools.com/asp/coll_servervariables.asp

 

[EZEason]

No, VB6. The app will log web sites visited.

What doesn't kill you makes you stronger.

 

[rjoubert]

So this is a thick VB6 app on a user's PC? How does it log web sites visited? Does it look for an open Internet Explorer window, or does it have it's own web browser control?

 

[EZEason]

I figured it out. It is for company laptops when they are disconnected for the network. (on the road)

Global strURL As String
Global strURLName As String
Global strBrowser As String
Global strHWND As String

  Dim eWBShellWindow As New SHDocVw.ShellWindows
  Dim eWB As SHDocVw.WebBrowser

     For Each eWB In eWBShellWindow    
        strURL = eWB.LocationURL
        strURLName = eWB.LocationName
        strBrowser = eWB.Name
        strHWND = eWB.hwnd
     Next

Now I need to find out how to have it monitor the open browsers for changes. Anyone know how???

I have a function that will write my results to xml. Then when they reconnect to the network we can extract the file.

What doesn't kill you makes you stronger.