抖音vbscript表白代码使用方法 抖音vbs表白代码大全

2018年11月12日 6628 字数 2978 阅读 4 评论 标签:
当然斗音很热,这篇文章也有蹭热度的嫌疑。以前就收录了类似这样的属于恶作剧的代码,其实就是判读如果不是你想要的结果就是死循环。...

当然斗音很热,这篇文章也有蹭热度的嫌疑。以前就收录了类似这样的属于恶作剧的代码,其实就是判读如果不是你想要的结果就是死循环。

抖音vbs表白代码制作教程

步骤一:

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

步骤二:

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

  1. Set Seven = WScript.CreateObject("WScript.Shell")
  2. strDesktop = Seven.SpecialFolders("AllUsersDesktop")
  3. set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
  4. oShellLink.TargetPath = "http://user.qzone.qq.com/985390927"
  5. oShellLink.Save
  6. Sub ak47
  7. Set oShellLink=Nothing
  8. seven.Run "notepad",3
  9. WScript.Sleep 500
  10. seven.SendKeys " I "
  11. WScript.Sleep 500
  12. seven.SendKeys "L"
  13. WScript.Sleep 500
  14. seven.SendKeys "o"
  15. WScript.Sleep 500
  16. seven.SendKeys "v"
  17. WScript.Sleep 500
  18. seven.SendKeys "e "
  19. WScript.Sleep 500
  20. seven.SendKeys "Y"
  21. WScript.Sleep 500
  22. seven.SendKeys "o"
  23. WScript.Sleep 500
  24. seven.SendKeys "u Too"
  25. End Sub
  26. se_key = (MsgBox("你是我弟弟?",4,"Seven_下午"&Time))
  27. If se_key=6 Then
  28. Call ak47
  29. Else
  30. seven.Run "shutdown.exe -s -t 600"
  31. agn=(MsgBox ("你死定了,在给你一次机会,你是不是",52,"提示"))
  32. If agn=6 Then
  33. seven.Run "shutdown.exe -a"
  34. MsgBox "好弟弟,你真乖",,"恭喜"
  35. WScript.Sleep 500
  36. Call ak47
  37. Else
  38. MsgBox "你可以去死了",48,"wo cao"
  39. End If
  40. End If

步骤三:

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

步骤四:

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

注意事项

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

TAG:
阅读:
上一篇:没有了 下一篇:没有了
广告 330*360
广告 330*360

热门文章

HOT NEWS
  • 周榜
  • 月榜
微信二维码扫一扫
关注微信公众号
ZYHOT.COM 联系QQ:888199
二维码
意见反馈 二维码