[武林外传]一天一天做外挂@第一天-CE看数据@ …… (新手用)
[武林外传]一天一天做外挂@第二天-实现VB显示游戏数据@ …… (新手用)
[武林外传]一天一天做外挂@第三天-人物飞天其实很简单@ …… (新手用)
[武林外传]一天一天做外挂@第四天-给自己找个贴心小护士@ …… (新手用)
[武林外传]一天一天做外挂@第五天-物品清单我知道@ …… (新手用)
[武林外传]一天一天做外挂@第六天-去伪存真做筛选@ …… (新手用)
[武林外传]一天一天做外挂@第七天-背包里到底有什么@ …… (新手用)
[武林外传]一天一天做外挂@第八天-门当户对分清楚@ …… (新手用)


学习目的：
1.实现物品过滤
2.过滤表制作


内容：

1.经过五天的学习我想我已经可以个把一些重复的代码省略掉主要解释核心内容。我想今天的内容很多人都很期待，因为我也曾经因为挂了一宿武林后满背包的配方所困扰。那好，接下来我们就能让可恶的配方从此在背包中消失。


2.首先看看图片，我要用到那些控件，我们可以利用第五天的代码。

=720) window.open('http://www.ghoffice.com/bbs/attachment/Fid_74/74_16889_1a8f74df65ffee4.jpg');" src="http://www.ghoffice.com/bbs/attachment/Fid_74/74_16889_1a8f74df65ffee4.jpg" onload="if(this.width>'720')this.width='720';if(this.height>'6200')this.height='6200';" border=0>
主要控件：
List1 /用于显示地面物品
List2 /用于显示需要过滤的物品名称
Timer1 /用于刷新地面物品
Timer2 /用于过滤地面物品
Combo1 /用于添加或保存过滤物品名称
Command1 /添加按钮
Command2 /删除按钮

模块添加：
'存储进程内存的函数
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long



3.我们来看看过滤物品的核心代码，以下为Timer2_Timer代码：
Private Sub Timer2_Timer()
Dim base As Long '存储地址
Dim mecxi As Long '存储地址
Dim WpNameT As Long '存储地址
Dim pn As Integer '循环变量
Dim WpName(65) As Byte '存储物品名称
Dim x As Integer

If hProcess Then
ReadProcessMemory hProcess, ByVal &H8C9E54, mecxi, 4, 0
ReadProcessMemory hProcess, ByVal mecxi + &H8, mecxi, 4, 0
ReadProcessMemory hProcess, ByVal mecxi + &H24, mecxi, 4, 0 '得到物品数量
If mecxi <> 0 Then
For pn = 0 To 768 '循环用来判断那个值内存在物品
ReadProcessMemory hProcess, ByVal mecxi + &H18, base, 4, 0
ReadProcessMemory hProcess, ByVal base + pn * 4, base, 4, 0 '从列表中选出地面上物品的地址
If base > 0 Then '判断是否存在物品
ReadProcessMemory hProcess, ByVal base + 4, base, 4, 0
ReadProcessMemory hProcess, ByVal base + &H164, WpNameT, 4, 0
ReadProcessMemory hProcess, ByVal WpNameT, WpName(0), 64, 0 '得到物品名称
For x = 0 To List2.ListCount - 1 '用循环查找是否是过滤表内要过滤的物品
If InStr(WpName, List2.List(x)) > 0 Then '用InSet()进行对比，存在过滤表内容则过滤
WriteProcessMemory hProcess, ByVal base + &H110, 0, 4, 0 '变ID为0，有捡物品动作但背包内无此物品
Label1.Caption = "已过滤：" & CStr(WpName) '过滤提示，观察用
End If
Next x
End If
Next pn
End If
End If
End Sub

3.1.地面上的物品得用一个0 to 768循环来判断哪个值内存在物品，比如说地面上有四个物品，则0 to 768里面就会有4个值是存在着物品，也就说游戏最多能显示769件地面物品。

3.2.首先判断地面上是否存在物品，如果存在则循环769次查找物品，当找到0 to 768中的一个物品时，程序得到物品的名称，接下来用一个循环来对比物品名称与过滤表做对比，如果为要过滤的物品则改变当前物品在内存的ID，游戏程序再执行捡取动作就会实现过滤功能，物品检起来了，但是并不在背包内，也没有捡到物品的提示。

4.最后就是过滤表的制作了，这个很简单，只要有添加项目和删除项目的功能就可以。这里我用到Combo控件作为输入框，因为可以记录一些可能会用到的物品名称。

Private Sub Command1_Click() '添加物品名称
If Combo1.Text <> "" Then List2.AddItem Combo1.Text
End Sub

Private Sub Command2_Click() '删除物品名称
If List2.ListIndex <> -1 Then List2.RemoveItem (List2.ListIndex) '当选中某项则删除某项
End Sub


5.最后的成品！标签显示了已经过滤的物品。最后，默哀5分钟以悼念做测试时销毁的5个大补丸

=720) window.open('http://www.ghoffice.com/bbs/attachment/Fid_74/74_16889_750f88d99d57e3e.jpg');" src="http://www.ghoffice.com/bbs/attachment/Fid_74/74_16889_750f88d99d57e3e.jpg" onload="if(this.width>'720')this.width='720';if(this.height>'6200')this.height='6200';" border=0>



=720) window.open('http://www.ghoffice.com/bbs/image/new3/file/zip.gif');" src="http://www.ghoffice.com/bbs/image/new3/file/zip.gif" onload="if(this.width>'720')this.width='720';if(this.height>'6200')this.height='6200';" border=0> 物品过滤.rar

> >