设为首页收藏本站
登录 立即注册
查看: 891|回复: 0

[表白攻略] vbs代码表白怎么写,带图文教程

[复制链接]

该用户从未签到

1338

主题

1338

帖子

2686

积分

版主

Rank: 7Rank: 7Rank: 7

积分
2686
发表于 2019-6-6 13:24:03 | 显示全部楼层 |阅读模式
  vbs代码表白怎么写?这是一个高端的必杀表白法,没有妹子能够抵挡得住这样的操作。今天,小编就为大家带来有图片的vbs代码表白。下面,就让我们去看看吧!
et12962111856071.jpg

  vbs代码表白有图片步骤一:
  在电脑上新建一个txt文件。

  vbs代码表白有图片步骤二:
  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代码表白有图片步骤三:
  将txt文件名称后面的“.txt”改为“.vbs”。
et12962111856072.jpg

  vbs代码表白有图片步骤四:

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

  注意事项
  若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。
  以上就是,小编为各位带来的vbs代码表白怎么写_vbs代码表白有图片的了,更多表白攻略,敬请关注官网!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表