未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 mscorlib.dll 中。

[2066]

未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 mscorlib.dll 中。

其他信息: 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

[littlechang]

加上on error resume next 是忽略了错误.

• 打赏
• 举报

回复 赞

[2066]

to :littlechang(小常)
有没有办法消除错误？

• 打赏
• 举报

回复 赞

[elite2018]

check your Permission of Aspnet user

• 打赏
• 举报

回复 赞

[littlechang]

加一个try...catch

• 打赏
• 举报

回复 赞

[2066]

已经解决。

• 打赏
• 举报

回复 赞