主界面.frm

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

'-----------------------------------------------
    Case "长安城"
    Rs.MoveFirst
    Do Until Rs.EOF
    If Rs.Fields(商人 & "买价").Value = 0 Then
        Rs.MoveNext
    Else
        If Rs.Fields("商品名称").Value = "商品纸扇" Then
            If Rs.Fields(商人 & "买价").Value < Rs.Fields("Buy").Value And Rs.Fields(商人 & "数量").Value > 20 Then
            NeedBuyGood.Pixels = Rs.Fields("像素字符").Value
            NeedBuyGood.Price = Rs.Fields(商人 & "买价").Value
            Exit Do
            End If
        End If
        If Rs.Fields("商品名称").Value = "商品武器" Then
            If Rs.Fields(商人 & "买价").Value < Rs.Fields("Buy").Value And Rs.Fields(商人 & "数量").Value > 20 Then
            NeedBuyGood.Pixels = Rs.Fields("像素字符").Value
            NeedBuyGood.Price = Rs.Fields(商人 & "买价").Value
            Exit Do
            End If
        End If
        If Rs.Fields("商品名称").Value = "商品佛珠" Then
            If Rs.Fields(商人 & "买价").Value < Rs.Fields("Buy").Value And Rs.Fields(商人 & "数量").Value > 20 Then
            NeedBuyGood.Pixels = Rs.Fields("像素字符").Value
            NeedBuyGood.Price = Rs.Fields(商人 & "买价").Value
            Exit Do
            End If
        End If
    Rs.MoveNext
    End If
        Loop
'-----------------------------------------------
End Select
Rs.MoveFirst
    Do Until Rs.EOF
    If Rs.Fields("像素字符").Value = NeedBuyGood.Pixels Then
    NeedBuyGood.Nums = YinPiao \ Rs.Fields(商人 & "买价").Value
    Exit Do
    End If
    Rs.MoveNext
    Loop
Rs.Close
End Sub
Private Sub 买Good(商品 As Goods, 数量 As Long)
Dim h1 As Long, i As Long, Nums As Long, GK(1 To 3) As String  'GK用于记录商品的颜色值组合227-278-329
h1 = GetDC(0)
  For i = 1 To 10
    GK(1) = GK(1) & GetPixel(h1, Packet(1).X + i - 1, Packet(1).Y) & "[" & i & "]" '227
    GK(2) = GK(2) & GetPixel(h1, Packet(2).X + i - 1, Packet(2).Y) & "[" & i & "]" '279
    GK(3) = GK(3) & GetPixel(h1, Packet(3).X + i - 1, Packet(3).Y) & "[" & i & "]" '329
  Next i
For i = 1 To 3
If GK(i) = 商品.Pixels Then Exit For
Next i
Nums = OCR(Packet(i).X - 30, 102, 50, 10, &HF8FCF8, &HFFFFFF, &HFFFFFF)
If 数量 > Nums Then 数量 = Nums
    MoveToP Packet(i), 1
Do Until 数量 = OCR(313, 367, 20, 10, 0, &H101000, &H101000)
     MlD 数量 - OCR(313, 367, 20, 10, 0, &H101000, &H101000)
Loop
    LinShiP.X = 330 '买界面的“确定”按钮
    LinShiP.Y = 450
    MoveToP LinShiP, 1
    MouseLD
    i = GetTickCount
Do '你买了x个，共花费x两银子。中的买字88，288坐标的颜色
    If (GetTickCount - i) / 1000 > 3 Then Exit Do '延迟三秒
    DoEvents
Loop Until GetPixel(h1, 88, 288) = &HF8FCF8
ReleaseDC 0, h1
Dim X_Y As PointAPI, GK1(21) As Long
X_Y.X = -195
X_Y.Y = 119
For i = 1 To 20
If i = 5 Or i = 20 Then i = i + i
    GK1(i) = OCR(Packet(i).X + X_Y.X, Packet(i).Y + X_Y.Y, 30, 10, &HF8FCF8, &HF8FCF8, &HF8FCF8)
    If GK(i) = 数量 Then
YinPiao = YinPiao - 商品.Price * 数量
NeedBuyGood.Nums = 数量
    Exit For
    End If
Next i
Guan
End Sub

Private Sub 卖Good(商品 As Goods, 商人 As String)
Dim h1 As Long, i As Long, j As Long, GK(21) As String
h1 = GetDC(0)
For i = 1 To 20
  For j = 1 To 10
     GK(i) = GK(i) & GetPixel(h1, Packet(i).X + j - 1, Packet(i).Y) & "[" & j & "]"
  Next j
  If GK(i) = 商品.Pixels Then Exit For
Next i
LinShiP.X = Packet(i).X + 13
LinShiP.Y = Packet(i).Y - 14        '------------------------
MoveToP LinShiP, 1
    MouseLD
j = OCR(313, 343, 50, 10, &H0, &H101000, &HF80000)
If j > 0 Then YinPiao = YinPiao + j * 商品.Nums 'OCR(Packet(i).X - 30, Packet(i).Y - 12, 30, 10, &H0, &H101000, &HF80000)
If 商人 = "胖子" Then SaveDB 商品.Name, 0, 0, 0, 0, j, 0 Else SaveDB 商品.Name, 0, 0, 0, 0, 0, j
    Do While GK(21) = 商品.Pixels
    MouseRD
    GK(21) = ""
  For j = 1 To 10
      GK(21) = GK(21) & GetPixel(h1, Packet(i).X + j - 1, Packet(i).Y) & "[" & j & "]"
  Next j
    Loop
ReleaseDC 0, h1
Guan
End Sub

Sub 买Ring(NowMaps As String) '买进循环
Select Case NowMaps
  Case "长安城"
    刷新Price "长安城"
    If PzOrSz("长安城") = "胖子" Then
    GoMapPzSz NowMaps, "胖子", 120
    买WhatGood NowMaps, "胖子"
    Move_Buy
    Else
    GoMapPzSz NowMaps, "瘦子", 120
    买WhatGood NowMaps, "瘦子"
    Move_Buy
    End If
  Case "傲来国"
    刷新Price "傲来国"
    If PzOrSz("傲来国") = "胖子" Then
    GoMapPzSz NowMaps, "胖子", 120
    买WhatGood NowMaps, "胖子"
    Move_Buy
    Else
    GoMapPzSz NowMaps, "瘦子", 120
    买WhatGood NowMaps, "瘦子"
    Move_Buy
    End If
  Case "地府"
    刷新Price "地府"
    If PzOrSz("地府") = "胖子" Then
    GoMapPzSz NowMaps, "胖子", 120
    买WhatGood NowMaps, "胖子"
    Move_Buy
    Else
    GoMapPzSz NowMaps, "瘦子", 120
    买WhatGood NowMaps, "瘦子"
    Move_Buy
    End If
  Case "北俱芦洲"
    刷新Price "北俱芦洲"
    If PzOrSz("北俱芦洲") = "胖子" Then
    GoMapPzSz NowMaps, "胖子", 120
    买WhatGood NowMaps, "胖子"
    Move_Buy
    Else
    GoMapPzSz NowMaps, "瘦子", 120
    买WhatGood NowMaps, "瘦子"
    Move_Buy
    End If
  Case "长寿村"
    刷新Price "长寿村"
    If PzOrSz("长寿村") = "胖子" Then
    GoMapPzSz NowMaps, "胖子", 120
    买WhatGood NowMaps, "胖子"
    Move_Buy
    Else
    GoMapPzSz NowMaps, "瘦子", 120
    买WhatGood NowMaps, "瘦子"
    Move_Buy
    End If
End Select
买Good NeedBuyGood, NeedBuyGood.Nums
KeyPressAlt "E"
Dim i As Long
For i = 1 To 20
    If NeedBuyGood.Nums = OCR(Packet(i).X - 195, Packet(i).Y + 119, 30, 10, &HF8FCF8, &HF8FCF8, &HF8FCF8) Then
    卖Ring NowMaps
    Exit For
    Else
    买NextMaps NowMaps
    End If
Next i
KeyPressAlt "E"
End Sub
Sub 买NextMaps(NowMap As String)
Select Case NowMap
    Case "长安城"
        切换Maps "傲来国"
    Case "地府"
        切换Maps "长安城"
    Case "傲来国"
        切换Maps "北俱芦洲"
    Case "北俱芦洲"
        切换Maps "长寿村"
    Case "长寿村"
        切换Maps "傲来国"
End Select
买Ring 当前Maps
End Sub
Sub 卖Ring(NowMaps As String) '卖出循环
  Select Case NowMaps
    Case "长安城"
      切换Maps "长寿村"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "胖子" Then
      卖Good NeedBuyGood, "瘦子"
      Else
      Guan
      GoMapPzSz 当前Maps, "胖子", 120
      Move_Sale
      卖Good NeedBuyGood, "胖子"
      End If
'----------------------------
    Case "傲来国"
      切换Maps "长寿村"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "胖子" Then
      卖Good NeedBuyGood, "瘦子"
      Else
      Guan
      GoMapPzSz 当前Maps, "胖子", 120
      Move_Sale
      卖Good NeedBuyGood, "胖子"
      End If
'----------------------------
    Case "长寿村"
    If YinPiao + NeedBuyGood.Price * NeedBuyGood.Nums <= 1 Then
      切换Maps "傲来国"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "瘦子" Then
      卖Good NeedBuyGood, "胖子"
      Else
      Guan
      GoMapPzSz 当前Maps, "瘦子", 120
      Move_Sale
      卖Good NeedBuyGood, "瘦子"
      End If
    Else
      切换Maps "长安城"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "瘦子" Then
      卖Good NeedBuyGood, "胖子"
      Else
      Guan
      GoMapPzSz 当前Maps, "瘦子", 120
      Move_Sale
      卖Good NeedBuyGood, "瘦子"
      End If
    End If
'----------------------------
    Case "北俱芦洲"
      切换Maps "地府"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "瘦子" Then
      卖Good NeedBuyGood, "胖子"
      Else
      Guan
      GoMapPzSz 当前Maps, "瘦子", 120
      Move_Sale
      卖Good NeedBuyGood, "瘦子"
      End If
'----------------------------
    Case "地府"
      切换Maps "北俱芦洲"
      刷新Price 当前Maps
      If PzOrSz(当前Maps) = "胖子" Then
      卖Good NeedBuyGood, "瘦子"
      Else
      Guan
      GoMapPzSz 当前Maps, "胖子", 120
      Move_Sale
      卖Good NeedBuyGood, "胖子"
      End If
'----------------------------
  End Select
If YinPiao >= Level Then
切换Maps "长安城"
JiaoPiao
Else
买Ring 当前Maps
End If
End Sub
    
Private Sub 切换Maps(目的Maps As String)
If 当前Maps <> 目的Maps Then
Select Case 当前Maps & 目的Maps
    Case "长安城地府"
        长安城to地府
    Case "长安城傲来国"
        长安城to傲来国
    Case "长安城长寿村"
        长安城to长寿村
    Case "长安城北俱芦洲"
        长安城to北俱芦洲
'------------------------
    Case "长寿村地府"
        长寿村to地府
    Case "长寿村傲来国"
        长寿村to傲来国
    Case "长寿村长安城"
        长寿村to长安城
    Case "长寿村北俱芦洲"
        长寿村to北俱芦洲
'------------------------
    Case "傲来国地府"
        傲来国to地府
    Case "傲来国长寿村"
        傲来国to长寿村
    Case "傲来国长安城"
        傲来国to长安城
    Case "傲来国北俱芦洲"
        傲来国to北俱芦洲
'------------------------
    Case "地府傲来国"
        地府to傲来国
    Case "地府长寿村"
        地府to长寿村
    Case "地府长安城"
        地府to长安城
    Case "地府北俱芦洲"
        地府to北俱芦洲
'------------------------
    Case "北俱芦洲地府"
        北俱芦洲to地府
    Case "北俱芦洲长寿村"
        北俱芦洲to长寿村
    Case "北俱芦洲长安城"
        北俱芦洲to长安城
    Case "北俱芦洲傲来国"
        北俱芦洲to傲来国
'------------------------
    End Select
End If
当前Maps = 目的Maps
End Sub
Sub Guan()
LinShiP.X = Packet(18).X
LinShiP.Y = Packet(18).Y + 183
MoveToP LinShiP, 1
MouseLD
MouseRD
End Sub
Private Sub 刷新Price(地点 As String) '刷新商品的价格，
  Select Case 地点
    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
'-------------------------------------
    Case "长寿村"
        切换Maps "长寿村"
      GoMapPzSz 地点, "胖子", 120
      Move_Buy
      Get_Price "胖子"
      Guan
      GoMapPzSz 地点, "瘦子", 120
      Move_Buy
      Get_Price "瘦子"
'-------------------------------------
    Case "傲来国"
        切换Maps "傲来国"
    If 四角Pixels = GetPzRBG(当前Maps) Then
      GoMapPzSz 地点, "胖子", 120