180版自由猎手用不了拉。请高手指点,

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:00:41
我看了帖子有的让这么改的答案
因为新版的1.80，血条和城市字符显示位置，上调了一个像素，这就要修改猎手中读取血条和城市所起始的坐标，需要修改的代码有以下两处：
1 FindMon.vbs中

**********************************************************************************************************获取地理坐标*****
Function GetCurXY(ByRef tmpCurX, ByRef tmpCurY)
Dim n, i, strNum, strXY, strT
Dim Color, ColorR, ColorG, ColorB

tmpCurX = 0: tmpCurY = 0
x0 = ScreenWidth - 147
y0 = 24
strNum = "": strXY = ""
'自由猎手之打手全自动挂机脚本，免费发布
'博客地址：http://fhok.spaces.msn.com
Do While strNum <> "?" And strNum <> "]

/////注意y0=24 以前是25！

2FindMon.vbs

'********************************************************************************************************获取小地图名称*****
Function GetSmallMapName(ByVal lngStart)
Dim Color, ColorB, n, i, strNum

自由猎手全自动外挂对付180版本的更新方法
180版本对坐标和城镇的名字的位置作了微妙的改动，对于坐标判断的方法：把FindMon.vbs文件里“获取地理坐标”原坐标判断的起点y0=25变y0=24,其他勿动，立刻OK。对于城镇的判断需要作一个大的改动，请把“获取小地图名称”改成：
Function GetSmallMapName(ByVal lngStart)
Dim Color, ColorB, n, i, strNum, strT, lngTmpFound
Dim x0, y0
x0 = ScreenWidth - 85
y0 = 4

strNum = 0: strT = ""
For n = 0 To 10
For i = 0 To 10
Color = objFM.GetPixelColor(x0 + i, y0 + n)
ColorB = Left(Color, 1)
If ColorB > "6" Then
Color = "1"
Else
Color = "0"
End If
strT = strT & Color
Next
Next

Select Case strT
Case "0001000100011111101000000100010001111111111110000101001011110010010001000100100011101001111100100010001010000101101001110"
strNum = 1 '勃
Case "0000000001011111111111000001000000000010000000100100000001001111100010010000000100100000001001000000010010000011111111111"
st