永发信息网

高分求VB模拟按下“百度一下”的按钮

答案:2  悬赏:0  手机版
解决时间 2021-05-16 23:11
  • 提问者网友:嘚啵嘚啵
  • 2021-05-16 11:07

在VB6.0里,如何实现如上的问题呢?不可以使用鼠标模拟单击。

例如:

按下command1的同时就按下了“百度一下”的这个按钮进行搜索

问题也够清楚了,希望回复的都是些高质量答案。

最佳答案
  • 五星知识达人网友:归鹤鸣
  • 2021-05-16 12:09
这个问题可以加我的QQ详聊,远程操作解释给你看。
全部回答
  • 1楼网友:蓝房子
  • 2021-05-16 12:53

Private Sub Command1_Click() Dim vDoc As Object Dim vTag As Object Dim j As Integer Set vDoc = WebBrowser1.Document

For j = 0 To vDoc.All.length - 1

If UCase(vDoc.All(j).tagName) = "INPUT" Then '在页面源码中找出标签input Set vTag = vDoc.All(j) If vTag.Type = "submit" And vTag.Id = "sb" Then '对比标签 的属性及ID 如果是 则执行CLICK vTag.Click End If End If Next j '备注-百度的【百度一下】ID是sb ,属性是submit End Sub

Private Sub Form_Load() WebBrowser1.Navigate " http://www.baidu.com" End Sub

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯