如果是Windows 32位系统,就下载前3个中的任意一个.zip文件。如果是64位系统,下载包含x64的即可。
把压缩包解压到E:\Selenium\Drivers路径下,可以看到多了一个IEDriverServer.exe的驱动文件,产品版本是3.141.59.0。
启动浏览器
VBA中输入如下代码
Private WD As SeleniumBasic.IWebDriver
Sub Baidu()
On Error GoTo Err1
Dim Service As SeleniumBasic.InternetExplorerDriverService
Dim Options As SeleniumBasic.InternetExplorerOptions
Set WD = New SeleniumBasic.IWebDriver
Set Service = New SeleniumBasic.InternetExplorerDriverService
With Service
.CreateDefaultService driverPath:="E:\Selenium\Drivers"
.HideCommandPromptWindow = True
End With
Set Options = New SeleniumBasic.InternetExplorerOptions
With Options
.IntroduceInstabilityByIgnoringProtectedModeSettings = True
End With
WD.New_InternetExplorerDriver Service:=Service, Options:=Options
WD.URL = "https://www.baidu.com"
Dim form As SeleniumBasic.IWebElement
Dim keyword As SeleniumBasic.IWebElement
Dim button As SeleniumBasic.IWebElement
Set form = WD.FindElementById("form")
Set keyword = form.FindElementById("kw")
keyword.Clear
keyword.SendKeys "好看视频"
Set button = form.FindElementById("su")
button.Click
Debug.Print WD.Title, WD.URL
Debug.Print WD.PageSource
MsgBox "下面退出浏览器。"
WD.Quit
Exit Sub
Err1:
MsgBox Err.Description, vbCritical
End Sub
运行,可以看到IE浏览器打开了百度。
每个人电脑上的IE的设置不一定都相同,因此有些电脑运行上面的实例程序可能无法正常启动浏览器。这种情况需要事先设置浏览器。
第1步:在浏览器右上角有个“设置”按钮,点击展开菜单,选择“Internet选项”。
在“安全”选项卡中,依次选择
“Internet”、本地Intranet、受信任的站点、受限制的站点
。
把“启用保护模式”前面的复选框全部去掉勾选(或者全部勾选上)。
第2步:修改缩放比例为100%
退出IE浏览器,重新运行上面的示例程序,应该可以了。