怎样用vb语言向一个html页面提交数据然后使那个html页面表单提交。

[noooon]

怎样用vb语言向一个html页面提交数据然后使那个html页面表单提交。可能我说的不太清楚，谢谢哪位朋友能帮忙

[zengbolingcsdn]

Private Sub LoginIn()
Dim vTag, vDoc
Dim i As Integer
Set vDoc = Web.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
Select Case vTag.Name
Case "username"
vTag.Value = "youname"
Case "password"
vTag.Value = "youpassword"
End Select

ElseIf vTag.Type = "submit" And vTag.Name = "Login" Then
vTag.Click
End If
End If
Next i
End Sub

• 打赏
• 举报

回复 赞