VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 674|回复: 5

[求助] 如何模拟点击 特定网页的某个按钮

[复制链接]
发表于 2018-7-5 09:51:39 | 显示全部楼层 |阅读模式
本帖最后由 yuanyong911 于 2018-7-5 09:56 编辑

如何模拟点击 特定网页的某个按钮
比如网页上 有个 按钮 叫 “提交” 那个网页的标题 叫 “提交报表页面
我想实现 如何 使用VB 在这个页面上 自动点击 这个按钮。求高手 感激不尽。
且这个网页是我浏览器中某个页面。

现在 用户名 密码都能自动填写 只是 最后 那个提交 按钮 不知道 用什么办法 模拟点击


Dim IEList     As New ShellWindows
          Dim browser
          Dim Doc
            
          On Error Resume Next
            
          '遍历当前地浏览器窗口
          For Each browser In IEList
                  '找到需要地IE窗口
                  If browser.Document.Title = "提交报表页面" Then
                          '获得浏览器地文档对象
                          Set Doc = browser.Document
                           
                          '填写用户名字段
                          Doc.body.All("wcode").Value =text1
                          '填写密码字段
                          Doc.body.All("password").Value = text1
                           
                          '提交
                          Doc.body.All("orderByType").submit

                  End If
          Next




发表于 2018-7-5 15:54:02 | 显示全部楼层
Doc.body.All("orderByType").Click 我猜的
回复 支持 1 反对 0

使用道具 举报

发表于 2018-7-5 19:04:04 | 显示全部楼层
用《网页元素分析》模拟一下输入、提交,然后点击自动生成代码
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-7-5 10:22:53 | 显示全部楼层
有高手帮我看看吗 谢谢了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-7-8 11:13:40 | 显示全部楼层
vbfans01 发表于 2018-7-5 19:04
用《网页元素分析》模拟一下输入、提交,然后点击自动生成代码

这个工具太给力了 非常感谢!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-7-8 11:14:16 | 显示全部楼层
JuncoJet 发表于 2018-7-5 15:54
Doc.body.All("orderByType").Click 我猜的

多谢 我用的 WebBrowser1.Document.All("loginform").submit 最后终于成功了!多谢!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-11-21 13:55

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表