相信很多朋友在刷抖音的时候刷到很多表白程序,很是神奇。想知道这是怎么做的,自己也想弄一个,下面小编为大家带来了抖音vbs表白代码制作教程分享,想学习的朋友快来了解一下吧!
  
  抖音vbs表白代码制作教程
  
  步骤一:
  
  在电脑上新建一个txt文件。
  
  步骤二:
  
  打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。
  
  Set Seven = Ws cript.CreateObject(“Ws cript.Shell”)
  
  strDesktop = Seven.SpecialFolders(“AllUsersDesktop”)
  
  set oShelll ink = Seven.CreateShortcut(strDesktop “\Seven.url”)
  
  oShelll ink.TargetPath = “http://user.qzone.qq.com/985390927”
  
  oShelll ink.Save
  
  Sub ak47
  
  Set oShelll ink=Nothing
  
  seven.Run “notepad”,3
  
  Ws cript.Sleep 500
  
  seven.SendKeys ” I “
  
  Ws cript.Sleep 500
  
  seven.SendKeys “L”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “o”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “v”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “e “
  
  Ws cript.Sleep 500
  
  seven.SendKeys “Y”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “o”
  
  Ws cript.Sleep 500
  
  seven.SendKeys “u Too”
  
  End Sub
  
  se_key =http://zzdxjyzd.com/ (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 “好弟弟,你真乖”,,”恭喜”
  
  Ws cript.Sleep 500
  
  Call ak47
  
  Else
  
  MsgBox “你可以去死了”,48,”wo cao”
  
  End If
  
  End If
  
  步骤三:
  
  将txt文件名称后面的“.txt”改为“.vbs”。
  
  步骤四:
  
  双击改名后的vbs文件即可看到和抖音视频上一样的效果。
  
  注意事项
  
  若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击,在前面打勾即可。

转载于:https://www.cnblogs.com/dakunqq/p/11438759.html