VBS怎么弄

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"

********************************************************************************************************

上面已经说清楚了啊。在桌面新建一个文本文档，把代码写到里面。然后左上角有个“文件”>“另存为”。文件名输入：00.vbs或者11.vbs或者22.vbs或者33.vbs ，只要后面带个.vbs就行

你复制的第五行和第四行是应该是一行，限于答题框的限制显示，所以分成两行来显示了

 
set fso=createobject("scripting.filesystemobject")
set ws=wscript.createobject("wscript.shell")
fso.createtextfile("love.txt")
ws.run("love.txt")
wscript.sleep 500
ws.sendkeys("S")
wscript.sleep 100
ws.sendkeys("o")
wscript.sleep 100
ws.sendkeys("r")
wscript.sleep 100
ws.sendkeys("r")
wscript.sleep 100
ws.sendkeys("y")
wscript.sleep 100
ws.sendkeys(" ")
wscript.sleep 100
ws.sendkeys(":")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(".")
wscript.sleep 500
ws.sendkeys(chr(10))
wscript.sleep 500
ws.sendkeys("I")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("l")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("v")
wscript.sleep 500
ws.sendkeys("e")
wscript.sleep 500
ws.sendkeys(" ")
wscript.sleep 500
ws.sendkeys("y")
wscript.sleep 500
ws.sendkeys("o")
wscript.sleep 500
ws.sendkeys("u")
wscript.sleep 500
ws.sendkeys("!")
fso.DeleteFile("love.txt")

 帮弄弄、截个图来。。。问题还是和上面一样

作者想要达到的效果是这样的：

可是我的效果是这样的：

这东西没法弄，跟输入法的默认情况有关。所以，没用。

这个还是跟上面一样。另存为11.vbs