您的位置:首页 > 编程语言 > Delphi

DELPHI编模拟鼠标,键盘操作,比键盘鼠标录制软件更强

2020-02-16 19:51 423 查看

打网游朋友都知道,要下载一些录制鼠标键盘的操作,来代替频繁的手工操,但经过笔者测试发现,许多录制鼠标键盘软件,不是收费的,就是暗藏木马,得不偿失。会delphi编程朋友,用下面的代码,DIV自己的小程序,胜过那些破软件千万倍。我就用自己编的软件去玩游戏,爽的一蹋!试试吧!

SetCursorPos(710,600); //移动光标。
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。

keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); 按下SHIFT键。
keybd_event(0x52,MapVirtualKey(0x52,0),0,0);按下R键。
keybd_event(0x52,MapVirtualKey(0x52,0),KEYEVENTF_KEYUP,0);放开R键。
keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);放开SHIFT键。

ctr+shift切换输入法
keybd_event($10,0,0,0);  1
keybd_event($11,0,0,0);  1
keybd_event($10,0,KEYEVENTF_KEYUP,0);
keybd_event($11,0,KEYEVENTF_KEYUP,0);

PostMessage(h1,WM_SYSCOMMAND, SC_RESTORE,0);   //还原窗口
PostMessage(h1,WM_SYSCOMMAND, SC_MINIMIZE,0);   //最小化
PostMessage(h1,WM_SYSCOMMAND, SC_MAXIMIZE,0);  //最大化
PostMessage(h1,WM_SYSCOMMAND, SC_CLOSE,0);     //关闭
setForegroundWindow(h1) ;                  // 激活当前窗口
GetClassName(h, ps, 255);              //得到类名
GetWindowText(h,@szText,255) >   //数值不能显示,不用
SendMessage(198542, WM_COPY,0,0);  //复制控件数值

  • 点赞 3
  • 收藏
  • 分享
  • 文章举报
飘逸168 发布了4 篇原创文章 · 获赞 4 · 访问量 231 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: