如何将我的程序中的数据传递到QQ的登陆框中呢？(30分)

我想做一个程序，用户输入QQ的用户名和密码后就可以登陆这个号码呢？

用findwindow找到QQ登陆窗体的句柄，然后再发送WM_settext消息向QQ登陆窗体发送字符。
你留个E-mail，我这有个类似的例子。

你首先找到QQ的窗体句柄，然后枚举当窗体下的所有控件，对要输入用户及密码的控件发送消息。

我想问一下怎样枚举当前窗体的所有空件并对其进行操作

function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
Buffer : array [0..255] of Char;
Buffer1: array [0..255] of Char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer) = 'Button' then
begin
GetWindowText(hwnd,Buffer1,100);
if StrPas(Buffer1) = '下一步(&N) >' then
begin
PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)
Result := false;
end;

end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Handle, Handle1: Integer;
begin
Handle := FindWindow(nil,'网络设置');
if Handle <> 0 then
begin
txt := '下一步(&N) >';
// 找完成按键
EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));
finishb := Handle;
// 找到了 '完成' 按钮 handle
SendMessage(finishb,WM_LBUTTONDOWN,0,0);
SendMessage(finishb,WM_LBUTTONUP,0,0);
end;

Handle1 := FindWindow(nil,'完成');
if Handle1 <> 0 then
begin
txt := '< 上一步(&B)';
// 找完成按键
EnumChildWindows(Handle1,@GetButtonHandle,Integer(@Handle1));
finishb := Handle1;
// 找到了 '完成' 按钮 handle
SendMessage(finishb,WM_LBUTTONDOWN,0,0);
SendMessage(finishb,WM_LBUTTONUP,0,0);
end;


end;

to 桦树皮:
这两天很忙没有来上网啊，也没能及时看到您的消息。
我的MAIL：fanweixiao@163.com
谢谢你啊！

to 桦树皮:
这两天很忙没有来上网啊，也没能及时看到您的消息。
我的MAIL：fanweixiao@163.com
谢谢你啊！