VB6.0 获取WebBrowser当前打开页面的网址

VB6.0可通过WebBrowser控件的DocumentComplete事件来获取当前打开页面的URL（网址）。

• DocumentComplete事件

  描述

  当被导航到该文件达到READYSTATE_COMPLETE状态时发生。

• URL 属性

  设置或返回 Execute 或 OpenURL 方法使用的
  URL。

• 代码实例，新建VB的EXE工程，添加一个WebBrowser控件到窗体，放置一个TextBox控件。

  Private Sub Form_Load()

      On Error GoTo useErr

      WebBrowser1.Navigate "http://zhidao.baidu.com/"

      Exit Sub

  useErr:

  Print "ERR"

  End Sub

  
  

  Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

      Text1.Text = URL

  End Sub

请在webbrowser浏览控件的documentcomplete()事件中添加代码：text1.text=url 在webbrowser控件的titlechange()事件中添加代码：me.caption=text 即可。实现效果：文本框text1中显示网页地址，窗体标题显示网页标题。希望对您有所帮助！

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub