[原创]QQ任意输入(想聊就聊) - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [原创]QQ任意输入(想聊就聊)

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 14711 人关注过本帖， 1 人收藏

标题：[原创]QQ任意输入(想聊就聊)

取消只看楼主加入收藏

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
结帖率：100%

楼主

问题点数：0 回复次数：10

[原创]QQ任意输入(想聊就聊)

一个很简单的QQ连接程序

QnCOffbt.rar (21.9 KB) [原创]QQ任意输入(想聊就聊)

搜索更多相关主题的帖子: 输入　

2007-05-26 15:29

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 2 楼

得分:0

不需要加对方就直接找他/她聊天原理就是连接 “点QQ联系我”功能一样

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-26 19:52

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 3 楼

得分:0

恩

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-26 20:20

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 4 楼

得分:0

嘿嘿谢谢

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-27 10:49

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 5 楼

得分:0

回复：（b13690976754）[原创]QQ任意输入(想聊就聊)

XOnRR18S.rar (20.45 KB) [原创]QQ任意输入(想聊就聊)

呵呵很简单的

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-27 15:29

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 6 楼

得分:0

可以就是黑名单或者对方阻止陌生消息一样可强制聊天怎么样情况也可以

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-27 18:16

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 7 楼

得分:0

源代码不是已经上传了吗？

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-28 15:22

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 8 楼

得分:0

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-29 17:48

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 9 楼

得分:0

脚本？

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-08 12:57

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 10 楼

得分:0

有哟

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-12 17:25

快速回复：[原创]QQ任意输入(想聊就聊)