鼠标键盘同步代码请大神看看怎么不能实现

razyli

#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管理员

高手现身

razyli

大神在哪啊

964430272

您好
我对这类也不熟
您可以加个辅助等待100