VBS语句

最新推荐文章于 2023-02-18 22:53:32 发布
最新推荐文章于 2023-02-18 22:53:32 发布
阅读量817 收藏 3
点赞数
分类专栏： VBS技术 文章标签： browser 百度
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/vikesgao/article/details/7063087
版权

1.　if var = 0 then

　　　　magbox "0"

　　elseif var = 1 then

　　　　　magbox "1"

　　end if

 

2.　　select case var

 　　　　case "0"

　　　　　　magbox "0"

　　　　　　case "1"

　　　　　　magbox "1"

　　　　end select

 

3.　　for var=1 to 100

　　magbox ""1

　　next

 

4.Do until Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Exist（5）

　　Wait(1)

　　Loop 

　　判断WebEdite这个对象是否出现，如果没有出现，执行Wait(1)，如果出现，跳出循环。

 

5.const 常量 & dim 变量
const myname=vikes
-------------------------  
dim myname
myname=vikes

 

6.UBound　数组维数的最大可用下标
ReDim myarray()　初始化设置动态数组；后面需要增加数组时可以添加ReDim Preserve myarray()改变ReDim myarray()初始化的值
--------------------------
Dim myarray()
ReDim myarray(1)
Dim length
myarray(0)=1
myarray(1)=2
ReDim Preserve myarray(2)
myarray(2)=3
length=UBound(myarray)
For i=0 To length
MsgBox myarray(i)
next

7.inputbox外界输入数据
----------------------
Dim a,b
a="1"
b=InputBox("请输入数据:")
If a=b Then
MsgBox "XXX"
Else
MsgBox "TTT"
End If

 

2012-08-02 更新

8.创建文件

set objfso=createobject("scripting.filesystemobject")
set objfolder=objfso.createtextfile("d:\VBS\1.txt")

 

9.读了文件属性信息

option explicit
on error resume next
dim folderpath
dim objfso
dim objfolder
dim colfiles
dim objfile

folderpath="d:\360Downloads"
set objfso=createobject("scripting.filesystemobject")
set objfolder=objfso.getfolder(folderpath)
set colfiles=objfolder.files

for each objfile in colfiles
wscript.echo objfile.name,objfile.size & "bytes"
wscript.echo vbtab & "created:" & objfile.datecreated
wscript.echo vbtab & "modified:" & objfile.datelastmodified
next


10.直接向文件写入信息

set objshell=createobject("wscript.shell")
objshell.run "notepad"
wscript.sleep 2000

if objshell.appactivate ("无标题 - 记事本")=true then
objshell.sendkeys "hello ,word"

end if

 

11.VBS GUI形式展现（网上转载）

set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象'
ie.menubar=0 '取消菜单栏'
ie.addressbar=0 '取消地址栏'
ie.toolbar=0 '取消工具栏'
ie.statusbar=0 '取消状态栏'
ie.width=400 '宽400'
ie.height=400 '高400'
ie.resizable=0 '不允许用户改变窗口大小'
ie.navigate "about:blank" '打开空白页面'
ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) '水平居中'
ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '垂直居中'
ie.visible=1 '窗口可见'

with ie.document '以下调用document.write方法，'
.write "<html><body bgcolor=#dddddd scroll=no>" '写一段html到ie窗口中。'
.write "<h2 align=center>远程清除系统日志</h2><br>"
.write "<p>目标IP：<input id=ip type=text size=15>" '也可以用navigate方法直接打开一'
.write "<p>用户名：<input id=user type=text size=30>" '个html文件，效果是一样的。'
.write "<p>密码：　<input id=pass type=password size=30>"
.write "<p align=center>类型：" '不仅是input对象，所有DHTML支持'
.write "<input id=app type=checkbox>应用程序 " '的对象及其属性、方法都可以使用。'
.write "<input id=sys type=checkbox>系统 "
.write "<input id=sec type=checkbox>安全" '访问这些对象的办法和网页中访问'
.write "<p align=center><br>" '框架内对象是类似的。'
.write "<input id=confirm type=button value=确定> "
.write "<input id=cancel type=button value=取消>"
.write "</body></html>"
end with

dim wmi '显式定义一个全局变量'
set wnd=ie.document.parentwindow '设置wnd为窗口对象'
set id=ie.document.all '设置id为document中全部对象的集合'
id.confirm.οnclick=getref("confirm") '设置点击"确定"按钮时的处理函数'
id.cancel.οnclick=getref("cancel") '设置点击"取消"按钮时的处理函数'

do while true '由于ie对象支持事件，所以相应的，'
wscript.sleep 200 '脚本以无限循环来等待各种事件。'
loop

sub event_onquit 'ie退出事件处理过程'
wscript.quit '当ie退出时，脚本也退出'
end sub

sub cancel '"取消"事件处理过程'
ie.quit '调用ie的quit方法，关闭IE窗口'
end sub '随后会触发event_onquit，于是脚本也退出了'

sub confirm '"确定"事件处理过程，这是关键'
with id
if .ip.value="" then .ip.value="." '空ip值则默认是对本地操作'
if not (.app.checked or .sys.checked or .sec.checked) then 'app等都是checkbox，通过检测其checked'
wnd.alert("至少选择一种日志") '属性，来判断是否被选中。'
exit sub
end if
set lct=createobject("wbemscripting.swbemlocator") '创建服务器定位对象'
on error resume next '使脚本宿主忽略非致命错误'
set wmi=lct.connectserver(.ip.value,"root/cimv2",.user.value,.pass.value) '连接到root/cimv2名字空间'
if err.number then '自己捕捉错误并处理'
wnd.alert("连接WMI服务器失败") '这里只是简单的显示“失败”'
err.clear
on error goto 0 '仍然让脚本宿主处理全部错误'
exit sub
end if
if .app.checked then clearlog "application" '清除每种选中的日志'
if .sys.checked then clearlog "system"
if .sec.checked then clearlog "security" '注意，在XP下有限制，不能清除安全日志'
wnd.alert("日志已清除")
end with
end sub

sub clearlog(name)
wql="select * from Win32_NTEventLogFile where logfilename='"&name&"'"
set logs=wmi.execquery(wql) '注意，logs的成员不是每条日志，'
for each l in logs '而是指定日志的文件对象。'
if l.cleareventlog() then
wnd.alert("清除日志"&name&"时出错！")
ie.quit
wscript.quit
end if
next
end sub

 

 

12.平时写来玩玩的计算器

'注释，你懂噶！
'保存记录********************************************************
'objfolder01创建文件夹变量　－　objfolder创建文档变量
Dim a,b,c,d,e,f,z
set objfso=createobject("scripting.filesystemobject")

'判断d盘下是否有文件夹
if objfso.fileexists("d:\VBS") then
set objfolder01=objfso.createfolder("d:\VBS")
end if

'判断d盘下是否有文件
objfolder=objfso.fileexists("d:\VBS\1.txt")
if 0=objfolder then
set objfolder=objfso.createtextfile("d:\VBS\1.txt")
end if

'打开文件
logfile="d:\VBS\1.txt"
const forwriting=8
set objfso=createobject("scripting.filesystemobject")
set objfile=objfso.opentextfile(logfile,forwriting)

'************************************************************************
'计算模块
for z=0 to 1
'功能选择*************************
e=inputbox("1.计算利益 2.多次买入计算均价(目前只支持2次买入) 3.车贷计算 　　　　　　　　*注意：按其他数字、按钮将退出本次使用（禁止输入英文字母）")

'1.计算利益***********************
if e=1 then

a=inputbox("总股票数：")
b=inputbox("买出股票价位：")
c=inputbox("买入股票价位：")

d=int(a)*(int(b)-int(c))

msgbox ("纯利益：" & d & chr(10) & "总股票数：" & a & chr(10) &  "买出股票价位：" & b & chr(10) &  "买入股票价位：" & c)
'写内容
objfile.writeline "纯利益：" & d & chr(10) & "总股票数：" & a & chr(10) &  "买出股票价位：" & b & chr(10) &  "买入股票价位：" & c & now

 

'2.多次买入计算均价(目前只支持2次买入)**********************************
elseif e=2 then

a=inputbox("第一次买入股票数：")
b=inputbox("第一次买入股票价位：")
f=inputbox("第二次买入股票数：")
c=inputbox("第二次买入股票价位：")

d=(int(a)*int(b)+int(f)*int(c))/(int(a)+int(f))
msgbox ("第一次买入股票数："& a & chr(10) &"第一次买入股票价位："& b & chr(10) &"第二次买入股票数："& f & chr(10) &"第二次买入股票价位：" & c & chr(10) & "股票均价：" & d)

objfile.writeline "第一次买入股票数："& a & chr(10) &"第一次买入股票价位："& b & chr(10) &"第二次买入股票数："& f & chr(10) &"第二次买入股票价位：" & c & chr(10) & "股票均价：" & d & now


'3.车贷计算***********************
elseif e=3 then

c=inputbox("购车价格：")
f=inputbox("购配税:")
a=inputbox("首付比例（输入范围：0.1 ~ 1）：")

'还款年限选择
b=inputbox("还款年限（输入范围：1,2,3,5年）：")

if b=1 then
d=((int(c)+int(f))-((int(c)+int(f))*int(a)))/(b*12*0.0657)
msgbox ("购车价格：" & c & chr(10) & "购配税:" & f & chr(10) &"首付比例（输入范围：0.1 ~ 1）： " & a & chr(10) & "还款年限（输入范围：1,2,3,5年）：" & b & chr(10) & "月付款：" & d)

elseif b=2 then
d=((int(c)+int(f))-((int(c)+int(f))*int(a)))/(b*12*0.0675)
msgbox ("购车价格：" & c & chr(10) & "购配税:" & f & chr(10) &"首付比例（输入范围：0.1 ~ 1）： " & a & chr(10) & "还款年限（输入范围：1,2,3,5年）：" & b & chr(10) & "月付款：" & d)

elseif b=3 then
d=((int(c)+int(f))-((int(c)+int(f))*int(a)))/(b*12*0.0675)
msgbox ("购车价格：" & c & chr(10) & "购配税:" & f & chr(10) &"首付比例（输入范围：0.1 ~ 1）： " & a & chr(10) & "还款年限（输入范围：1,2,3,5年）：" & b & chr(10) & "月付款：" & d)

elseif b=5 then
d=((int(c)+int(f))-((int(c)+int(f))*int(a)))/(b*12*0.0693)
msgbox ("购车价格：" & c & chr(10) & "购配税:" & f & chr(10) &"首付比例（输入范围：0.1 ~ 1）： " & a & chr(10) & "还款年限（输入范围：1,2,3,5年）：" & b & chr(10) & "月付款：" & d)
end if
objfile.writeline "购车价格：" & c & chr(10) & "购配税:" & f & chr(10) &"首付比例（输入范围：0.1 ~ 1）： " & a & chr(10) & "还款年限（输入范围：1,2,3,5年）：" & b & chr(10) & "月付款：" & d & now

else
msgbox "都叫你不要按钮其他按钮了，蠢猪！"
wscript.quit


end if

next
objfile.close

 

 

 

最常用的．．．．．以后更新其他的．．

 

Vikesgao
关注
专栏目录
常用vbs语法
Demilxj的博客
11-01 2323
vbs （脚本语言） VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。其语言类似Visual Basic（VB）。 语句：Option Explicit    强制要求显式声明脚本中的所有变量。 说明：该语句应该在脚本所有语句之前，使用该语句后变量必须...
VBS是什么
zbguolei的专栏
10-10 2628
VBScript 是微软公司出品的动态脚本语言，是Visual Basic 的轻量级的版本。 vbs的基本使用 msgbox() 弹出消息框 循环语句 For...Next 语句运行一段语句指定的次数 For Each...Next 语句针对集合中的每个项目或者数组中的每个元素来运行某段语句。 Do...Loop 语句运行循环，当条件为 true 或者直到条件为 true 时。 条件语句 if i=10 Then msgbox "Hello" if i=10 Then msg..
QTP高级1_VBS条件&循环语句
12-12
QTP高级1_VBS条件&循环语句，适合QTP（UFT）入门学习。
VBS 控制语句
weixin_30867015的博客
04-19 351
1.if...then...end if if [条件] then [执行语句] end if 可以嵌套 多个if if [条件] then [执行语句] else if [条件]then [执行语句] end if eg. Dim a,b a=inputbox("please input a") b=inputbox("please input b"...
VBS条件语句与循环语句
JK_Jiagn的博客
08-23 1763
' ===========条件语句============= ' if语句 line7 ' select case语句 line26 ' 逻辑运算符 line49 ' +++++++++| if语句 |+++++++++ ' if bool语句 then ' 语句块 ' elseif bool语句 then ' 语句块 ' else ' 语句块 ' end if dim a,b a=12 b=13 if a>b then msgbox("a>b") elseif a=b the
vbs简单语法及简单案例
qq_52108058的博客
02-18 5611
vbYesNo，是buttons属性中的，只显示“是”和“否”按钮，vbYes即选中“是”把粘贴好的文件另存为，编码格式改为ANSI（解决中文乱码），文件名后缀改为vbs即可。Prompt：必需的。作为对话框消息出现的字符串表达式。Title： 可选的。显示对话框标题栏中的字符串表达式。问题：用记事本编写vbs脚本时，发现输出的中文为乱码。Default：可选的。显示文本框中的字符串表达式。很显然循环结束的条件是输入yes，否则就一直循环。运行：（不断循环关不掉）只需要另存为，将原来的。
VBS基本语法
xiaozhi_95的博客
08-14 1万+
一、初识VBS Vbs       是一种变量无关、解释性执行的脚本语言。vbs语言中不区分大小写。语句以换行结束。 dim        声明变量；批量名称声明，多个变量之间用逗号分隔： set          赋值； rem       注释，同 ' msgbox prompt,buttons,title,helpfile,context   输出 msgbox(s) 把两个不同的...
VBS指令（一）
m0_74391978的博客
11-20 4688
vbs搞怪代码
VBS基础篇 - 条件语句(if与Select Case)
08-27
在VBScript（Visual Basic Scripting Edition）编程中，条件语句是至关重要的，它们允许我们根据特定条件执行相应的代码块。本篇文章将详细介绍两种主要的条件语句：If...Then...Else和Select Case。 首先，我们来...
vbs获取操作系统及其版本号
m0_63171455的博客
12-06 1107
大家好，我是大飞，这篇文章主要介绍了vbs获取操作系统及其版本号，包括vbs查询系统信息（名称，版本，系统盘，32or64）-wmi,需要的朋友可以参考下。 目录 vbs获取操作系统及其版本号 vbs查询系统信息（名称，版本，系统盘，32or64）-wmi cmd + vbs +wmi 判断系统级别版本和类型 VBS 获取指定电脑的部分信息 vbs获取操作系统及其版本号 '************************************** '*by r05e '*操作系统及其版本号
vbs Sleep 等待
yueqing的专栏
05-11 7826
WScript.Sleep 2000  '毫秒
VBS：if条件
qq_43776408的博客
09-02 5116
dim d d=CDbl(inputbox("please input")) if d=1 then msgbox "woxihuanni" elseif d=2 then msgbox "woaini" else msgbox "wotaoyanni" end if
vbs if 不等于_6、if语句和关系表达式
weixin_39611413的博客
11-29 803
示例3.1：星星公司致力于信件快递业务，收费标准是：500g以内6元，超过500g9元。应该就是输入重量，显示钱，那可以用cout和cin，如果w小于500，c是6，否则，c是9。//practice 3.1 #include <iostream> using namespace std; int main() { int c; //价钱 float w;//重量 cout&lt...
VB中实现延时(等待)的几种方法
热门推荐
autofei的专栏
03-30 5万+
在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口声明:Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillise
在 WinCC flexible 中如何使用 VBS 脚本实现等待功能（延时）？
weixin_48153993的博客
11-18 5546
描述 VBS 脚本以固定时间周期被中断。VBS 没有为此提供标准的机制，但是脚本可以被维持在一个延时循环中直到设定的时间周期。 说明 VBS提供系统函数“now” ,可以获得当前系统时间。这允许检查设定的周期还剩下多少时间。 在组态中创建变量（例如，“DelayTime”），用来保存需要延迟的时间（s）。 创建脚本（例如，“DelayScript”），代码如下： Dim LastTime, StopTime, i StopTime= Now+DelayTime/2...
vbs脚本
Princesk的博客
04-21 2374
1、注释 两种格式REM +内容或者’+内容 'REM 这是注释 ' Dim name:name = 2 ' const name2=33 ' Dim msg ' '这也是注释 ' 'nskdjkasj ' msg="shu" vbs内建函数。inputbox表示输入。msgbox表示输出 vbs的函数为一个黑盒，只需要关注输出和输入结果即可 2、参数类型 vbs与其他与语言一样，分为常量和普通变量，常量由const定义，变量由Dim声明，这两个声明方式不一样。 const name4=33 const
VBS基础篇 - 条件语句(1) - If...Then...Else
西岚晓的专栏
08-26 3714
使用条件语句和循环语句可以控制脚本的流程。使用条件语句可以编写进行判断和重复操作的 VBScript 代码。在 VBScript 中可使用以下条件语句： If...Then...Else 语句 Select Case 语句 　If...Then...Else If...Then...Else 语句用于计算条件是否为 True 或 False，并且根据计算结果指定要运行的语句。通常，条件是使
VBS基础篇 - 条件语句
weixin_30700099的博客
08-04 243
VBS基础篇 - 条件语句 经常地，当我们编写代码时，我们需要根据不同的判断执行不同操作，我们可以使用条件语句完成这个工作。 If...Then...Else 在下面的情况中，您可以使用 If...Then...Else 语句： 在条件为 true 时，执行某段代码 选择两段代码之一来执行时 dim a '定义一个变量 ...
vbs脚本基础编程(之一)-----VBS基础语法（含控制语句）
weixin_30346033的博客
09-25 1427
VBS是基于Visual Basic的脚本语言，是一种windows脚本。VBS的全称是：Microsoft Visual Basic Script Editon。 它编写的脚本代码不能编译成二进制 文件，直接由windows系统执行。vbs语言不区分大小写，语句以换行结束。 1. 两个内建函数和 “Hello World！”程序编辑 Inputbox语法：Inpu...
vbs循环sql语句
最新发布
08-06
如果你需要在VBScript中循环执行SQL语句，你可以使用ADO（ActiveX Data Objects）来实现。以下是一个示例代码，演示了如何循环执行SQL语句： ```vbscript ' 创建ADO连接对象 Set conn = CreateObject("ADODB....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值