《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

 

效果如下：