• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[其他] dnf扫拍源码 [复制链接]

1#
dnf扫拍源码

  1. Call 大漠注册()
  2. Set dm = createobject("dm.dmsoft")
  3. dm.SetPath "c:\test_game"
  4. dm_ret = dm.SetDict(0, "字库.txt")
  5. Do Until Hwnd > 0
  6. Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
  7. TracePrint Hwnd
  8. Delay 1200
  9. Loop
  10. Call Plugin.Window.Move(Hwnd, 0, 0)
  11. Call Plugin.Window.Active(Hwnd)
  12. dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)
  13. Delay 200
  14. foobar = dm.CreateFoobarRect(0, 0, 600, 800, 200)
  15. dm_ret = dm.FoobarFillRect(foobar, 0, 0, 800, 200, "000000")
  16. dm_ret = dm.FoobarLock(foobar)
  17. dm_ret = dm.FoobarUpdate(foobar)
  18. //================================================>
  19. dm.MoveTo 0, 0
  20. Delay 200
  21. dm.LeftClick
  22. Delay 500
  23. dm.KeyPress 27
  24. Delay 200
  25. Do
  26. dm.KeyPress 66
  27. Delay 200
  28. dm_ret = dm.FindPic(348,21,444,70,"拍卖行(B).bmp","000000",0.9,0,intX,intY)
  29. If intX >= 0 and intY >= 0 Then
  30. TracePrint "拍卖行已打开"
  31. Exit Do
  32. Else
  33. dm.KeyPress 27
  34. Delay 200
  35. End If
  36. Loop
  37. dm.MoveTo 399+s_s, 547
  38. Delay 50
  39. dm.LeftClick
  40. Delay 120
  41. dm.MoveTo 636+s_s, 88
  42. Delay 50
  43. dm.LeftClick
  44. Delay 120
  45. dm.MoveTo 198+s_s,90
  46. Delay 50
  47. dm.LeftClick
  48. Delay 20
  49. 物品 = Form1.InputBox1.Text
  50. SayString 物品
  51. Do
  52. Rem ss
  53. dm.MoveTo 589+s_s,91
  54. Delay 50
  55. dm.LeftClick
  56. Delay 60
  57. For 100
  58. Delay 20
  59. dm_ret = dm.FindPic(446,132,498,156,"小时.bmp","020202",0.9,0,intX,intY)
  60. If intX >= 0 and intY >= 0 Then
  61. Exit For
  62. End If
  63. Next
  64. dm_ret = dm.FindColor(531,124,613,143,"ff3232-000000",1.0,0,intX,intY)
  65. If intX >= 0 and intY >= 0 Then
  66. MessageBox "金币不足,脚本停止!"
  67. ExitScript
  68. End If
  69. wp_zj = dm.Ocr(531, 124, 613, 143, "ffb400-000000", 1.0)
  70. wp_sl = dm.Ocr(155, 119, 199, 141, "ffffff-000000", 1.0)
  71. wp_szdj = CLng(Form1.InputBox2.Text)
  72. wp_dj = wp_zj / wp_sl
  73. s = Plugin.Sys.GetDateTime()
  74. dm_ret = dm.FoobarPrintText(foobar, s&"----物品单价为:"&wp_dj, "ff0000")
  75. dm_ret = dm.FoobarUpdate(foobar)
  76. If wp_dj <= wp_szdj Then
  77. dm.MoveTo 579 + s_s, 144
  78. Delay 50
  79. dm.LeftClick
  80. Delay 20
  81. dm.KeyPress 13
  82. Delay 20
  83. dm.KeyPress 13
  84. Delay 500
  85. dm.KeyPress 13
  86. ElseIf wp_dj > wp_szdj Then
  87. Goto ss
  88. End If
  89. Delay 150
  90. dm.MoveTo 399+s_s, 547
  91. Delay 50
  92. dm.LeftClick
  93. Delay 150
  94. Loop
  95. // ================================================================
  96. Function 大漠注册()
  97. need_ver = "3.1233"
  98. Set ws = createobject("Wscript.Shell")
  99. ws.run "regsvr32 atl.dll /s"
  100. Set ws = nothing
  101. PutAttachment "c:\test_game", "*.*"
  102. PutAttachment ".\Plugin", "RegDll.dll"
  103. Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
  104. Set dm = createobject("dm.dmsoft")
  105. ver = dm.Ver()
  106. If ver <> need_ver Then
  107. Set dm = nothing
  108. Set ws = createobject("Wscript.Shell")
  109. ws.run "regsvr32 c:\test_game\dm.dll /s"
  110. Set ws = nothing
  111. Delay 1200
  112. Set dm = createobject("dm.dmsoft")
  113. ver = dm.Ver()
  114. If ver <> need_ver Then
  115. MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath()
  116. MessageBox "请关闭程序,重新打开本程序再尝试"
  117. EndScript
  118. End If
  119. Else
  120. TracePrint ver
  121. TracePrint "注册成功!"
  122. End If
  123. End Function
  124. Function s_s()
  125. z_x = 1 * 0.9
  126. z_d = 5 * 0.91
  127. Randomize
  128. s_s = ((z_d - z_x + 1) * Rnd + z_x)
  129. End Function
  130. Sub OnScriptExit()
  131. dm.UnBindWindow
  132. TracePrint "解绑完成!"
  133. End Sub
复制代码

2#


3#

......

4#

参与/回复主题
RE:dnf扫拍源码修改

5#

沙发 沙发

6#

dnf扫拍源码

7#

111111

8#


9#

111111

10#

什么鬼

发新话题 回复该主题