1、
Private Sub Form_Load()
Webbrowser1.navigate "http://blog.csdn.net/lbuskeep"
Do
DoEvents
If Not Webbrowser1.Busy And Webbrowser1.LocationURL <> "http://blog.csdn.net/lbuskeep" Then
MsgBox "OK"
Exit Do
End If
Loop
End Sub
Private Sub Webbrowser1_DocumentComplete(ByVal pdisp As Object,Url As Variant)
If (pdisp Is Webbrowser1.Object) Then
MsgBox Webbrowser1.LocationURL
End If
End Sub
2、
Private Sub Webbrowser_DocumentComplete(ByVal pdisp As Object,URL As Variant) '获得网页标题 If Not Webbrowser.Busy Then '判断网页是否下载完毕 Dim strTitle As String strTitle = Webbrowser.Document.DocumentElement.InnerHtml strTitle = Mid(strTitle,1,InStr(1,LCase(strTitle),"</title>") - 1) strTitle = Mid(strTitle,"<title>") + 7) Me.Caption = strTitle End If End Sub