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);  //复制控件数值