Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 15917|回复: 70

自己打做的QQ强行聊天器

[复制链接]
发表于 2008-7-26 11:42 | 显示全部楼层 |阅读模式
<p><font color="#ff0000">操作办法:</font></p><p><font color="#ff0000">先新建一个记事本.TXT,然后输入以下代码:</font></p><p>@echo off <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; title QQ强制聊天器 by:鲁洪昊 QQ:645121108<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; color 1e <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; echo&nbsp;&nbsp; ********************<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; echo&nbsp;&nbsp; *&nbsp;&nbsp; QQ强制聊天器&nbsp;&nbsp; *<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; echo&nbsp;&nbsp; ********************&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; echo 本程序应用于与任意号码聊天<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; echo&nbsp;&nbsp;&nbsp;&nbsp; !!请先打开QQ!!<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pause<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :q<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set /p qq=请输入你想要强制聊天的人的QQ号码:&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If /I "%qq%"=="n" Exit&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; start tencent://Message/?Uin=%qq%<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pause<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; goto q&nbsp;</p><p><br/><font color="#f70909">保存改名为“聊天器.bat”,启动QQ后再运行本程序即可实现QQ强行聊天。</font></p><p><font color="#f70909">如果不会做,请回复,下载现成的附件!</font></p><p>
游客,如果您要查看本帖隐藏内容请回复
</p>

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2008-7-26 11:50 | 显示全部楼层

<p>会是会做,但还是要回帖的!</p><p></p>
回复

使用道具 举报

发表于 2008-7-26 11:55 | 显示全部楼层

<p>鲁洪昊有什么学习批处理命令的资料 吗?</p><p>&nbsp;</p><p>[em17]</p><p></p><p></p><p></p>
回复

使用道具 举报

发表于 2008-7-26 12:13 | 显示全部楼层

看看!
回复

使用道具 举报

发表于 2008-7-26 12:28 | 显示全部楼层

0
回复

使用道具 举报

 楼主| 发表于 2008-7-26 12:43 | 显示全部楼层

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-7-26 11:55:00的发言:</b><br/><p>鲁洪昊有什么学习批处理命令的资料 吗?</p><p>&nbsp;</p><p>[em17]</p><p></p><p></p><p></p></div><p>我这阵子找到了一个用BAT和WinRAR 共同完成的 </p><p>自动注册控件的办法!还挺不错的, </p><p>解决了写好的VBA代码,发到其他电脑, </p><p>因对方没有注册相关控件而产生的无法应用问题!</p>
[此贴子已经被作者于2008-7-26 14:26:52编辑过]
回复

使用道具 举报

发表于 2008-7-26 13:05 | 显示全部楼层

<p>我是说,你有没有学习资料,我也好学习一下批处理命令呢!</p><p></p>
回复

使用道具 举报

发表于 2008-7-26 13:15 | 显示全部楼层

<p>用下面这句也可打开QQ聊天窗口!</p><p>Sub 打开QQ()<br/>&nbsp;&nbsp;&nbsp; CreateObject("InternetExplorer.Application").Navigate "<a href="http://wpa.qq.com/msgrd?V=1&amp;amp;Uin=313755341&amp;amp;Menu=yes">http://wpa.qq.com/msgrd?V=1&amp;amp;Uin=313755341&amp;amp;Menu=yes</a>"<br/>End Sub<br/></p>
回复

使用道具 举报

发表于 2008-7-26 13:44 | 显示全部楼层

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-7-26 13:15:00的发言:</b><br/></div><p>一样的,都是调用腾老大的临时对话框,不同的是一个是批命令一个是VBA</p><p>s = InputBox("输入QQ号码")<br/>ActiveWorkbook.FollowHyperlink "<a href="http://wpa.qq.com/msgrd?V=1&amp;amp;Uin">http://wpa.qq.com/msgrd?V=1&amp;amp;Uin</a>=" &amp; s &amp; "&amp;amp;Menu=yes"<br/></p>
回复

使用道具 举报

 楼主| 发表于 2008-7-26 14:19 | 显示全部楼层

<p>我刚才在网上找到了一句: 和两位的差不多!</p><p>Sub MXG_Click()<br/>On Error Resume Next<br/>Dim IE<br/>Set IE = CreateObject("InternetExplorer.application")<br/>&nbsp;&nbsp;&nbsp; IE.Visible = False<br/>&nbsp;&nbsp;&nbsp; IE.Navigate <a href="http://www.excelpx.com/=&quot;tencent://Message/?Uin=105030071">URL:="tencent://Message/?Uin=105030071</a>"<br/>&nbsp;&nbsp;&nbsp; Set IE = Nothing<br/>End Sub</p>
[此贴子已经被作者于2008-7-26 14:24:20编辑过]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 16:41 , Processed in 6.554286 second(s), 4 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表