注意：请看清使用说明，不适合高手使用，高手跳过此贴。
在IE地址中输入网址实现与陌生人聊天的功能


使用说明：
将压缩包中 "Talk2QQ.exe" 解压到 "C:\"，方便输入命令。

要与陌生人聊天时，先登录你的QQ号码，再打开命令提示符（开始，运行，输入“cmd”，回车），
再输入如下命令
cd \
Talk2QQ 陌生人QQ号码（例如：Talk2QQ 888888）

[ 本帖最后由 laidehua 于 2008-8-26 13:13 编辑 ]

悄悄的我坐在了沙发上~~~~


支持下！

靠.什么鸟东西.运行了.自己开个网页出来.http://wpa.qq.com/msgrd?V=1& ... qq.com&Menu=yes
大小只有1.4k的东西.

把下面代码拷贝到记事本并保存为“与陌生人聊天.vbs”，用时双击这个文件：
    Dim FileSpec
    FileSpec = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & " 请输入QQ号码!", "请输入QQ号码", "")
    If IsNumeric(FileSpec) <> True or FileSpec="" Then
        MsgBox "输入QQ号码错误！", 0, "提示"
        Else
        Dim fso, objShell
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set objShell = CreateObject("Wscript.Shell")
        objShell.exec "%ProgramFiles%\Internet Explorer\IEXPLORE.EXE Tencent://Message/?Menu=YES&Exe=&Uin=" & FileSpec
        Set objShell = Nothing
    End If

不知道这个有多大呢!!

[ 本帖最后由 sqh 于 2008-8-26 20:15 编辑 ]

呵呵，原理都是一样。。。

都是高人。

我在第一行就强调要看清楚使用说明的，是你没有看清，记住不要说脏话，否则，小心你被删除掉。我已经说得非常清楚的，看不懂就别下载！！！打开网页就是为了和陌生人聊天，聊不成是因为启动时没有带陌生人的QQ帐号。

引用:

原帖由 sqh 于 2008-8-26 20:13 发表
把下面代码拷贝到记事本并保存为“与陌生人聊天.vbs”，用时双击这个文件：
    Dim FileSpec
    FileSpec = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & " 请输入QQ号码!", "请输入QQ号码", "")
    If IsNumeric(F ...

我删除了多余的空格，是495字节，运行正常。就是多了一个输入QQ帐号的窗口。
我所以弄这个发上来，是因为论坛里有人发了一个用什么autoit写的与陌生人聊天的程序，要三百多KB啊！！！


你的签名非常有意思，是不是你有那么看得开，修行到了那个层次啦  ;-)

菩提本无树
明镜亦非台
本来无一物
何处惹尘埃

[ 本帖最后由 laidehua 于 2008-8-26 21:39 编辑 ]

引用:

原帖由 laidehua 于 2008-8-26 21:36 发表




我删除了多余的空格，是495字节，运行正常。就是多了一个输入QQ帐号的窗口。
我所以弄这个发上来，是因为论坛里有人发了一个用什么autoit写的与陌生人聊天的程序，要三百多KB啊！！！


你的签名非常有意思，是不是你有那么看得 ...

原理是简单，一个链接的事情。
300多K怎么了？你的程序小是吗？
我的那个特点是不弹网页，你用链接能做到这个吗

[ 本帖最后由 黑菜 于 2008-8-27 11:12 编辑 ]

支持下~~~~~~~~~~~~~