vbs脚本demo

来源：互联网发布：火锅烧烤网络营销策划编辑：程序博客网时间：2024/05/22 17:28

-------------------------输出Hello world-----------------------------------------------

Msgbox "Hello world"

-------------------获取弹出框内容--------------------------------------

Dim a

a=Inputbox("提示内容")

msgbox a

---------------------获取系统时间-----------------------------------

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime
msgbox m

-----------------获取系统日期-------------------------------------

Currentdate1=date()
msgbox Currentdate1

--------------------------打开一个空白记事本 ----------------------------------------------

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "notepad" ,,true //打开一个空白记事本 true 表示关闭记事本后再打开计算器
objShell.Run "calc" //打开一个计算器

-------------------------------打开百度----------------------------------

set ws=createobject("wscript.shell")
ws.run"iexplore.exe http://www.baidu.com"

------------------------------------判断用户点击了确定还是取消----------------------------------------------------------------

InputMessage=InputBox("请选择", "点击", "")
If InputMessage=vbEmpty Then
Buffer=MsgBox("点击了取消", VbOKOnly)
Else
If InputMessage="" Then
Buffer=MsgBox("点击了确定", VbOKOnly)
Else
Buffer=MsgBox(InputMessage, VbOKOnly)
End If
End If

-----------------------------------------获取输入框输入的两个乘数计算输出结果-----------函数----------------------------

Dim i,j,g,m,n
i=Inputbox("请输入乘数1")
j=Inputbox("请输入乘数2")
g=sj(i,j)
msgbox g

function sj(m,n)
sj=m*n
end function

--------------------------------------调用小程序求两数之积------------------------------小程序-------------------------------------

Dim i,j,g,m,n
i=Inputbox("请输入乘数1")
j=Inputbox("请输入乘数2")

call sub1(i,j) '调用小程序

sub sub1(m,n)
msgbox "乘积为："&n*m
end sub

0 0