用VB自动填写网页表单

用 VB 自动填写网页表单

Public Sub WriteToForm(ByVal Obj As Object, ByVal sTagName As String, ByVal sName As String, ByVal Submit As Boolean, Optional sType As String = "",

Optional sValue As String = "", Optional sSelect As Boolean)

Dim i As Integer

Dim vDoc, vTag

sTagName = UCase(sTagName)

sType = UCase(sType)

sName = UCase(sName)

Else

If sType = "RADIO" Or sType = "CHECKBOX" Then

sValue = UCase(sValue)

If UCase(vTag.Name) = sName And UCase(vTag.Value) = sValue Then

If sSelect Then

vTag.Checked = True

Else

vTag.Checked = False

End If

End If