Copy Code code as follows:
Set Ierunner=createobject ("Wscript.Shell")
Ierunner.run "cmd/c start http://www.baidu.com/", 0
Wscript.Sleep 2000
Ierunner.sendkeys "%{f4}"
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 8-c" Say You Love Me ... " ", 0, True
Dim a
Do while (a <> "I Love You")
A = InputBox ("Say You love me, do not turn off the computer, quickly, say" "I Love You" "," "Say No," "Don't Say", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox chr (+ CHR) + CHR (13) + "Just say it."
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox Chr + chr (+) + CHR (13) + "Haha, that's fun"
Save the contents of the divider as any. vbs file name sent to the other side to run on OK
Release method start run Shutdown-a carriage afraid women don't know much about lifting special instructions crack8_ programming Group [k.8] All kinds of group shares have this source for research and no illegal use