主题：[求助]WebBrowser中获取选择的唯一连接地址

 做一个按钮，写代码

Dim address As String = Forms("窗口1").Controls("TextBoxAddress").Text

If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
If Not address.StartsWith("http://") And _
    Not address.StartsWith("https://") Then
    address = "http://" & address
End If

Try
    Forms("窗口1").Controls("WebBrowser1").baseControl.Navigate(New Uri(address))
Catch ex As System.UriFormatException
    Return
End Try

 然后在第一个事件写代码

Forms("窗口1").Controls("TextBoxAddress").Text = e.Url.ToString()