msgbox"Hello World",,"Title"
dim命令变量（不变）
dim name,age
name="wolf"
age="20"
msgbox name&age
dim命令变量（可变）
dim a,b,c
a=1
b=2
c=a+b
msgbox c
乘法
dim a,b,m
a=inputbox("请输入第一个乘数")
b=inputbox("请输入第二个乘数")
m=a*b
msgbox "乘积是"&m
圆周长
dim r,c,pi
pi=3.14
r=inputbox("请输入半径")
c=2*r*pi
msgbox "半径为"&r&"圆的周长是"&c
道歉
msgbox("小仙女不要生气了好不好")
msgbox("我知道自己错了")
msgbox("但是请相信我，我不是有意的")
msgbox("原谅我好吗")
dim i
do while i<1
Select Case msgbox("如果你原谅我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗，我向你保证，以后绝对不会再犯了！"
end Select
loop
msgbox"谢谢你原谅我，爱你呦"
表白
msgbox("做我女朋友好不好？")
msgbox("我爱你很久了")
msgbox("请你不要拒绝我")
msgbox("你拒绝我我就关你电脑")
dim i
do while i<1
Select Case msgbox("做我女朋友好不好",68,"")
Case 6 i=1
Case 7
msgbox"电脑正在关机，再见！"
end Select
loop
msgbox"我也爱你么么哒~"
信息轰炸
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate"文件"
for i=1 to 10
WScript.sleep 50
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys" %s"
Next
