VB 判断 WebBrowser是否已经加载网页完毕
2011-02-15 14:45
761 查看
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, InStr(1, LCase(strTitle), "<title>") + 7)
Me.Caption = strTitle
End If
End Sub
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, InStr(1, LCase(strTitle), "<title>") + 7)
Me.Caption = strTitle
End If
End Sub
相关文章推荐
- C#使用Webbrowser来判断网页是否加载完毕
- VB判断webbrowser网页加载完毕
- C#使用Webbrowser来判断网页是否加载完毕
- c#,WebBrowser 判断网页是否加载完毕
- webBrowser载入网页机制-网页加载是否完毕判断
- 判断多Frame网页是否真正加载完毕(CHtmlView)
- 判断webbrowser页面是否完全加载完毕的方法
- 判断iframe中的网页是否加载完毕代码
- c#如何判断webbrowser已经加载完毕
- JavaScript判断页面是否已经加载完毕
- Webbrowser控件判断网页加载完毕的简单方法
- WPF webbrowser 判断网页加载完毕
- c#如何判断webbrowser已经加载完毕
- Webbrowser控件判断网页加载完毕的简单方法
- VC 判断 多Frame 网页是否加载完毕
- js判断网页是否加载完毕----包括图片
- JavaScript判断图片是否已经加载完毕的方法汇总
- 通过IWebBrowser2的Navigate2来打开网页,怎样判断网页是否全部加载完毕
- 判断多Frame网页是否真正加载完毕(CHtmlView)
- 判断多Frame网页是否真正加载完毕(CHtmlView)