捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
QQ Runer v1.01
关键字：QQ OICQ Runer ProjectQQ
来　自：原创
平　台：Win9x,Win2k/XP/NT,Win2003,Vista 下载所需：0 火柴
深浅度：高级 完成时间：2005/10/9
发布者：sgfree 发布时间：2007/12/14
编辑器：BDS2006 语　　种：简体中文
分　类：互联网 下载浏览：2173/16374
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
没啥好补充的,一份支持QQ协议的孔件,2006年发表于 hellfish.ys168.com,使用也很简单.

QQ[OICQ] Runer Ver 1.01

Copyright (C) 2006 HellFish

E-Mail: hellfish@qq.com,sgfree@hotmail.com
QQ[OICQ]: 4427968

保留以上信息,保留对作者最基本的尊重.

//Example
//....
//var QQ1:TQQRuner;
//...
//QQ1:=TQQruner.Create;
//QQ1.QQNumber:=123456;
//QQ1.QQPassWord:=123456;
//QQ1.QQHide:=False;
//QQ1.QQAutoReply:='自动回复';
//QQ1.QQStart;
//.....
//QQ1.QQSendIM(OICQ号,信息内容,字体,模式,R颜色,G颜色,B颜色); 发送信息
//.....
//QQ1.FInfo.LastMessages 最后收到的消息
//QQ1.Finfo.MessageQQ 最后发来消息的QQ号码
//QQ1.QQKeepLive;
//.....
//QQ1.QQStop;
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
QQ Runer v1.01
sgfree 2007/12/14 下+2173/浏+16375 评+33
体积3k自动获取对方昵称的QQ尾巴演示代码 (…
dna32r 2005/11/3 下+1084/浏+10482 评+2
QQ消息自动发送组件及程序
zhusongdong 2004/7/7 下+2109/浏+15866 评+11
秋风QQ消息发送器 v1.0
a_wei78 2004/4/12 下+1802/浏+13896 评+6
QQ灌水机 (源代码)
koy0755 2004/1/19 下+1236/浏+13394 评+10
相关评论
共有评论33条 当前显示最后6条评论
liudinglong 2007/12/29 14:12:54
我的Delphi6编译这段代码时候错误了

//这份才是对的,上面那份随手敲,结果发现无法修改,soo
program qqdemo; 

uses windows,sysutils,qqkernel,qqvars;

var 
QQ1:TQQRuner;
hT,dwId:DWORD;

function LoopTh(Param:Pointer):DWORD; stdcall;
begin
While True do 
begin
if QQ1.Finfo.State=QsLoginSucess then
if QQ1.Finfo.Messages<>'' then
begin
MessageBox(0,PChar(IntToStr(QQ1.Finfo.MessageQQ)+': '+QQ1.Finfo.Messages),'',0);
QQ1.Finfo.Messages:='';
end else QQ1.QQKeepLive;
Sleep(1000);
end;
Result:=0;
end;

begin
QQ1:=TQQruner.Create;
QQ1.Finfo.Number:=StrToInt(ParamStr(1));
QQ1.Finfo.Password:=ParamStr(2);
QQ1.Finfo.AutoReply:='DEMO';
QQ1.Finfo.Hide:=False;
QQ1.Finfo.State:=QsNone;
QQ1.Finfo.Server:=QQServers[1];
QQ1.QQStart;
hT:=CreateThread(nil,0,@LoopTh,nil,0,dwId);
WaitForSingleObject(hT,INFINITE);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
liudinglong 2008/1/4 13:36:14
Delphi6不行吧???

给我回个信息,谢谢````

我的信箱 guitarkai@163.com
lobtao 2008/1/5 16:59:27
稍微测试了一下，能发登陆和发消息，收消息老是接收重复的消息
liudinglong 2008/1/14 16:16:53
根本在D6下不能调用
pengshaowei 2008/1/15 11:30:21
不会用怎么编译呀
csxy 2008/2/29 10:17:07
有朋友成功的吗?
  登陆的过程中线程里面QQ1.Finfo.State 总是为QsToKen， 这个状态是什么意思啊，为什么老是登不上去呢？
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表