Dim HtmlTempText As String
Private Sub Command1_Click()
Me.WebBrowser1.Navigate Me.Text1.Text
\'Form1.Show
\' Me.WebBrowser1.SetFocus
End Sub
Private Sub Form_Load()
\'Form1.Show
\'Me.WebBrowser1.SetFocus
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
WebBrowser1.SetFocus
Dim doc As Object
Set doc = WebBrowser1.Document
If InStr(doc.body.innerText, Text3.Text) > 0 Then
doc.All.Item("FontSize").focus
Dim objHtml As Object
Set objHtml = doc.body.createTextRange()
If Not IsNull(objHtml) Then
HtmlTempText = objHtml.htmlText
Text2.Text = HtmlTempText
End If
Dim tmp As String
tmp = "fasdfasdfsfd"
\'Dim aa As Long
\'aa = PostMessage(Me.WebBrowser1.hwnd, &H100, 9, 0)
SendKeys "{tab}"
SendKeys tmp
\'SendKeys "{tab}"
\' SendKeys "{tab}"
\' \'doc.All.Item("Submit").focus
\'SendKeys "{enter}"
Dim str As String
str = "asdf"
SendKeys "^{enter}"
End If
If InStr(doc.body.innerText, "fasdfasdfsfd") > 0 Then
doc.All.Item("FontSize").focus
tmp = "fasdfasdfsfd"
\'Dim aa As Long
\'aa = PostMessage(Me.WebBrowser1.hwnd, &H100, 9, 0)
SendKeys "{tab}"
SendKeys tmp
\'SendKeys "{tab}"
\' SendKeys "{tab}"
\' \'doc.All.Item("Submit").focus
\'SendKeys "{enter}"
SendKeys "^{enter}"
End If
If InStr(doc.body.innerText, "错误信息") > 0 Then
Me.WebBrowser1.Navigate Me.Text1.Text
End If
End Sub
