由于SeleniumBasic支持非托管语言,在VBA、VB6中可以添加引用进行前期绑定。
VBS中使用CreateObject可以后期创建浏览器对象。在VBA中使用As声明的部分都删掉,因为VBS中不支持As关键字。
Public WD Main Sub Main() Set WD = CreateObject("SeleniumBasic.IWebDriver") WD.New_ChromeDriver WD.URL = "https://www.baidu.com" Dim form Dim keyword Dim button Set form = WD.FindElementById("form") Set keyword = form.FindElementById("kw") keyword.Clear keyword.SendKeys "刘永富的博客园" Set button = form.FindElementById("su") button.Click WScript.sleep 5000 WD.Quit End Sub
效果如下: