《SeleniumBasic 3.141.0.0 - 在VBA中操作浏览器》系列文章之三：SeleniumBasic用在VBS中

由于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

 

效果如下：