计算机半小时后关机代码,点击一按钮电脑就会在一分钟后自动关机的代码怎么写...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

有没有大佬帮忙看看，点击否认后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")