网红抖音神器教你怎么用vbs表白

作者:wy  发布日期:2019-01-12 08:35:00
Tag标签:VBS表白  抖音VBS  VBS代码  
  •   最近抖音变成网红神器,每个人每个手机必备软件,如果你现在还不知道抖音是什么软件,那么你真的是OUT。今天给大家分享一小技巧,怎么用VBS表白!

      VBScript步骤一:

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

    vbs表白

      步骤二:

      打开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”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。

      这个小技巧如果对互有好感的朋友来说,成功的几率是百分之百,如果对方不明确的含义下使用也有百分之五十的成功概率,但是如果对方已经不想和你做朋友的情况下,还是不要去尝试了。

延伸阅读:

About IT165 - 广告服务 - 隐私声明 - 版权申明 - 免责条款 - 网站地图 - 网友投稿 - 联系方式
本站内容来自于互联网,仅供用于网络技术学习,学习中请遵循相关法律法规
甘肃快3开奖网站上海快3优惠甘肃快3是哪间公司的甘肃快3提前预知怎么玩甘肃快3秒速赛车为什么赢不了吉林快3开奖网站甘肃快3怎么样玩才能赚到钱贵州快3可以玩嘛秒速赛车哪个网址