[1].[代码] [Shell/批处理]代码 跳至 [1]

dim str
str = inputBox("输入你要搜索的内容:")
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = false
ie.Navigate("http://www.baidu.com")
WScript.Sleep 2000

Set obj = ie.document.all

obj.nameItem("kw").value = str  ' 百度输入框赋值

obj.nameItem("su").click    ' 点击搜索按钮

'ie.Quit