查看完整版本: 与陌生人聊天的小程序，极小巧！！！DOS版

与陌生人聊天的小程序，极小巧！！！DOS版

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


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

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

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

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


支持下！

靠.什么鸟东西.运行了.自己开个网页出来.[url]http://wpa.qq.com/msgrd?V=1&Uin=&Site=im.qq.com&Menu=yes[/url]
大小只有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

不知道这个有多大呢!!

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

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

都是高人。:tk_00

回复 长椅 的帖子

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

[quote]原帖由 [i]sqh[/i] 于 2008-8-26 20:13 发表 [url=http://bbs.ye-soft.net/redirect.php?goto=findpost&pid=146837&ptid=10055][img]http://bbs.ye-soft.net/images/common/back.gif[/img][/url]
把下面代码拷贝到记事本并保存为“与陌生人聊天.vbs”，用时双击这个文件：
    Dim FileSpec
    FileSpec = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & " 请输入QQ号码!", "请输入QQ号码", "")
    If IsNumeric(F ... [/quote]



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


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

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

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

[quote]原帖由 [i]laidehua[/i] 于 2008-8-26 21:36 发表 [url=http://bbs.ye-soft.net/redirect.php?goto=findpost&pid=146886&ptid=10055][img]http://bbs.ye-soft.net/images/common/back.gif[/img][/url]




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


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

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

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

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