VBS怎么弄

时间:2013-03-14 03:43来源:未知 作者:admin 点击:

标签: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 ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",800
VBS怎么弄》文章地址:http://www.tfxk.com/zixun_shenghuo/0314352O2013.htm

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


(责任编辑:网站建设)
VBS怎么弄相关文章
上一篇:路西法是怎么变成撒旦的? 下一篇:两个接触器,一台水泵,一个水位开关,自锁接法,还能起到缺相保
回到顶部