DELPHI编模拟鼠标,键盘操作,比键盘鼠标录制软件更强
打网游朋友都知道,要下载一些录制鼠标键盘的操作,来代替频繁的手工操,但经过笔者测试发现,许多录制鼠标键盘软件,不是收费的,就是暗藏木马,得不偿失。会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
- 收藏
- 分享
- 文章举报
- glassfish 部署 Delphi for PHP 程序 use_unit 的问题
- delphi安装 Tclientsocket, Tserversocket控件
- Delphi调用分布存储过程
- Delphi7对XML的支持分析
- delphi学习中.
- Delphi之Windows编程
- delphi Memo 的当前行、当前列与当前字符
- Delphi数据库开发之TTable篇1
- Delphi数据库开发之TTable篇2
- Delphi数据库开发之TBDEDataSet.CachedUpdates
- 《Delphi 面向对象编程思想》书评
- 又一灵异事件 Delphi 2007 在 Win7
- delphi stdcall 错误
- Delphi中Inputbox 和Inputquery 函数的使用
- Delphi ClientDataSet 主从结构 BUG
- SQL Server 2000 字段类型 Delphi 数据类型对照
- Delphi TreeView 节点上下移动
- Delphi Exif
- Delphi 字母 递增 递减算法
- delphi显示jpg、png、gif图片