获取地理坐标的
'**********************************************************************************************************获取地理坐标*****
Function GetCurXY(ByRef tmpCurX, ByRef tmpCurY)
Dim n, i, strNum, strXY, strT
Dim Color, ColorR, ColorG, ColorB
tmpCurX = 0: tmpCurY = 0
'坐标数字的X，Y坐标
x0 = ScreenWidth - 147
y0 = 24
strNum = "": strXY = ""

获取小地图名称的
'********************************************************************************************************获取小地图名称*****
Function GetSmallMapName(ByVal lngStart)
Dim Color, ColorB, n, i, strNum, strT, lngTmpFound
Dim x0, y0
x0 = ScreenWidth - 109
y0 = 4
lngTmpFound = 0
For i = 0 To 19
    For n = 0 To 10
        Color = objFM.GetPixelColor(x0 + i, y0 + n)
        ColorB = Left(Color, 2)
        If ColorB > "8F" Then
            lngTmpFound = 1
            Exit For
        End If
    Next
    If lngTmpFound = 1 Then Exit For
Next
x0 = x0 + i + (lngStart - 1) * 12
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, 2)
        If ColorB > "8F" Then
            Color = "1"
        Else
            Color = "0"
        End If
        strT = strT & Color
    Next
Next