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

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

复制下面内容

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,如下图

  • 8
    点赞
  • 30
    收藏
    觉得还不错? 一键收藏
  • 6
    评论
可以在局域网中发送消息的vbs程序,小巧,易用 go.exe 命令参数: /p 图片路径 [-L1 -L2 -H1 -H2 -B1 -Q1] /z 公告内容 /t 公告时长 /n 网吧名称 /u 网址 --------------------------------------------------------------------------------------------- /p 背景路径 /z 公告内容 /t 公告时长 /n 网吧属名 /u 给公告加连接 ( /p /z /n /t )四位参数的组合使用或其中三位与三位以下参数组合时候,参数不分前后,加上/U时一定要按指定格式书! '当公告在执行的其间,任务管理器失效,自动退出后,任务管理器复原! 1.增加/u参数 必须用上 /p /z /t /n 四个参数之时,/u才存在,否则都会出错!而且要以下面的顺序格式才OK! ----------------------------------------------------------------------------------------------- 1 2 3 4 5 < /p 图片路径 /z 公告内容 /t 公告时长 /n 网吧名称 /u 网址> 例: go /n 盈众网吧 /p Background.jpg /z 请注意好您的贵重物品 /t 5 /u http:\\www.sina.com.cn (注意:网址的斜线必须为"\") ----------------------------------------------------------------------------------------------- 2.增加六种颜色: (注意: 必须使用在公告内存后面,下面有例子) ----------------------------------------------------------------------------------------------- <-L1> <-L2> <-H1> <-H2> <-B1> <-Q1> ~~~字母匀为大,小无效~~~~ 蓝 绿 红 黄 白 青 例: go /z 请注意好您的贵重物品,如有丢失,本网吧概不负责 -B1 /t 3 ----------------------------------------------------------------------------------------------- 3. 去掉了广告 4. 加动态移出! 5.链接为“公告内容”

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 6
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值