最近发现只有这款浏览器可以登录ACS 仍然坚挺哦！！

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年多的积累修改，VB6也可以实现网页自动化，针对360急速浏览器，webdriver和chrome请大家自行到网站下载对应版本。（方法包括：截图、通过多种途径获取id、通过id获取文本、各种属性获取、删除、设置、切换网页、切换frame等等）