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安
1