其他信息: Unknown error
运行到
If UCase(vDoc.item(i).tagname) = "INPUT" Or UCase(vDoc.item(i).tagname) = "TEXTAREA" Or UCase(vDoc.all(i).tagname) = "FORM"
为什么出现上面的错误？
而加上on error resume next 却可以正常运行。
Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.CompareMethod
Imports mshtml
Public Sub cmdFill_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cmdFill.Click
'On Error Resume Next
If brow.LocationURL <> "" Then
If Not brow.Busy Then
Dim vDoc As Object = brow.Document.all
Dim vTag As Object
Dim AllCount As Integer = vDoc.length - 1
For i = 0 To AllCount
If UCase(vDoc.item(i).tagname) = "INPUT" Or UCase(vDoc.item(i).tagname) =
"TEXTAREA" Or UCase(vDoc.all(i).tagname) = "FORM" Then
vTag = vDoc.item(i)
End If
End Sub
'Delay(DateTime.FromOADate(3))
End If
End If
End Sub
#End Region
5 个解决方案
#1
加一个try...catch
#2
加上on error resume next 是忽略了错误.
#3
to :littlechang(小常)
有没有办法消除错误？
有没有办法消除错误？
#4
check your Permission of Aspnet user
#5
已经解决。
#1
加一个try...catch
#2
加上on error resume next 是忽略了错误.
#3
to :littlechang(小常)
有没有办法消除错误？
有没有办法消除错误？
#4
check your Permission of Aspnet user
#5
已经解决。