VB obtains the browser address, and VB6 knows the browser URL

Here's an idea. 1.Get all IE windows.

3.Determine whether it starts with http:, and if so, get it.

I don't have an API browser for VB right now, and I don't have time, sorry, I have time to give it to you.

For the IE kernel file, the browser is hidden, and after operation, the browser browser will automatically record as soon as a new web page is opened.

private sub form_load()= 1000

end sub

private sub timer1_timer()dim oshellapp, oshellappwindows, owin

dim url as string

set oshellapp = createobject("")set oshellappwindows =for each owin in oshellappwindowsif lcase(typename( htmldocument" then

url =for i = 0 to - 1

if =url then t = truenextif t <>true then urlt = end if

nextend sub

Only IE does not use other browsers.

The default browser is not Internet Explorer, and VB can open the default browser you set to browse the web.

It can be opened in two ways.

**1) Use shell functions to call directly to open web pages.

private sub command1_click() dim stropen stropen = shell(" "

text1, 1)end subprivate sub form_load() text1 =

**2) Use the api function shellexecute to open the web page.

option explicit private declare function shellexecute lib ""

alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval

lpfile as string, byval lpparameters as string, byval lpdirectory as string,byval nshowcmd as long) as long dim strurl as string private sub openurl(turl as

string) shellexecute , "open", turl, 0, 0, 0end subprivate sub

command1_click() strurl = openurl (strurl)end subprivate sub

In both ways, you can open the web page you want to see with Google Chrome as your default browser.

shell you want to open.

Or use the webbroser control.

ShellWindows is an object that contains not only Internet Explorer web windows, but also other windows opened by the explorer, such as folders, various dialog boxes, etc. Judging from your phenomenon, the windows 0 and 1 are definitely not IE windows, so you will make a mistake if you get their **.

shell "explorerWrite here

Replace the bold text with the actual ** (note that it starts with http).