首先打开记事本/或者新建一个本文文档。
首先得代码
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t （180这个时间安秒计算）时间你可以修改 -c ""如果不说 三分钟我就关你机(QQ:
626813629)"" ",0 ,true
dim a
我图解
介绍
这个是方法1代码
do while(a <> "答案")
a = inputbox ("问题 ""问题最后一个词"" ","QQ要想做自己的就加上自己的QQ","QQ:
626813629")
loop
这个是方法2代码
do while(b <> "答案")
b = inputbox ("问题","QQ做自己的就加自己的QQ","QQQQ:
626813629")
loop
这个是方法2代码
do while(c <> "答案")
c = inputbox ("问题","QQ同上","QQ:
626813629")
loop
这个代码你没有按确定还是会倒计时的
msgbox chr(13) + chr(13) + chr(13) + "输入你想说的文字"
dim WSHshell
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "这个代码可以无限添加..我觉得恶搞嘛.你弄100-200个这样的代码也是理所当然的事情.主要是想弄的他关机"
msgbox chr(13) + chr(13) + chr(13) + "最后你想说的话"
剩下的代码你可以修改
保存方法
把写好的源码
这个最重要..
这个是我弄的
恶搞小程序~~反盗.zip[点击下载](13 K) 下载次数:19 累计下载获得 ＤＢ 38 刀杀毒链接
http://r.virscan.org/report/60c75615fbd9b74b51a69ce26cba63eb.html要是看不懂你就下载源码看看..
恶搞源码.txt[点击下载](1 K) 下载次数:23 累计下载获得 ＤＢ 46 刀杀毒链接：
http://r.virscan.org/report/d8a9dafd1993c282196e7409945bb307.html要是还看不懂就加QQ
[ 此帖被lr丶在2012-08-26 20:54重新编辑 ]
