delphi - 获取Teamview ID,口令

获取TeamViewer ID和密码

最新推荐文章于 2021-06-19 14:14:50 发布

weixin_30790841

最新推荐文章于 2021-06-19 14:14:50 发布

阅读量173

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/masg/p/10452927.html

procedure TForm1.btnFindClick(Sender: TObject);
var
  hr, hr1, hr_id, hr_pwd: THandle;
  WindowText: array[0..MAX_PATH] of Char;
begin
  hr := FindWindow('#32770', 'TeamViewer');
  hr := FindWindowEx(hr, 0, 'MainWindowRemoteControlPage', nil);
  hr1 := FindWindowEx(hr, 0, 'IncomingRemoteControlComponentView', nil);
  hr_id := FindWindowEx(hr1, 0, 'CustomRunner', nil);
  hr := FindWindowEx(hr_id, 0, 'Edit', nil);
  SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText));
  lblID.Caption := WindowText;
  hr_pwd := FindWindowEx(hr1, hr_id, 'CustomRunner', nil);
  hr := FindWindowEx(hr_pwd, 0, 'Edit', nil);
  SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText));
  lblPWD.Caption := WindowText;
end;