[开源]K8聊天QQ机器人V1.3 VB源码

初来红黑 不知道发啥好 废话少说 先上个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://www.2cto.com/uploadfile/2012/0823/20120823030203342.rar