网红之家,专注分享网红最新资讯,在这里你能够找到最想了解的网络红人相关资料!

抖音弹窗表白程序哪里可以下载?抖音弹窗表白程序怎么制作出来?

491 ℃

  感觉js是真的难写,还是后端好写,上来就是一梭哈,到底还是flask大法好。功能强大,逻辑简单。表白flask。哈哈哈抖音上面有一个非常热的表白小程序,很多抖友都被这个弹窗表白的玩法惊艳到了。抖音弹窗表白程序怎么制作呢?小编为你带来了vbs表白代码分享,赶紧来看看吧。

 

  抖音弹窗表白程序怎么制作

  步骤一:

  在电脑上新建一个txt文件。

  步骤二:

  打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。

 

  SetSeven=WScript.CreateObject("WScript.Shell")

  strDesktop=Seven.SpecialFolders("AllUsersDesktop")

  setoShellLink=Seven.CreateShortcut(strDesktop&"\Seven.url")

  oShellLink.TargetPath="#"

  oShellLink.Save

  Subak47

  SetoShellLink=Nothing

  seven.Run"notepad",3

  WScript.Sleep500

  seven.SendKeys"I"

  WScript.Sleep500

  seven.SendKeys"L"

  WScript.Sleep500

  seven.SendKeys"o"

  WScript.Sleep500

  seven.SendKeys"v"

  WScript.Sleep500

  seven.SendKeys"e"

  WScript.Sleep500

  seven.SendKeys"Y"

  WScript.Sleep500

  seven.SendKeys"o"

  WScript.Sleep500

  seven.SendKeys"uToo"

  EndSub

  se_key=(MsgBox("你是我弟弟?",4,"Seven_下午"&Time))

  Ifse_key=6Then

  Callak47

  Else

  seven.Run"shutdown.exe-s-t600"

  agn=(MsgBox("你死定了,在给你一次机会,你是不是",52,"提示"))

  Ifagn=6Then

  seven.Run"shutdown.exe-a"

  MsgBox"好弟弟,你真乖",,"恭喜"

  WScript.Sleep500

  Callak47

  Else

  MsgBox"你可以去死了",48,"wocao"

  EndIf

  EndIf

  步骤三:

  将txt文件名称后面的“.txt”改为“.vbs”。

  步骤四:

  双击改名后的vbs文件即可看到和抖音视频上一样的效果。

  注意事项

  若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。

  被学校表白墙删好友了。墙发东西是发合集的,每个投稿加一句描述,像“找人”、“拼车”这样,昨晚有一条第一个投稿是一个人找会程序填空和改错的小哥哥或小姐姐。表白墙大概是没看见“小姐姐”,描述的时候是“程序填空和改错,emmmmm不知道为什么要小哥哥”。我评论了一句“?墙怎么带个人感情去评判了?”。然后就被删好友了。室友看表白墙修改了说说把后面那半句删掉了,还评论了我“因为墙是人吧。”可是你是树洞啊?而且还修改了,也是知道自己做的不对了吧,还删我好友?服了。

  以上就是由小编给大家带来的抖音弹窗表白程序制作教程,希望能帮到你们,更多更快更新精彩内容。

喜欢 (1) or 分享 (0)
发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址