VB自动填写网页，别用WebBrowser
|
admin
2014年3月25日 1:10
本文热度 5948
|
我想做一个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
