抖音上用vbs写表白的小程序

原创已于 2024-01-09 18:42:06 修改 · 1.9w 阅读

标签

#vbs

收录于

于 2020-03-25 20:19:41 首次发布

精选同时被 2 个专栏收录

3 篇文章

订阅专栏

测试

1 篇文章

订阅专栏

这篇博客展示了如何使用Visual Basic Script (VBS)编写一个简单的抖音表白小程序。作者强调，即使看似复杂的任务，其实操作过程并不难。只需创建一个文本文档，粘贴特定代码，然后将其保存为.vbs文件，并确保编码设置为ANSI。

写这个只是想说明看似很难的东西其实并没有想的那么复杂写这个只需要你新建一个文本文档

复制下面内容

Dim Msg1,Msg2,Msg3 '定义消息文本
Dim Response '定义返回对象
Dim Msg()
redim Msg(5)
Msg(0) = "做我女朋友好吗？"
Msg(1) = "房产证上写你名！"
Msg(2) = "听话"
Msg(3) = "我妈会游泳"
Msg(4) = "工资全上交"
Style = vbYesNo + vbInformation
Title = "小姐姐我要撩你"
for i=0 to 4
Response = MsgBox(Msg(i), Style, Title)
If Response = vbYes Then ' 用户选择[是].
MyString = "Yes" ' Preform some action.
Response = MsgBox("我就知道你会同意的，哈哈！",vbOKOnly ,Title)
exit for
Else ' 用户选择[否],
MyStrig = "No" ' Perform some action.
If i =4 Then
i=-1
End If
End If
Next

最后保存的时候后缀名加上.vbs,并且编码设置为ANSI,如下图