TC官方合作论坛

标题: 鼠标键盘同步代码请大神看看怎么不能实现 [打印本页]

作者: razyli 时间: 2012-12-8 12:04
标题: 鼠标键盘同步代码请大神看看怎么不能实现
#import "dm.dmsoft" dm
空间同步
//定义默认空间
整型窗口句柄,线程句柄1,线程句柄2

功能逻辑型键盘同步()

循环(真)
      整型键值=键盘.等待按键()
      dm.KeyPress(键值)
循环结束
返回真
功能结束

功能逻辑型鼠标同步()

循环(真)
      整型鼠标代码=鼠标.等待点击(),x,y
      鼠标.获取坐标(x,y)
      如果(鼠标代码==1000)
         dm.MoveTo(x,y)
         辅助.等待(200)

         dm.LeftClick()
      否则
         如果(鼠标代码==1003)
            dm.MoveTo(x,y)
            辅助.等待(200)
            dm.RightClick()

         否则
            dm.MiddleClick()
         如果结束
      如果结束
循环结束
返回真
功能结束

功能逻辑型开始_点击()
//这里添加你要执行的代码
辅助.等待(2000)
窗口句柄=窗口.鼠标所在窗口句柄()
dm.BindWindow(窗口句柄,"dx","dx","dx",0)
线程句柄1=线程.开启("同步.键盘同步","")
线程句柄2=线程.开启("同步.鼠标同步","")
辅助.等待(2000)

返回真
//函数返回语句
功能结束

功能逻辑型退出_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄1)
线程.关闭(线程句柄2)

辅助.退出()

返回真
//函数返回语句
功能结束

空间结束
//空间结束语句

麻烦看看那里错了  怎么无效呢，把鼠标跟键盘写在同一个功能里可以实现键盘同步，鼠标不行这样写我看着也没错啊  请大神指点

作者: TC管理员 时间: 2012-12-8 13:27
高手现身

作者: razyli 时间: 2012-12-12 08:57
大神在哪啊

作者: 964430272 时间: 2012-12-12 11:44
您好
我对这类也不熟
您可以加个辅助等待100

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)