抖音vbs表白代码大全 抖音vbscript表白代码使用方法
fky1234561592019-04-29 09:28
材料/工具
方法
- 首先在桌面右击选择“新殖身富管队酒前建”中的“文本文档”。
- 然后将以下代码粘贴进去:
Set Seven = WScr汽周延满复值扩创ipt.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsers字载校到而续够镇伟Desktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.TargetPath = "http://user.qzone.qq.com/98539092来自7"
oShellLink.Save
Sub ak4及松什7
Set oShell轴汽露缩免它Link=Nothing
seven.Run "no确走分属农tepad",3
WScript.Sleep 500
seven.SendKey责s " I "
WScript.Sleep 500
seven.SendKeys 360新知"L"
WScript.Sleep 500
seven.SendK待史eys "o"
WScript.Sleep 500
seve跟史高板跟夜料耐距吃尔n.SendKeys "v"
组项起示WScript.Slee质毛当派术富做施p 500
seve谓帝n.SendKeys "e "
WScript.Sleep 500
seven宜灯条紧专治据刘研坏.SendKeys "Y"
WScript.S是受围级供掌素事很挥翻leep 500
seven.SendKeys "o"
WScript.Sleep 具取资门费紧500
seven.SendKeys "u Too"
End Su立传b
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 - 然后点击“文件”中的“另存为”。
- 然后将其后缀名修改为.vbs。
- 然后点击刚刚另存为的文件。
- 最后就完成了。
声明本文系本人根据真实经历原创,未经许可,请勿转载。