自己打做的QQ强行聊天器

mxg825

<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>

hhzjxss

<p>会是会做，但还是要回帖的！</p><p></p>

hhzjxss

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

cherry-en

看看！

tkgg93

0

mxg825

<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编辑过]

hhzjxss

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

hhzjxss

<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>

HYY514

<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>

mxg825

<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编辑过]