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

Public WD
Main
Sub Main()
    Set WD = CreateObject("SeleniumBasic.WebDriver")
    WD.Start
    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