Form provision一篇英文文献.是关于Form provision的~Form provi

网友回答

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim oDoc As HTMLDocument
Dim oTextarea As Object
Dim oButton As Object
Dim strDocument As String '内容正文
Dim lngLoopCount As Long '循环用自变量
Set oDoc = WebBrowser1.Document '获得文档对象
strDocument = WebBrowser1.Document.body.innerText '获取显示的全部文字
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub '判断当前网页是否全部调入完毕
'是浏览帖子的页面
If LCase(Left(WebBrowser1.LocationURL, Len(gstrViewUrl))) = gstrViewUrl Then
If Not InStr(1, strDocument, 九个太阳 提示信息, vbTextCompare) = 0 Then
Exit Sub