vbs

vbs语法

声明变量并赋值

dim 声明变量

dim name
name = "tom"

定义常量

const PI=3.1415926

注释

rem

rem "这是vbs的注释"

‘

'这也是注释信息

常用内置函数

inputbox

显示对话框，用户可在其中输入文本，并/或点击按钮，然后返回结果。

dim msg
rem inputbox函数 第一个参数是 提示信息，第二个参数是 标题， 第三个参数输入框的默认值 
rem msg 是你输入的值
msg = inputbox("输入信息","这是标题","这是默认值")

int

将输入值转化成整数值

dim a,b,result
a = inputbox("输入a的值") '输入1'
b = inputbox("输入b的值") '输入2'
result = ( a + b ) * 2 '结果为24，输入的值会当做字符串'
result = a * 2 + b * 2 '结果为6'
result = ( int(a) + int(b) ) '结果为6'

cdbl

把字符转换为数字，但又不取整

dim a,b,result
a = cdbl ( inputbox( "a是:","输入半径" ) )  '输入1.2'
b = cdbl ( Inputbox( "b是:","输入半径" ) )  '输入1.3'
result = ( a + b ) * 2  '结果为5'
msgbox(result)

cstr

将数字转成字符串

如果拼接字符串和数字可以用 & 符号

dim a , str
a = 1
a = cstr(a)
str = "abc" & 11

WScript.sleep

进程休眠函数

WScript.sleep 1000 '让当前进程休眠1000ms 同java中 Thread.sleep(1000)'

运算相关

mod 取余

dim a
a=16 mod 5 '1

^ 乘幂

dim result
result = 2 ^ 3 '8

if语句

if

dim a,b
a=12
b=13
if a<b then
msgbox ("A小于B")
msgbox ("B大于A")
end if

if - else

dim a 
a=inputbox("请输入一个大于100的数") 
a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 
if a>100 then 
msgbox ("正确")
else 
msgbox ("错误")
end if

if - else if - else

dim a 
a=inputbox("请输入一个大于100的数") 
a=int(a) 'inputbox返回的是字符串, 我们把他变成整数 
if a>100 then 
    msgbox ("大于100")
else if a=100 then 
    msgbox ("等于100")
else if a > 50 then 
    msgbox("大于50")   
else 
    msgbox ("错误")
end if 
end if
end if

and or 逻辑运算符

dim a,b 
a=inputbox("输入一个数 >10") 
b=inputbox("输入另一个数 >10") 
a=int(a) 
b=int(b) 
if a>10 and b>10 then 
msgbox ("正确")
else 
msgbox ("错误")
end if

dim a,b 
a=inputbox("输入一个数 >10") 
b=inputbox("输入另一个数 >10") 
a=int(a) 
b=int(b) 
if a>10 or b>10 then 
msgbox ("正确")
else 
msgbox ("错误")
end if

select case

dim a
a = 1
select case a
case 0
    msgbox("a的值为：" + cstr(a))
case 1
    msgbox("a的值为：" + cstr(a))
case else
    msgbox("a的值为其他")
end select

循环

do - loop 无线循环

do
    msgbox("111")
    WScript.sleep 5000
loop

跳出do loop循环

dim a 
a = 0 
do
    msgbox(a)
    WScript.sleep 1000
    if a = 5 then 
        exit do '退出当前循环'
    end if
    a = a + 1
loop

do - while - loop

dim a,ctr 
ctr=0 
const pass="pas123_"
do while ctr<3    '先判断while 条件 满足才执行'
    a=inputbox("请输入密码") 
    if a=pass then 
        msgbox ("认证成功")
        msgbox ("(你可以在这里加一段成功后得到的信息)")
        exit do 
    else 
        ctr=ctr+1 '如果密码出错就增加一次错误认证计数 
        msgbox ("认证出错, 请检查密码")
    end if 
loop

dim a,ctr 
ctr=0 
const pass="pas123_"
do 
    a=inputbox("请输入密码") 
    if a=pass then 
        msgbox ("认证成功")
        msgbox ("(你可以在这里加一段成功后得到的信息)")
        exit do 
    else 
        ctr=ctr+1 '如果密码出错就增加一次错误认证计数 
        msgbox ("认证出错, 请检查密码")
    end if 
loop while ctr<3   '先执行do中的代码 在判断 while 条件'

for - next

exit for 退出for循环

dim i 
for i=0 to 5 
msgbox (i)
next

嵌套循环

dim i,j,str
for i=1 to 9 
    for j=1 to 9 
        str=str & i * j & " " '&是和并字符串的符号 
        next '每个next对应一个for 
    next 
msgbox str

for each - next

dim arrs
arrs = array("abc","abd","acd")
for each arr in arrs
    msgbox(arr)
next

数组

定义一维数组

dim 数组名(长度) （定义的数组元素的个数为 长度 + 1）

dim name(9)  '定义了10个元素的数组，下标从 0 开始'

定义二维数组

dim name(9,2)

函数

定义函数

function 函数名(参数1, 参数2...参数n)
　　...
　　exit function '结束函数, 不是必需的
　　...
　　end function

注意事项

有返回值的才是函数，没有返回值的是子程序（过程）

函数的参数列表可以是空的, 但括号不能省略, 参数之间用”,”分割，

如果函数有返回值则使用 函数名 = 要返回的结果（返回后后面的语句不在执行）

示例

dim a,b
a = 1
b = 2
msgbox(add(a,b))
function add(a,b)
    add = a + b
end function

过程

没有返回值的函数是子程序（过程）

定义过程

sub 子程序名(参数1, 参数2...参数n)
　　...
　　exit sub '结束子程序, 不是必需的
　　...
　　end sub

注意事项

调用子程序（过程）时，需要用关键字 call

示例

dim a,b
a = 1
b = 2
call add(a,b)
'msgbox(add(a,b))
sub add(a,b)
    msgbox (a + b)
end sub

内置函数

Date/Time 函数

Conversion 函数

Format 函数

Math 函数

Array 函数

String 函数

其他函数

rem qq自动登录
dim ws
set ws=createobject("wscript.shell")
ws.run "qq"
do while ws.AppActivate("QQ")<>True
    wscript.sleep 500
loop
ws.AppActivate "QQ"
WScript.Sleep 1000
ws.SendKeys "{TAB}"
WScript.Sleep 1000
ws.SendKeys "***********"
WScript.Sleep 1000
ws.SendKeys "{ENTER}"

rem qq轰炸
dim ws
set ws=createobject("wscript.shell")
do while ws.AppActivate("风在吹")<>True
    wscript.sleep 500
loop
ws.AppActivate("风在吹")
for a = 1 to 1000
    ws.sendkeys(a)
    ws.sendkeys("{enter}")
    wscript.sleep 10
next
wscript.quit