主界面.frm

F:梦幻西游自动跑商开发

      Move_Buy
      Get_Price "胖子"
      Guan
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
    Else
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
      Guan
      GoMapPzSz 地点, "胖子", 120
      Move_Buy
      Get_Price "胖子"
    End If
'-------------------------------------
    Case "地府"
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
      Guan
      GoMapPzSz 地点, "胖子", 120
      Move_Buy
      Get_Price "胖子"
'-------------------------------------
    Case "北俱芦洲"
        切换Maps "北俱芦洲"
    If 四角Pixels = GetSzRBG(当前Maps) Then
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
      Guan
      GoMapPzSz 地点, "胖子", 120
      Move_Buy
      Get_Price "胖子"
    Else
      GoMapPzSz 地点, "胖子", 120
      Move_Buy
      Get_Price "胖子"
      Guan
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
    End If
  End Select
End Sub
'---------------------------------以下是切换Maps与行走的部分---------------------
'城市间行走的代码，例如从长安城to傲来国。
Private Sub 长安城to傲来国()
长安城to江南野外
江南野外to建邺城
建邺城to东海湾
东海湾to傲来国
End Sub
Private Sub 长安城to地府()
长安城to大唐国境
大唐国境to地府
End Sub
Private Sub 长安城to北俱芦洲()
长安城to傲来国
傲来国to北俱芦洲
End Sub
Private Sub 长安城to长寿村()
长安城to傲来国
傲来国to长寿村
End Sub
'-----------------------------
Private Sub 长寿村to长安城()
长寿村to长寿郊外
长寿郊外to北俱芦洲
北俱芦洲to长安城
End Sub
Private Sub 长寿村to傲来国()
长寿村to长寿郊外
长寿郊外to北俱芦洲
北俱芦洲to花果山
花果山to傲来国
End Sub
Private Sub 长寿村to地府()
长寿村to长安城
长安城to地府
End Sub
Private Sub 长寿村to北俱芦洲()
长寿村to长寿郊外
长寿郊外to北俱芦洲
End Sub
'-----------------------------
Private Sub 傲来国to长寿村()
傲来国to花果山
花果山to北俱芦洲
北俱芦洲to长寿村
End Sub
Private Sub 傲来国to地府()
傲来国to长安城
长安城to地府
End Sub
Private Sub 傲来国to长安城()
Do Until 四角Pixels = 进RBG1(9) '长安城靠近瘦子一侧的地图进入点
KeyPressTab
    MoveToP 出Point2(2), 1 '小地图上58，96的屏幕坐标，移动到去长寿郊外的驿站老板。
    MouseLD
KeyPressTab
XingZou 120
KeyPressF9
    MoveToP 出Screen2(2), 1 '去长安城驿站的坐标
MouseLD
    MoveToP 出Point1(12), 1 '点，是的 我要去
MouseLD
Sleep 2000
Loop
End Sub
Private Sub 傲来国to北俱芦洲()
傲来国to花果山
花果山to北俱芦洲
End Sub
'---------------------------------------------------------------------
Private Sub 北俱芦洲to长寿村()
北俱芦洲to长寿郊外
长寿郊外to长寿村
End Sub
Private Sub 北俱芦洲to地府()
北俱芦洲to长安城
长安城to地府
End Sub
Private Sub 北俱芦洲to长安城()
Do Until 四角Pixels = 进RBG1(9) '长安城靠近瘦子一侧的地图进入点
KeyPressTab
MoveToP 出Point3(3), 1    '小地图上47，117的屏幕坐标，移动到去长安城的驿站老板。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
    MoveToP 出Screen3(3), 1
MouseLD
MoveToP 出Point1(12), 1    '点是的，我要去
MouseLD
Sleep 2000
Loop
End Sub
Private Sub 北俱芦洲to傲来国()
北俱芦洲to花果山
花果山to傲来国
End Sub
'--------------------------------------------------
Private Sub 地府to傲来国()
地府to长安城
长安城to傲来国
End Sub
Private Sub 地府to长寿村()
地府to长安城
长安城to长寿村
End Sub
Private Sub 地府to长安城()
Do Until 四角Pixels = 进RBG3(9) '长安城从 地府 进入的地图进入点
KeyPressTab
MoveToP 出Point1(5), 1    '小地图上540，10的屏幕坐标，移动到去地府的出口。
Sleep 100
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(5), 1
MouseLD
XingZou 3
MoveToP 出Point2(5), 1 '白无常在屏幕的位置
MouseLD
Sleep 500
MoveToP 出Screen2(5), 1
MouseLD
Sleep 2000
Loop
End Sub
Private Sub 地府to北俱芦洲()
地府to长安城
长安城to北俱芦洲
End Sub
'***************************************************
Private Sub 长安城to大唐国境() '下面先写一些固定路线的行走模块
Do Until 四角Pixels = 进RBG1(4) '长安城从 大唐国境 进入的地图进入点

Sleep 2000
Loop
End Sub
Private Sub 大唐国境to地府() '下面先写一些固定路线的行走模块
Do Until 四角Pixels = 进RBG1(5) '从 其他地方 进入 地府 的进入点
KeyPressTab
MoveToP 出Point1(4), 1    '小地图上540，10的屏幕坐标，移动到去地府的出口。
Sleep 100
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(4), 1
MouseLD
Loop
End Sub

Private Sub 长安城to江南野外() '下面先写一些固定路线的行走模块
Do Until 四角Pixels = 进RBG1(7) '长安城 进入 江南野外的 颜色点
KeyPressTab
MoveToP 出Point2(9), 1     '小地图上540，10的屏幕坐标，移动到去江南野外的出口。
MouseLD
KeyPressTab
XingZou 240
KeyPressF9
MoveToP 出Screen2(9), 1 '移动到去江南野外的出口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 江南野外to建邺城()
Do Until 四角Pixels = 进RBG1(8) '进入建邺城的点
KeyPressTab
MoveToP 出Point1(7), 1    '小地图上150，60的屏幕坐标，移动到去建邺城的进口。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(7), 1    '移动到去建邺城的出口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 建邺城to东海湾()
Do Until 四角Pixels = 进RBG1(6) '从 建邺城 进入 东海湾 的地图进入点
KeyPressTab
MoveToP 出Point1(8), 1    '小地图上240，130的屏幕坐标，移动到去东海湾的进口。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(8), 1 '移动到去东海湾的出口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 东海湾to傲来国()
Dim 颜色(1 To 3) As String, h1 As Long
h1 = GetDC(0)
Do Until 四角Pixels = 进RBG2(2) '从 东海湾 来到傲来国方向的地图点
KeyPressTab
MoveToP 出Point1(6), 1    '小地图上63，20的屏幕坐标，移动到去傲来国的船夫。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9 '下面是判断东海湾船夫的代码。
颜色(1) = GetPixel(h1, 375, 255)
颜色(2) = GetPixel(h1, 385, 255)
颜色(3) = GetPixel(h1, 385, 255)
If 颜色(1) = 9033197 Then '89D5ED 图片xy0015点372，284的颜色值，在游戏中应该不会改变
LinShiP.X = 267
LinShiP.Y = 244
MoveToP LinShiP, 1
MouseLD
End If
'----------------------------
If 颜色(1) = 9033197 Then
LinShiP.X = 345
LinShiP.Y = 280
MoveToP LinShiP, 1
MouseLD
End If
'----------------------------
If 颜色(1) = 9033197 Then
LinShiP.X = 320
LinShiP.Y = 240
MoveToP LinShiP, 1
MouseLD
End If
'----------------------------
MoveToP 出Point1(12), 1    '点是的，我要去
MouseLD
Sleep 2000
Loop
ReleaseDC 0, h1
End Sub

Private Sub 傲来国to花果山()
Do Until 四角Pixels = 进RBG1(1) '从 傲来国 到花果山  方向的地图点
KeyPressTab
MoveToP 出Point1(2), 1    '小地图上215，144的屏幕坐标，移动到去花果山的进口。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(2), 1    '移动到去花果山的出口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 花果山to傲来国()
Do Until 四角Pixels = 进RBG1(2) '从 花果山 来到傲来国方向的地图点
KeyPressTab
MoveToP 出Point1(1), 1    '小地图上10，10的屏幕坐标，移动到去傲来国的进口。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
LinShiP.X = 30
LinShiP.Y = 330
MoveToP 出Screen1(1), 1    '移动到去傲来国的出口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 花果山to北俱芦洲()
Do Until 四角Pixels = 进RBG2(3) '从 花果山 来到 北俱芦洲 方向的地图点
KeyPressTab
MoveToP 出Point2(1), 1    '小地图上28，98的屏幕坐标，移动到去北俱芦洲的进口。花果山土地
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen2(1), 1    '移动到花果山土地。
MouseLD
MoveToP 出Point1(12), 1    '点是的，我要去
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 北俱芦洲to花果山()
Do Until 四角Pixels = 进RBG2(1) '从 北俱芦洲 来到  花果山 方向的地图点
KeyPressTab
MoveToP 出Point1(3), 1    '小地图上195，105的屏幕坐标，移动到去花果山的进口。北俱芦洲土地
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(3), 1    '移动到北俱芦洲土地。
MouseLD
MoveToP 出Point1(12), 1    '点是的，我要去
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 北俱芦洲to长寿郊外()
Do Until 四角Pixels = 进RBG2(11) '从 北俱芦洲 来到  长寿郊外  方向的地图点
KeyPressTab
MoveToP 出Point2(3), 1    '小地图上195，5的屏幕坐标，移动到去长寿郊外的进口。地遁鬼
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen2(3), 1    '移动到地遁鬼。
MouseLD
MoveToP 出Point1(12), 1    '点是的，我要去
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 长寿郊外to长寿村()
Do Until 四角Pixels = 进RBG1(10) '从 郊外 来到  长寿村  方向的地图点
KeyPressTab
MoveToP 出Point1(11), 1    '小地图上150，160的屏幕坐标，移动到去长寿村的进口。
MouseLD
KeyPressTab
XingZou 120
KeyPressF9
MoveToP 出Screen1(11), 1    '移动到长寿村的进口。
MouseLD
Sleep 2000
Loop
End Sub

Private Sub 长寿村to长寿郊外()
Do Until 四角Pixels = 进RBG1(11) '从 长寿村 来到  长寿郊外  方向的地图点
KeyPressTab
MoveToP 出Point1(10), 1    '小地图上150，10的屏幕坐标，移动到去长寿村的进