中国DOS联盟

Set oIE = CreateObject("InternetExplorer.Application")
With oIE
        .Width = 400
        .Height = 300
        .Navigate "http://www.baidu.com"       
        .Left = 300
        .Top = 300
        '.Visible = 1
    Do
        WScript.Sleep 100
    Loop Until .readyState = 4

End With

With oIE.Document

        Set oText = .getElementById("kw")
        oText.Value = "VBS"
        Set oButton = .getElementById("sb")
        oButton.click
End With

    Do
        WScript.Sleep 100
    Loop Until oIE.readyState = 4
        WScript.Echo oIE.Document.body.outerText