模拟键盘

最新推荐文章于 2024-01-06 09:54:27 发布

小小de巫师

最新推荐文章于 2024-01-06 09:54:27 发布

阅读量871

点赞数

分类专栏： Delphi Xe3 文章标签： SendMessage

本文链接：https://blog.csdn.net/gfuchao/article/details/8932721

版权

Delphi Xe3 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

SendMessage(Myhwnd, WM_KEYDOWN, VK_TAB, 1);  // 发送Tab键
SendMessage(Myhwnd, WM_KEYUP, VK_TAB, 1);
SendMessage(Myhwnd, WM_KEYDOWN, VK_RETURN, 1);  // 发送Enter键
SendMessage(Myhwnd, WM_KEYUP, VK_RETURN, 0);
SendMessage(Myhwnd, WM_LBUTTONDOWN, 0, MakeLParam(292, 179));  //移动到坐标292,179并点击
SendMessage(Myhwnd, WM_LBUTTONUP, 0, MakeLParam(292, 179));
SendMessage(Hwnd, WM_LBUTTONDBLCLK, 0, MakeLParam(175, 277));  //模拟双击
SendMessage(Hwnd, WM_LBUTTONUP, 0, MakeLParam(175, 277));

Str := '123456';
for I := 1 to Length(Str) do // 发送数字123456
SendMessage(Han, WM_CHAR, wParam(Str[I]), 1);

Procedure FindQQ(hWnd: Thandle; Str: String);
Var
  I: Integer;
Begin
  for I := 1 to Length(Str) do // 发送数字123456
  Begin
    PostMessage(hWnd, WM_KEYDOWN, 0, 1);
    PostMessage(hWnd, WM_CHAR, wParam(Str[I]), 1);
    PostMessage(hWnd, WM_KEYUP, 0, 1);
  End;
End;

  SwitchToThisWindow(RichEditComponent, true);
  FindQQ(RichEditComponent, '/140');

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); // 按下 Ctrl键
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

SetCursorPos(40, 48);  //移动鼠标位置到 X40、Y48
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);   //单击 左键
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

｛前台模拟英文字母输入｝
Var
  i: integer;
Begin
  for i := 1 to Length(A) do
  Begin
    Keybd_Event(VkKeyScan(A[i]), 0, 0, 0);
    Keybd_Event(VkKeyScan(A[i]), 0, KEYEVENTF_KEYUP, 0);
  End;

｛后台发送中文｝
Var
  Str: String;
Begin
    Str := '2020-11-09 ，我爱我家';
    //方法一
    SendMessage(69474,EM_REPLACESEL,0,Integer(pchar(Str)));
    //方法二
    SendMessage(69474,WM_SETTEXT,0,Cardinal(Str));
End;