VB6实现网页自动化方法（chrome或360极速版）

最新推荐文章于 2024-08-02 21:26:35 发布

郑景文

最新推荐文章于 2024-08-02 21:26:35 发布

阅读量3.9k

点赞数 1

文章标签： vb6

本文链接：https://blog.csdn.net/zhengjingwen/article/details/119364673

版权

VB6实现网页自动化方法（chrome或360极速版）
资源共享中挂载了类插件，可能很多人不知道如何使用，这里做一个说明。
1 首先下载360极速版浏览器，正常安装。打开浏览器-----右上角三个杠-----帮助-----关于360极速浏览器，查看内核版本号（就是谷歌浏览器的版本）。
2 百度一下WebDriver的下载地址，下载chromedriver.exe，找到内核对应的版本下载，不同的内核对应不同的版本。将下载文件一般可以放在360极速浏览器安装目录中（随便哪里都行，需要指定位置）
3 简单的使用代码：

getUser = Environ(“USERPROFILE”)
Temp = getUser & “\AppData\Local\360Chrome\Chrome\Application”

‘这句是360浏览器通常安装路径。

  web.DriverPath = Temp & "chromedriver.exe"

’指定chromedriver.exe所在位置

    web.Start Temp & "360chrome.exe"

‘启动360浏览器

    web.GoURL "chrome://settings/advanced"
    Hid = web.getDriverIdById("switch_mode-Chrome")
    web.click Hid
    web.wait 1000

’这段是让360浏览器使用急速方式（谷歌浏览器模式，非IE模式），Hid和hids默认的元素变量名，自己定义也可以。
```
 web.GoURL ”https://www.baidu.com"
```

’自动加载网址,比如百度引擎，当然百度网站，没有下面的元素。

    Hid = web.getDriverIdById("username")

‘查找username为id的元素。

    web.SetElementValue Hid, myName

’设置元素的值

    Hid = web.getDriverIdById("password")

‘查找password元素

    web.SetElementValue Hid, Mypass

’给指定的元素赋值

    Hid = web.getDriverIdById("kc-submit")

‘查找id为kc-submit的元素

    web.wait 1000

等待1S

    web.click Hid

点击这个元素

其它功能自己根据实际情况使用：

特别提示：

Hid = web.getDriverIdById(“username”)
这里的 getDriverIdById 通过id得到DriverId
id是指分析网页结构中的元素id（有的元素定义了id，有的没有定义）
DriverId是指 "chromedriver.exe"软件中对元素定义的id（所以元素都有DriverId）
如果返回空，说明元素不存在。