1,502
社区成员
发帖
与我相关
我的任务
分享怎样用vb语言向一个html页面提交数据然后使那个html页面表单提交。
怎样用vb语言向一个html页面提交数据然后使那个html页面表单提交。可能我说的不太清楚，谢谢哪位朋友能帮忙
...全文
请发表友善的回复…
发表回复
zengbolingcsdn 2004-05-06
- 打赏
- 举报
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
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
