Set Seven = WScript.CreateObject("WScript.Shell")

strDesktop = Seven.SpecialFolders("AllUsersDesktop")

set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")

oShellLink.Save

se_key = (MsgBox("你可以回我釘釘嗎？ 是或否 ",4,"認真ing"))

If se_key=6 Then

MsgBox "那么趕快回答吧！",64,"：)"

Else

seven.Run "shutdown.exe -s -t 600"

agn=(MsgBox ("求求你了，回我釘釘！",4,"別拒絕我，好嗎？"))

If agn=6 Then

seven.Run "shutdown.exe -a"

MsgBox "那么快回吧！",,"謝謝了！"

WScript.Sleep 500

Else

MsgBox "唉，無奈"

seven.Run "shutdown.exe -a"

MsgBox "其實你拒絕了我，我也不會關你電腦的！因為我等你"

End If

End If