[丝路传说-官服]怪物，物品，玩家，NPC，宠物等遍例，适用1.177

piaorou

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_UseUPX=n
   
3. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
4. 
   
5. ;------------文章来源
   
6. ;------------网站：精灵领域 丝路传说
   
7. ;------------网址：w w w . s r o 5 . c o m
   
8. ;------------作者：精灵
   
9. 
   
10. Opt("TrayMenuMode", 1)
    
11. $kernel32 = DllOpen('kernel32.dll')
    
12. $GUI = GUICreate('丝路传说 遍历', 780, 200)
    
13. $list_belt = GUICtrlCreateCombo('', 10, 15, 700, -1, 3)
    
14. $data_input = GUICtrlCreateInput('', 10, 60, 700)
    
15. $guolv_input = GUICtrlCreateInput('', 10, 90, 700)
    
16. $button = GUICtrlCreateButton('刷新', 710, 90, 65, 23)
    
17. GUISetState()
    
18. While 1
    
19. $msg = GUIGetMsg()
    
20. If $msg = -3 Then
    
21. DllClose($kernel32)
    
22. Exit
    
23. EndIf
    
24. If $msg = -4 Then Tray()
    
25. If $msg = $list_belt Then
    
26. GUICtrlSetData($data_input, GUICtrlRead($list_belt))
    
27. EndIf
    
28. If $msg = $button Then
    
29. $ItemIDLIST = ""
    
30. $pid = WinGetProcess("SRO_Client")
    
31. $mid = memopen($pid)
    
32. GUICtrlSetData($list_belt, '')
    
33. $eax = memread($mid, 0xEC0B74)
    
34. While 1
    
35. $ecx = $eax - 0xDC
    
36. $type = memread($mid, memread($mid, $ecx))
    
37. If memread($mid, $ecx + 0x128) > 0x8 Then
    
38. $name = memread($mid, memread($mid, $ecx + 0x114), 'wchar[200]')
    
39. Else
    
40. $name = memread($mid, $ecx + 0x114, 'wchar[200]')
    
41. EndIf
    
42. $ID = Hex(memread($mid, $ecx + 0xF8))
    
43. $x_y = 'X:' & BitShift(BitAND(memread($mid, $ecx + 0x7c, "short"), 0xFF) * 3 - 0x195, -6) - Int(memread($mid, $ecx + 0x80, "float") / (-10))
    
44. $x_y = $x_y & ' Y:' & BitShift(BitShift(memread($mid, $ecx + 0x7c, "short"), 0x8) * 3 - 0x114, -6) - Int(memread($mid, $ecx + 0x88, "float") / (-10))
    
45. $itemdata = ""
    
46. $itemdata &= " 类型：" & GetTypeName($type)
    
47. $itemdata &= " 名称：" & $name
    
48. $itemdata &= " 坐标：" & $x_y
    
49. $itemdata &= " 在线ID：" & $ID
    
50. If $type = 0x009E13D0 Then $itemdata &= " HP：" & memread($mid, $ecx + 0x458) & '/' & memread($mid, $ecx + 0x460)
    
51. $itemdata &= " ECX=" & Hex($ecx)
    
52. $guolv = GUICtrlRead($guolv_input)
    
53. If $guolv = "" Then
    
54. GUICtrlSetData($list_belt, $itemdata)
    
55. Else
    
56. If StringInStr($itemdata, $guolv) > 0 Then
    
57. GUICtrlSetData($list_belt, $itemdata)
    
58. EndIf
    
59. EndIf
    
60. $eax = memread($mid, $eax + 0xC)
    
61. If $eax = 0 Then ExitLoop
    
62. WEnd
    
63. $pid = 0
    
64. memclose($mid)
    
65. EndIf
    
66. Switch TrayGetMsg()
    
67. Case -13
    
68. Tray()
    
69. EndSwitch
    
70. WEnd
    
71. Func Tray()
    
72. If BitAND(WinGetState($GUI), 2) Then
    
73. WinSetState($GUI, "", @SW_HIDE)
    
74. Else
    
75. WinSetState($GUI, "", @SW_SHOW)
    
76. EndIf
    
77. EndFunc ;==>Tray
    
78. Func GetTypeName($type)
    
79. $typeName = ''
    
80. Switch $type
    
81. Case 0x009E87A0
    
82. $typeName = '自己'
    
83. Case 0x009D3CD0
    
84. $typeName = '宠物'
    
85. Case 0x009EA1C0
    
86. $typeName = '玩家'
    
87. Case 0x009E24F0
    
88. $typeName = 'NCP '
    
89. Case 0x009E13D0
    
90. $typeName = '怪物'
    
91. Case 0x009EFC20
    
92. $typeName = '物品'
    
93. Case 0x009F8700
    
94. $typeName = '传送'
    
95. Case Else
    
96. $typeName = $type
    
97. EndSwitch
    
98. Return $typeName & '-' & Hex($type)
    
99. EndFunc ;==>GetTypeName
    
100. Func memopen($pid)
     
101. Local $mid = DllCall($kernel32, 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $pid)
     
102. Return $mid[0]
     
103. EndFunc ;==>memopen
     
104. Func memread($mid, $adress, $type = 'dword')
     
105. Local $struct = DllStructCreate($type)
     
106. DllCall($kernel32, 'int', 'ReadProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', '')
     
107. Return DllStructGetData($struct, 1)
     
108. EndFunc ;==>memread
     
109. Func memwrite($mid, $adress, $hex)
     
110. Local $struct = DllStructCreate('byte[' & BinaryLen('0x' & $hex) & ']')
     
111. For $i = DllStructGetSize($struct) To 1 Step -1
     
112. DllStructSetData($struct, 1, BinaryMid('0x' & $hex, $i, 1), $i)
     
113. Next
     
114. Local $x = DllCall($kernel32, 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0)
     
115. DllCall($kernel32, 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0)
     
116. DllCall($kernel32, 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', $x[5], 'dword*', 0)
     
117. EndFunc ;==>memwrite
     
118. Func memclose($mid)
     
119. DllCall($kernel32, 'int', 'CloseHandle', 'int', $mid)
     
120. EndFunc ;==>memclose

复制代码

编译环境 AutoIt

cslxiaozhu

坐标是怎么找到的？ LZ 能说下思路吗

chunsen

Au3做##的很少看到

piaorou

不好意思。修正1下。

1. $x_y = 'X:' & BitShift(BitAND(memread($mid, $ecx + 0x7c, "short"), 0xFF) * 3 - 0x195, -6) - Int(memread($mid, $ecx + 0x7c, "float") / (-10))

复制代码

正确的是

1. $x_y = 'X:' & BitShift(BitAND(memread($mid, $ecx + 0x7c, "short"), 0xFF) * 3 - 0x195, -6) - Int(memread($mid, $ecx + 0x80, "float") / (-10))

复制代码

找坐标算法。来“精灵领域”看吧，陆续会发布所有的算法，找法和公开源代码。

死鱼

这么好的帖子，不顶不行，鄙视不回帖的。

xiyuxiaomo

搞啥灰机啊！这玩意儿可以用易语言写？！

yxqmeng2008

为什么我用CE找不出人物坐标呢?

happelya

好东西吖！学习了！！！

xiaomeimei

AutoIt写的.学习了.{:1_83:}

绿色的草原

想学下 但看上去太难了         

clong

楼主打广告吗？{:1_83:}

syhhghy123

好难啊，不是易语言的....

heiying8660

我怎么什么都 看不懂呢

yr46369532

是啊  搞啥灰机啊！ 啥都看不懂

zsbgx

先回复一下再说吧，到时找不到就惨了

hu123456890

啥语言  怎么发现这里了

jiangyuanyang2

电脑盲,来学习一下!!!!!!!!!!!!!!!!!!头都老大的哎