VBS脚本操作网页元素

简介: =================打开百度,点击百度按钮==================== Dim btn,ieSet ie = WScript.CreateObject("InternetExplorer.

 

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

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

技术改变世界! --狂诗绝剑
目录
相关文章
|
6月前
|
语音技术
在网页中处理ActiveXObject()的执行结果
在网页中处理ActiveXObject()的执行结果
|
Web App开发 前端开发 JavaScript
vbs学习,书籍,看书笔记(5) 客户端web脚本 .Power shell 使用 脚本文件的类型2
vbs学习,书籍,看书笔记(5) 客户端web脚本 .Power shell 使用 脚本文件的类型2
vbs学习,书籍,看书笔记(5) 客户端web脚本 .Power shell 使用 脚本文件的类型2
|
Shell Python
shell脚本中执行python脚本,处理字符串,同时复制到剪贴板
shell脚本中执行python脚本,处理字符串,同时复制到剪贴板
一种切实可行的后台执行脚本方法——利用VB脚本隐藏CMD命令窗口
一种切实可行的后台执行脚本方法——利用VB脚本隐藏CMD命令窗口
469 0
VBS 脚本语言-利用vbs调用ie浏览器访问百度查天气实例演示
VBS 也挺强大的呢,这篇给大家演示的是调用 ie 浏览器,并用百度查出天气
274 0
VBS 脚本语言-利用vbs调用ie浏览器访问百度查天气实例演示
|
Web App开发 JavaScript
VBS一键配置VOIP脚本(其中包括VBS操作JS网页中的按钮事件--直接执行确认按钮中的脚本代码)
Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws = WScript.CreateObject ("WSCript.
793 0
|
JavaScript
VBS操作JS网页元素实例
'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.
852 0
VBS基础篇 - VBScript过程
VBS基础篇 - VBScript过程     在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程。  Sub过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句。
954 0
|
Windows
window powershell设置脚本的执行权限
Windows PowerShell 现用执行策略很可能是Restricted(默认设置)。 Restricted 执行策略不允许任何脚本运行。若要了解计算机上的现用执行策略,请键入:get-executionpolicy 。
1984 0