前面提到的360急速浏览器自动化使用方法和类，许多人说没有案例源码，刚刚看到，十分抱歉，这里上传一个简单的源代码，供大家参考。

Option Explicit Dim Temp, Url As String, i, hWnd1, S1() As Long Dim web As New cWebDriver Dim Hid As String, Hids() As String Private Sub label1_Click(index As Integer) '登录 Temp = Environ("USERPROFILE") & "\AppData\Local\360Chrome\Chrome\Application\" '默认情况下360安装目录，可以自己查看自己的目录 web.DriverPath = Temp & "chromedriver.exe" '给自动化类指定驱动文件(这个文件要到网站去下载，要与谷歌的版本相对应才能用，急速360可以查看帮助文件，里面有个谷歌内核版本) '下载你的360谷歌内核版本对应的chromedriver.exe，拷贝到你的360安