在 vbs 中可以通过 dim 定义变量，语法为：dim 变量名1,变量名2,变量名3...变量名n
其中 inputbox 可以用来接收用户手动输入的参数
dim name
name = inputbox("请告诉我您是谁", "这是交互的标题")
msgbox name,,"欢迎您"
六、表白恶搞
之前很火的关闭不了的表白弹窗，就是 vbs 做出来的
使用 dim a(5) 可以定义数组，5表示这个数组里面有多少元素
使用 Select Case 表示这是一个选项
其中选择同意的返回值为6，不同意的返回值为7
如果点击了不同意，那就循环从数组中取值展示
如果用户点击了同意，那就阴谋得逞，退出选项
MsgBox "佛前哭求"
MsgBox "奈何桥等待"
MsgBox "五百次回眸"
MsgBox "千年的回首"
MsgBox "百世的轮回"
MsgBox "换你今朝一世情缘"
MsgBox "可否"
dim a(5)
a(0)="天大，地大，女友最大"
a(1)="工资上交"
a(2)="房写你名"
a(3)="帮清购物车"
a(4)="保大"
a(5)="你就答应我把^o^"
Dim j
Do
Select Case msgbox ("姑娘，做我女朋友吧", 4)
Case 6
MsgBox "you are my girlfriend，" + Chr(13) + "from this day until to my last days."
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if
end Select
Loop
在 vbs 中可以通过 dim 定义变量，语法为：dim 变量名1,变量名2,变量名3...变量名n
其中 inputbox 可以用来接收用户手动输入的参数
dim name
name = inputbox("请告诉我您是谁", "这是交互的标题")
msgbox name,,"欢迎您"
六、表白恶搞
之前很火的关闭不了的表白弹窗，就是 vbs 做出来的
使用 dim a(5) 可以定义数组，5表示这个数组里面有多少元素
使用 Select Case 表示这是一个选项
其中选择同意的返回值为6，不同意的返回值为7
如果点击了不同意，那就循环从数组中取值展示
如果用户点击了同意，那就阴谋得逞，退出选项
MsgBox "佛前哭求"
MsgBox "奈何桥等待"
MsgBox "五百次回眸"
MsgBox "千年的回首"
MsgBox "百世的轮回"
MsgBox "换你今朝一世情缘"
MsgBox "可否"
dim a(5)
a(0)="天大，地大，女友最大"
a(1)="工资上交"
a(2)="房写你名"
a(3)="帮清购物车"
a(4)="保大"
a(5)="你就答应我把^o^"
Dim j
Do
Select Case msgbox ("姑娘，做我女朋友吧", 4)
Case 6
MsgBox "you are my girlfriend，" + Chr(13) + "from this day until to my last days."
exit do
Case 7
msgbox a(i)
i=i+1
if i >= 6 then
i = 0
end if
end Select
Loop
