捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：QQ Runer v1.01
csxy 33140 2008/2/29 10:17:07
有朋友成功的吗?
  登陆的过程中线程里面QQ1.Finfo.State 总是为QsToKen， 这个状态是什么意思啊，为什么老是登不上去呢？
pengshaowei 32715 2008/1/15 11:30:21
不会用怎么编译呀
liudinglong 32702 2008/1/14 16:16:53
根本在D6下不能调用
lobtao 32565 2008/1/5 16:59:27
稍微测试了一下，能发登陆和发消息，收消息老是接收重复的消息
liudinglong 32536 2008/1/4 13:36:14
Delphi6不行吧???

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

我的信箱 guitarkai@163.com
liudinglong 32452 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 32451 2007/12/29 14:06:11
我的是delphi6编译的怎么提示如下这个错误啊```

----------
Debugger Exception Notification
----------
Project Project1.exe raised exception class EConvertError with message ''' is not a valid 

integer value'. Process stopped. Use Step or Run to continue.
----------
OK   Help
sparrow 32427 2007/12/26 13:12:23
登陆不上.
anlanet 32373 2007/12/22 17:00:06
目前登陆和发送信息都正常!

只是接收信息会不信的读取原来已收到的信息!而不只是接收最后收到的信息!!
应该是收到信息后需要返回什么信息给QQ服务器来标识此信息已接收,服务器不再中断信息!..
computercsl 32369 2007/12/22 9:35:28
sgfree 登陆的过程中线程里面QQ1.Finfo.State 总是为QsToKen， 这个状态是什么意思啊，为什么老是登不上去呢？
newmaple 32365 2007/12/21 17:45:47
楼上的几个版本的程序都试了，我也是照楼上这么做的，为什么登陆没有任何反应，什么提示都没有。
sgfree 32337 2007/12/20 18:42:25
//这份才是对的,上面那份随手敲,结果发现无法修改,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);
end.
sgfree 32334 2007/12/20 18:19:26
随手敲的,QQ1.Finfo.QQPassword:=ParamStr(2); 这行少了:

其实支持收文件与图片,请自己修改 QQInPacket.pas 去掉限制 [ProcessRecvIM中]

协议见 QQPROTO.pas 都说明了的,文件Token是 QQ1.Finfo.FileToKen

目前可以接受所有消息来源,包括手机消息,群消息什么的 [见 ProcessRecvIM]

失效期限: 腾讯不再支持 QQ2006 客户端.
特别注意: 不支持需要图形验证来登陆的QQ号. 这样的QQ号将会收到 '密码错误' 提示

PS: 评论不支持修改真不方便
sgfree 32333 2007/12/20 18:04:23
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.QQState=QsLoginSucess then
if QQ1.Finfo.Messages<>'' then
begin
MessageBox(0,PChar(IntToStr(QQ1.Finfo.MessagesQQ)+': '+QQ1.Finfo.Messages),'',0);
QQ1.Finfo.Messages:='';
end;
Sleep(1000);
end;
Result:=0;
end;

begin
QQ1:=TQQruner.Create;
QQ1.Finfo.QQNumber:=StrToInt(ParamStr(1));
QQ1.Finfo.QQPassword=ParamStr(2);
QQ1.Finfo.QQAutoReply:='DEMO';
QQ1.Finfo.QQHide:=False;
QQ1.Finfo.QQState:=QsNone;
QQ1.Finfo.Server:=QQServer[1];
QQ1.QQStart;
hT:=CreateThread(nil,0,@LoopTh,nil,0,dwId);
WaitForSingleObject(hT,INFINITE);
end.
newmaple 32322 2007/12/20 8:44:22
我用作者给的Example代码，QQStart后没有任何反应

各位成功了的能不能发个Demo代码给我呢？newmaple＠gmail.com（＠换成@）

谢谢了。
sparrow 32299 2007/12/19 8:44:11
http://www.anqn.com/soft/q/2007-10-19/a0988931.shtml
好像就是这个东西。
swgame 32293 2007/12/18 23:24:18
是不错，登录后显示密码错误，怪了。。
beginner999 32276 2007/12/18 15:38:01
太棒了!就是有些功能不知道怎么用，如何检测登录状态等。有必要成立一个兴趣小组专门研究一下它里面的各种用法啊。
webz 32275 2007/12/18 14:48:56
作者最好发个Demo上来
disguiser 32269 2007/12/18 12:56:54
我试了一下,好像不行,不知道上面成功的是怎么弄的,把代码公布一下,或是搞个DEMO比较好
第一页 上一页 下一页 最后页 有 31 条纪录 共2页 1 - 20
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表