UC知道有没有会VB制作IE的朋友
来源：百度知道 编辑：UC知道 时间：2024/05/24 20:11:40
Private Sub Form_Load()
WebBrowser.Navigate "http://72.11.142.189/login.php" '这里是登陆页面
End Sub
Private Sub login_Click()
WebBrowser.Navigate "http://72.11.142.189/login.php" '这里是登陆页面
End Sub
Private Sub Timer1_Timer()
WebBrowser.Refresh '刷新时间
End Sub
Private Sub WebBrowser_StatusTextChange(ByVal text As String)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Timer1.Enabled = False '停止刷新
E
WebBrowser.Navigate "http://72.11.142.189/login.php" '这里是登陆页面
End Sub
Private Sub login_Click()
WebBrowser.Navigate "http://72.11.142.189/login.php" '这里是登陆页面
End Sub
Private Sub Timer1_Timer()
WebBrowser.Refresh '刷新时间
End Sub
Private Sub WebBrowser_StatusTextChange(ByVal text As String)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Timer1.Enabled = False '停止刷新
E
其他代码不变，只增加一条语句即可。
Private Sub WebBrowser_StatusTextChange(ByVal text As String)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser.Document
If vDoc Is Nothing Then Exit Sub '***增加的语句***
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Timer1.Enabled = False '停止刷新
End If
End If
Next i
End Sub
Private Sub WebBrowser_StatusTextChange
函数选择不当。。
用document complete