VB 獲取瀏覽器位址，VB6 知道瀏覽器 URL

這裡有乙個想法。 1.獲取所有 IE 視窗。

3.確定它是否以 http： 開頭，如果是，請獲取它。

我現在沒有VB的API瀏覽器，我沒有時間，對不起，我有時間給你。

對於IE核心檔案，瀏覽器是隱藏的，操作後，一旦開啟新的網頁，瀏覽器瀏覽器就會自動記錄。

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

只有IE不使用其他瀏覽器。

預設瀏覽器不是 Internet Explorer，VB 可以開啟您設定為瀏覽 Web 的預設瀏覽器。

它可以通過兩種方式開啟。

**1）使用 shell 函式直接呼叫開啟網頁。

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

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

**2）使用 api 函式 shellexecute 開啟網頁。

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

通過這兩種方式，您都可以使用 Google Chrome 作為預設瀏覽器開啟要檢視的網頁。

要開啟的 shell。

或者使用 webbroser 控制項。

ShellWindows 是乙個物件，它不僅包含 Internet Explorer Web 視窗，還包含資源管理器開啟的其他視窗，例如資料夾、各種對話方塊等。 從你的現象來看，windows 0 和 1 絕對不是 IE 視窗，所以如果你得到它們的**，你會犯錯。

shell "explorer寫在這裡

將粗體文字替換為實際的 **（請注意，它以 http 開頭）。