未处理的“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
