bytecodebuffer

dim  定义变量名

dim  name
-------------
dim name,age
name = "worf"
age = 20

msgbox   输出

msgbox name&age

-------------
dim name,age
name = "zhangsan"
age = 20
msgbox name&age

 & 连接符

msgbox  "输出的名字:"&name&"输出的年龄"&age

inputbox 输入框

dim a
a = inputbox("请输入:")

,,  标题

msgbox "欢迎使用VBS计算器",,"欢迎使用"

if....then.. 条件判断

c=inputbox("请输入:")
if c="+" then m=a+b
if c="-" then m=a-b
if c="/" then m=a/b
if c="*" then m=a*b

 CDbl 转换为数字

a = CDbl(inputbox("请输入数子:"))

获取对象

Set ws=WScript.CreateObject()

 RegWrite 写注册表

vbinfmation 标题重命名

for 循环 next 

for d=0 to 4
msgbox 20
next

SendKeys "%{F4}"    %等价alt ,代码操作键盘

Set ws=WScript.CreateObject("wscript.shell")
ws.SendKeys "%{F4}"

do   loop  exit do

 睡眠 5s

wscript.sleep 5000

 

分类:

技术点:

相关文章: