模拟鼠标和模拟键盘

模拟鼠标

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HWND h,h1;
  TRect rc;
  int i,j;
  Sleep(500);
  h1=GetDesktopWindow();
  h=GetForegroundWindow();
  if(h1==h)
    {
        h=GetNextWindow(h1,GW_HWNDPREV);
        SetForegroundWindow(h);
        GetWindowRect(h,&rc);
        SetCursorPos(rc.right+20,rc.Bottom);

         SetCursorPos(j,rc.Top+20);

         Sleep(8);
                mouse_event(MOUSEEVENTF_LEFTDOWN,j,i+145,0,0);
                mouse_event(MOUSEEVENTF_LEFTUP,j,j,0,0);
                Sleep(8);
     }
  else
    {
        SetForegroundWindow(h);
        GetWindowRect(h,&rc);
        SetCursorPos(rc.Left+20,rc.Bottom);

        for(i=rc.Bottom;i<=(rc.Top+10);i++)
               {
                SetCursorPos(rc.Left+20,i);
                Memo1->Lines->Add(Format("%s (%d,%d)",ARRAYOFCONST(("mouse down",i,i))));
                Sleep(3);
                }
        for(j=rc.left+20;j<=(rc.right-18);j++)
               {
                SetCursorPos(j,rc.Top+20);
                Memo1->Lines->Add(Format("%s (%d,%d)",ARRAYOFCONST(("mouse down",j,j))));
                Sleep(3);
                }
         Sleep(8);
                mouse_event(MOUSEEVENTF_LEFTDOWN,j,i+145,0,0);
                mouse_event(MOUSEEVENTF_LEFTUP,j,j,0,0);
                Memo1->Lines->Add(Format("%s %d",ARRAYOFCONST((" =",j))));
                Sleep(8);
     }
}


模拟键盘

          HWND hWnd;
          hWnd = GetFocus(); // 得到当前键盘光标所在的窗口

          //CppWebBrowser1->Navigate(AnsiToUnicode(Edit1->Text.c_str()));


          Memo1->Lines->Add("--focus--");
          if (hWnd == NULL) {
              hWnd = GetForegroundWindow(); // 得到当前窗口
              if (hWnd == Form1->Handle) return; // 不需要程序本身的窗口
              DWORD FormThreadID = GetCurrentThreadId();
              WORD CWndThreadID = GetWindowThreadProcessId(hWnd, NULL);
              // 附加输入线程
              AttachThreadInput(CWndThreadID, FormThreadID, true);
              hWnd = GetFocus(); // 得到当前键盘光标所在的窗口
              AttachThreadInput(CWndThreadID, FormThreadID, false); // 取消

              Memo1->Lines->Add("--window--");
          }
          if (hWnd == NULL) return;
          Memo1->Lines->Add("[done]");
          PostMessage(hWnd, WM_CHAR, (WPARAM)('A'&0xFF), 0);
          PostMessage(hWnd, WM_CHAR, (WPARAM)('b'&0xFF), 0);
          PostMessage(hWnd, WM_CHAR, (WPARAM)('C'&0xFF), 0);
          PostMessage(hWnd, WM_KEYDOWN, VK_RETURN, 0);

          //  AnsiString Lines = IntToStr(nTimes);


源码地址: https://pan.quark.cn/s/a4b39357ea24 欧姆龙触摸屏编程软件MPTST 5.02是专门为欧姆龙品牌的工业触摸屏而研发的编程解决方案,它赋予用户在直观界面上构建、修改以及排错触摸屏应用程序的能力。 该软件在工业自动化领域具有不可替代的地位,特别是在生产线监视、设备操控以及人机互动系统中发挥着核心作用。 欧姆龙MPTST(Machine Process Terminal Software Touch)5.02版本配备了多样化的功能,旨在应对不同种类的触摸屏项目要求。 以下列举了若干核心特性:1. **图形化编程**:MPTST 5.02采用图形化的编程模式,允许用户借助拖拽动作来设计屏幕布局,设定按钮、滑块、指示灯等组件,显著简化了编程流程,并提升了工作效率。 2. **兼容性**:该软件能够适配欧姆龙的多个触摸屏产品线,包括CX-One、NS系列、NJ/NX系列等,使用户可以在同一个平台上完成对不同硬件的编程任务。 3. **数据通信**:MPTST 5.02具备与PLC(可编程逻辑控制器)进行数据交互的能力,通过将触摸屏作为操作界面,实现生产数据的显示与输入,以及设备状态的监控。 4. **报警与事件管理**:软件中集成了报警事件管理机制,可以设定多种报警标准,一旦达到预设条件,触摸屏便会展示对应的报警提示,助力操作人员迅速做出响应。 5. **模拟测试**:在设备实际连接之前,MPTST 5.02支持用户进行脱机模拟测试,以此验证程序的正确性与稳定性。 6. **项目备份与恢复**:为了防止数据遗失,MPTST 5.02提供了项目文件的备份及还原功能,对于多版本控制与团队协作具有显著价值。 7. **多语言支持**:针对全球化的应...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值