频道栏目
首页 > 程序开发 > 软件开发 > Vb > 正文
[开源]K8聊天QQ机器人V1.3 VB源码
2012-08-23 15:28:56      个评论    来源:拉登哥哥'blog  
收藏   我要投稿
初来红黑 不知道发啥好 废话少说 先上个K8机器人的源码
博客老是访问不了 不知道是公司网速有问题 还是网易现在在搞啥玩意
等能上自己博客后再转几篇文章过来 以后博客更时 这边也会顺手发布

K8智能聊天QQ机器人功能简介

1 卖萌搞笑聊天 (允许用户教K8说话 用户教的越多 K8就越聪明 别把它教太坏了)
2 坑爹命令 (用于群内调侃的 呵呵 因为有“骂人”  很多人用于和熟人开玩笑的)
3 各种算法加密解密(面向程序员或黑阔群   MD5反查功能 由黑客X档案提供接口)
4 模拟一些简单的黑客游戏(主要面向黑阔群)
5 执行DOS命令 (默认不启用 主要面向黑阔群)
6 真实PING命令 (不用解释)
7 K8科学计算器(输入数学表达式 就能计算结果 功能继续添加中)
8 IP查询  查询IP所在地 (使用纯真2012.1.30数据库
9 手机查询  查询手机所在地 卡类型  邮编  区号
10 随机笑话 (有各类笑话 供网友查看)
11 注册码 (查看常用软件注册码或破解方法)
12 英汉字典 (翻译常用单词 短语 共计36662条)
13 有趣报时 (报告当前时间 带有节日提醒等)
14 网址导航 (目前库中暂无记录)
15 随机双色球 20120325 
16 MS12020  3389蓝屏EXP 20120404
◎ QQ清屏 (群内垃圾消息太多 可用 #cls  #清屏 )

详细功能介绍: http://qqhack8.blog.163.com/blog/static/114147985201235259559



\

附上VC获取聊天内容和回复聊天信息源码

#include <windows.h>
#include <stdio.h>

int main()
{
// 获取QQ聊天对话框窗口句柄
HWND hWnd = NULL;
while (TRUE)
{
// 获取QQ窗口
hWnd = ::FindWindowEx(NULL, hWnd, "#32770", NULL);
if (NULL == hWnd)
return 1;
// 通过获取发送按钮判断该窗口是否为聊天窗口
if (NULL != FindWindowEx(hWnd, NULL, "Button", "发送(S)"))
break;
}

// 获取输出窗口名称
char szName[1024] ="\0";
GetWindowText(hWnd, szName, 1023);
printf("WndName:%s\n", szName);

// 获取聊天对话框的显示窗口句柄
HWND hQQWnd = ::FindWindowEx(hWnd, NULL, "RichEdit20A", NULL);
if (NULL == hQQWnd)
return 1;

// 获取聊天内容
char szText[5000] = "\0";
SendMessage(hQQWnd, WM_GETTEXT, 4999, (long)szText);
printf("Text: %s\n", szText);

return 0;
}

用到 FindWindowEx SendMessage GetWindowText 3个函数
VC可直接调用 VB C# 或易 要先声明这3个API 后才能使用 自己看着办


K8聊天QQ机器人VB版源码[K.8].rar
MD5值:D92E5EB58F0787315C3E06C17CBE8C4A
SHA1值:3657C5656EC6131DC312D24373306B18B65CC3CA
注意: 若发现文件值不一样 则有可能被别人捆绑木马后再发布的

解压密码: k8robot.org

下载地址
http://up.2cto.com/2012/0823/20120823030203342.rar
点击复制链接 与好友分享!回本站首页
相关TAG标签 机器人 源码
上一篇:在Word文档中迭代CustomXmlDocument
下一篇: VB中使用报表控件(一)
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站