VB自动填写网页，别用WebBrowser
|
admin
2014年3月25日 1:10
本文热度 10058
|
我想做一个VB软件，能自动填写网页的，我用WebBrowser做了一个，但是打开那个网页出现错误！！我是新手，请回答详细一些，能解决加给分！！急~~~~~~
补充： 我是要在已经打开好的网页上填写 比如我现在有一个网页 要填写姓名 性别 年龄等 我要怎么去做 才能在这几项的文本框里自动填数据！！是填指定的网页，不用自动打开！我按一个键程序就填那几项好了
该文章在 2014/3/25 1:10:35 编辑过
| |
全部评论2 |
|
admin
2014年3月25日 1:11
'自动登录Yahoo，修改一下
Private Sub Command1_Click()
yahoo
End Sub
Sub yahoo()
With CreateObject(InternetExplorer.Application)
.Visible = True
.navigate https://login.yahoo.com/config/login_verify2?&.src=ym
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(26).Value = my_user_id
.Document.Forms(0).All(29).Value = my_password
.Document.Forms(0).All(38).Click
End With
End Sub
追问：
我是要在已经打开好的网页上填写 比如我现在有一个网页 要填写姓名 性别 年龄等 我要怎么去做 才能在这几项的文本框里自动填数据！！是填指定的网页，不用自动打开！我按一个键程序就填那几项好了
回答：
首先要知道它们的id，不同网页是不一样的，知道了id用我上面的方法就行。
追问：
ID我得到了 能加你QQ吗 详细请教一下 感激不尽！！
该评论在 2014/3/25 1:11:25 编辑过
|
|
admin
2014年3月25日 1:11
Private Sub Command3_Click()
Dim vDoc, vTag
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 LCase(vTag.Name)
Case
'vTag.Value = Text1.Text '帐户
If i = 40 Then vTag.Value = Text1.Text '帐户
If i = 207 Then vTag.Value = Text2.Text '帐户
If i = 214 Then vTag.Value = Text2.Text '帐户
Case password
vTag.Value = 9999999999999999999 '密码
End Select
ElseIf vTag.Type = submit Then
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
Web.navigate http://reg.qq.com/
End Sub
'我也是新学的给你做个看看吧,
追问：
不是说了不用Webbrowser!!! 你还给用Webbrowser控件的答案！！
回答：
那就挺马烦的了,呵呵
追问：
不过还是谢谢你哦 那你能做个吗？
该评论在 2014/3/25 1:11:40 编辑过
|
400 186 1886
