VBS指令碼操作網頁元素

標籤：style   http   io   資料   for   ar   cti   amp   

 

=================開啟百度，點擊百度按鈕====================

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