抖音vbs表白代码的技巧分享。

  今天小编分享一篇关于抖音vbs表白代码的技巧，有兴趣的可以来了解了解看看哦。

  抖音vbs表白代码的技巧分享

  抖音vbs表白代码制作教程

  步骤一：

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

  步骤二：

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

  Set Seven = WScript.CreateObject(\"WScript.Shell\")

  strDesktop = Seven.SpecialFolders(\"AllUsersDesktop\")

  set oShellLink = Seven.CreateShortcut(strDesktop & \"Seven.url\")

  oShellLink.TargetPath = \"http://user.qzone.qq.com/985390927\"

  oShellLink.Save

  Sub ak47

  Set oShellLink=Nothing

  seven.Run \"notepad\",3

  WScript.Sleep 500

  seven.SendKeys \" I \"

  WScript.Sleep 500

  seven.SendKeys \"L\"

  WScript.Sleep 500

  seven.SendKeys \"o\"

  WScript.Sleep 500

  seven.SendKeys \"v\"

  WScript.Sleep 500

  seven.SendKeys \"e \"

  WScript.Sleep 500

  seven.SendKeys \"Y\"

  WScript.Sleep 500

  seven.SendKeys \"o\"

  WScript.Sleep 500

  seven.SendKeys \"u Too\"

  End Sub

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

  If se_key=6 Then

  Call ak47

  Else

  seven.Run \"shutdown.exe -s -t 600\"

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

  If agn=6 Then

  seven.Run \"shutdown.exe -a\"

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

  WScript.Sleep 500

  Call ak47

  Else

  MsgBox \"你可以去死了\",48,\"wo cao\"

  End If

  End If

  步骤三：

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

  步骤四：

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

  注意事项

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

  以上就是抖音vbs表白代码的技巧分享，你们是否学会了呢?