LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

VB自动填写网页,别用WebBrowser

admin
2014年3月25日 1:10 本文热度 5891

我想做一个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 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved