VBS脚本操作网页元素

 

=================打开百度，点击百度按钮====================

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