=================打開百度，點擊百度按鈕====================
Dim btn,ie
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.Visible = true '若為false,則不顯示瀏覽器
ie.navigate "www.baidu.com"
Do
Wscript.Sleep 200
Loop Until ie.readyState = 4 '等頁面載入完整再填登錄數據登錄
'MsgBox "打開成功！"
WScript.Sleep 3000
Set btn =ie.Document.getElementById("su1")
btn.click
==============================================
dim Ie,obj
set Ie =wscript.createobject("internetexplorer.application")
ie.navigate "http://www.duowan.com/"
wscript.sleep 1000
ie.menubar=1 '顯示IE對象菜單欄
ie.AddressBar=1 '顯示IE對象地址欄
ie.ToolBar=1 '顯示IE對象工具欄
ie.StatusBar=1 '不顯示IE對象狀態欄
ie.FullScreen=0 '全屏化IE對象
ie.Width=1024 '設置IE對象寬度
ie.Height=768 '設置IE對象高度
ie.Resizable=1 '設置IE對象大小是否可以被改動
ie.visible=1 '設置是否可見
wscript.sleep 1000
set obj = ie.document
wscript.sleep 1000
'''''''''目的:測試 登錄按鈕''''
For i=0 to obj.all.length-1
If obj.all(i).tagname="BUTTON" Then
if obj.all(i).value="登陸" then
obj.all(i).click
end if
End if
Next
=================================
dim Ie,obj
set Ie =wscript.createobject("internetexplorer.application")
ie.navigate "www.baidu.com"
wscript.sleep 1000
ie.menubar=1 '顯示IE對象菜單欄
ie.AddressBar=1 '顯示IE對象地址欄
ie.ToolBar=1 '顯示IE對象工具欄
ie.StatusBar=0 '不顯示IE對象狀態欄
ie.FullScreen=0 '全屏化IE對象
ie.Width=800 '設置IE對象寬度
ie.Height=600 '設置IE對象高度
ie.Resizable=0 '設置IE對象大小是否可以被改動
ie.visible=1 '設置是否可見
'ie.Navigate "http://www.jb51.net" '設置IE對象默認指向的頁面
set obj = ie.document
For i= 0 to 5
wscript.sleep 1000
obj.all("kw").value = "倒計時:" & 5-i
Next
obj.all("kw").value = "汽車"
for i=0 to obj.all.length-1
if ucase(obj.all(i).tagname)="INPUT" and ucase(obj.all(i).id)="KW" then
obj.all(i).value="跑車"
end if
Next
wscript.sleep 1000
for i=0 to obj.all.length-1
if obj.all(i).tagname="INPUT" Then
if obj.all(i).value="百度一下" then obj.all(i).click
end if
next
