如何使用VB编程操纵网页
发布网友
发布时间：2022-06-15 23:18
共1个回答
热心网友
时间：2023-10-29 22:32
Dim vDoc, vTag
Dim I As Integer
Set vDoc = w1.Document
For I = 0 To vDoc.All.length - 1
If UCase(vDoc.All(I).tagName) = "INPUT" Then
Set vTag = vDoc.All(I)
Select Case vTag.Name
Case "u" '用户名
vTag.Value = Text5.Text
Case "p" '密码
vTag.Value = Text6.Text
Case "verifycode" '验证码
vTag.Value = Text7.Text
End Select
Select Case vTag.Type
Case "submit" '登陆
vTag.Click
End Select
End If
Next I
用这个就可以操作网页，具体的你要查看网页源文件
