
CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |