钉钉催回复vbs代码

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