TC官方合作论坛

标题: 这算神马问题？循环中鼠标可以移动，循环外就不行。 [打印本页]
作者: hmlyn    时间: 2012-11-18 23:21
标题: 这算神马问题？循环中鼠标可以移动，循环外就不行。
我整理了下，还是不行，这是我开始入门写的代码，所以比较乱，现在卡住了这里，我就无法向前学习了。求指导
  1. #import "dm.dmsoft" dm
  2. 空间 寻仙更新抢摊
  3. //定义默认空间


  6. 功能 逻辑型 开始_点击()

  8.     整型 窗口句柄, 绑定窗口
  9.    
  10.     逻辑型 是否注册=辅助.是否注册("dm.dmsoft")
  11.    
  12. 如果(!是否注册)
  13. 逻辑型 是否成功=辅助.注册插件("rc:dm.dll",真)
  14. 如果(是否成功)
  15. 辅助.消息框("插件注册成功")
  16. 否则
  17. 辅助.消息框("插件注册失败")
  18. 如果结束
  19. 如果结束

  21.     dm.SetPath(辅助.获取资源路径("rc:"))
  22.     //这里添加你要执行的代码   
  23.     辅助.等待(2000)
  24. string path=help.getrcpath("rc:")
  25. dm.SetPath(path)
  26. dm.SetDict(0, "xun.txt")
  27. 窗口句柄=窗口.鼠标所在窗口句柄()
  28. 绑定窗口=dm.BindWindow(窗口句柄,"dx","dx","dx",0)
  29. 如果(绑定窗口==1)
  30. 寻仙更新抢摊.摆摊()
  31. 否则
  32. 辅助.消息框("绑定失败")
  33. 如果结束
  34. 返回 真
  35. //函数返回语句
  36. 功能结束

  38. 功能 逻辑型 摆摊()
  39.     整型 X,Y,K,P,窗口句柄

  41. 循环(真)
  42.   dm.KeyPress(66)
  43.     辅助.等待(100)
  44.     dm.FindStrFast(744,599,799,626,"摆摊", "ffffcc-cccca3", 0.9, X, Y)
  45.   如果 (X>=0)
  46.          dm.MoveR(X,Y)
  47.          辅助.等待(100)
  48.         dm.LeftClick()
  49.         辅助.等待(2000)
  50. dm.MoveR(764,263)
  51. 辅助.等待(500)
  52. dm.RightClick()
  53. dm.LeftClick()
  54. 辅助.等待(500)
  55. dm.MoveTo(573,364) //移到输入金钱位置
  56. 辅助.等待(500)
  57. dm.LeftClick()
  58. 辅助.等待(500)
  59. dm.SendString2(窗口句柄,"21")
  60.   如果结束
  61.    跳出
  62. 循环结束
  63.     返回 真
  64. 功能结束


  67. 功能 逻辑型 退出_点击()
  68. //这里添加你要执行的代码
  69. 整型 dm_ret= dm.UnBindWindow()
  70. 返回 真
  71. //函数返回语句
  72. 功能结束

  74. 空间结束
  75. //空间结束语句
复制代码

在循环中获取intX, intY，就能正常移动，但在循环外，就不管用，这是神马问题？ 在按键中，就能轻松实现啊！
作者: hmlyn    时间: 2012-11-18 23:29
作者: hmlyn    时间: 2012-11-18 23:51
木人鸟俺吗？
作者: die13719076310    时间: 2012-11-18 23:56
问题很多 不解释
作者: hmlyn    时间: 2012-11-19 00:35
回复 4楼die13719076310的帖子

问题在哪？
作者: saga    时间: 2012-11-19 06:57
你把 你的代码放到绑定成功后看看,
绑定成功
//代码 ---这里把你循环代码和不循环的都写这里.
失败
//代码
作者: die13719076310    时间: 2012-11-19 15:58
你的代码很乱 实在没耐心看 键鼠的点击都没必要定义变量啊  还有就是的大漠DLL是否导入资源里？ 更不知道你的坐标是屏幕的 还是窗口的？不解释…………
作者: hmlyn    时间: 2012-11-19 19:54
回复 6楼saga的帖子

还是不行额。
作者: hmlyn    时间: 2012-11-19 19:57
回复 7楼die13719076310的帖子

我整理了下，还是不行，这是我开始入门写的代码，所以比较乱，现在卡住了这里，我就无法向前学习了。求指导
  1. #import "dm.dmsoft" dm
  2. 空间 寻仙更新抢摊
  3. //定义默认空间
  6. 功能 逻辑型 开始_点击()
  8.     整型 窗口句柄, 绑定窗口
  9.    
  10.     逻辑型 是否注册=辅助.是否注册("dm.dmsoft")
  11.    
  12. 如果(!是否注册)
  13. 逻辑型 是否成功=辅助.注册插件("rc:dm.dll",真)
  14. 如果(是否成功)
  15. 辅助.消息框("插件注册成功")
  16. 否则
  17. 辅助.消息框("插件注册失败")
  18. 如果结束
  19. 如果结束
  21.     dm.SetPath(辅助.获取资源路径("rc:"))
  22.     //这里添加你要执行的代码   
  23.     辅助.等待(2000)
  24. string path=help.getrcpath("rc:")
  25. dm.SetPath(path)
  26. dm.SetDict(0, "xun.txt")
  27. 窗口句柄=窗口.鼠标所在窗口句柄()
  28. 绑定窗口=dm.BindWindow(窗口句柄,"dx","dx","dx",0)
  29. 如果(绑定窗口==1)
  30. 寻仙更新抢摊.摆摊()
  31. 否则
  32. 辅助.消息框("绑定失败")
  33. 如果结束
  34. 返回 真
  35. //函数返回语句
  36. 功能结束
  38. 功能 逻辑型 摆摊()
  39.     整型 X,Y,K,P,窗口句柄
  41. 循环(真)
  42.   dm.KeyPress(66)
  43.     辅助.等待(100)
  44.     dm.FindStrFast(744,599,799,626,"摆摊", "ffffcc-cccca3", 0.9, X, Y)
  45.   如果 (X>=0)
  46.          dm.MoveR(X,Y)
  47.          辅助.等待(100)
  48.         dm.LeftClick()
  49.         辅助.等待(2000)
  50. dm.MoveR(764,263)
  51. 辅助.等待(500)
  52. dm.RightClick()
  53. dm.LeftClick()
  54. 辅助.等待(500)
  55. dm.MoveTo(573,364) //移到输入金钱位置
  56. 辅助.等待(500)
  57. dm.LeftClick()
  58. 辅助.等待(500)
  59. dm.SendString2(窗口句柄,"21")
  60.   如果结束
  61.    跳出
  62. 循环结束
  63.     返回 真
  64. 功能结束
  67. 功能 逻辑型 退出_点击()
  68. //这里添加你要执行的代码
  69. 整型 dm_ret= dm.UnBindWindow()
  70. 返回 真
  71. //函数返回语句
  72. 功能结束
  74. 空间结束
  75. //空间结束语句
复制代码
作者: die13719076310    时间: 2012-11-19 20:13
把你的 跳出 放到 如果结束 上面  因为代码还没找到字就 跳出 了 它就不会执行如果里面的代码了
string path=help.getrcpath("rc:")
dm.SetPath(path)
这2句就是多余的了 你的路径已经在这2句上面就设置好了
其实你的代码真的很乱 我不知道要怎么指教 再不行你就找其他大神吧 其实我也只是小白而已



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1