***** 专业、系统和创新的群发系列软件




用记事本打造自己的QQ强行聊天器 - Powered By BBSXP
   www.168318.com -- 邮件营销-邮件群发,邮件地址搜索,地址验证其他论坛其他技巧集锦用记事本打造自己的QQ强行聊天器

发表新主题 回复帖子 您是本帖第 6284 个阅读者 适合打印机打印的版本 通过电子邮件发送此页面 添加加到IE收藏夹 报告本帖 浏览上一篇主题 浏览下一篇主题
 主题:用记事本打造自己的QQ强行聊天器
admin
 



等  级:管理员
经 验 值:853
社区金币:853
总发贴数:449
注册时间:2006/5/3
状  态:离线
信息 短讯 邮箱 主页 好友 搜索 引用 回复 No.1

用记事本打造自己的QQ强行聊天器

  想和没有通过验证的QQ好友的人聊天吗?在一般情况下,如果对方禁止了陌生人聊天,你是做不到的。你可能会在网上看到一些强行聊天器程序,不过这些程序在使用时总是会弹出网页,没准藏了什么流氓软件呢。能否做一个这些“麻烦”的软件呢?

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

<TABLE style="BORDER-RIGHT: #cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; WIDTH: 502px; BORDER-BOTTOM: #cccccc 1px dotted; HEIGHT: 424px" cellSpacing=0 cellPadding=6 width=502 align=center border=0><TBODY><TR><TD style="WORD-WRAP: break-word" bgColor=#fdfddf>

ON ERROR RESUME NEXT

Dim QQ_NUM

if  Wscript.arguments.count<1  then

    QQ_NUM=InputBox(""&vbCr&vbCr&"电脑爱好者"&vbCr&vbCr&"","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=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0

</TD></TR></TBODY></TABLE>

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

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

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

  Dim QQ_NUM 定义变量

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

  对话框内容 if QQ_NUM="" then 检测用户的输入是否为空,如果为空Wscript_.quit 退出脚本

  http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes 这个是QQ临时聊天的代码

  第三步:打算QQ网络硬盘,然后上传至“我的文档”→“软件”栏中,当想要使用时直接点击,因为比较小(只有533字节),所以立即就可以使用了。


编辑 删除 发表时间:2007/6/16 23:30:41  IP: 已记录
收藏帖子 | 取消收藏 | 返回页首 
www.168318.com -- 邮件营销-邮件群发,邮件地址搜索,地址验证 - Powered By BBSXP



Powered by BBSXP 6.00 SP1 © 1998-2006
Script Execution Time:371ms