form3.frm

来自「91.com小游戏“水果“（对对碰）的外挂源码」· FRM 代码 · 共 172 行

VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form3"
   ClientHeight    =   1260
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4830
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1260
   ScaleWidth      =   4830
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   6120
      Top             =   480
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   15
      Left            =   4200
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   14
      Left            =   3600
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   13
      Left            =   3000
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   12
      Left            =   2400
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   11
      Left            =   1800
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   10
      Left            =   1200
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   9
      Left            =   600
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   8
      Left            =   0
      Top             =   600
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   7
      Left            =   4200
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   6
      Left            =   3600
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   5
      Left            =   3000
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   4
      Left            =   2400
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   3
      Left            =   1800
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   2
      Left            =   1200
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   1
      Left            =   600
      Top             =   0
      Width           =   615
   End
   Begin VB.Image Image1 
      Height          =   615
      Index           =   0
      Left            =   0
      Top             =   0
      Width           =   615
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
Form3.Caption = frm_main.Caption
End Sub

Private Sub Timer1_Timer()
            getBoxs
    
    For i = 0 To 7
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(0) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(0) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/0.jpg") 'Command1(i).Caption = "桃子"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(1) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(1) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/1.jpg") 'Command1(i).Caption = "苹果"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(2) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(2) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/2.jpg") 'Command1(i).Caption = "西瓜"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(3) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(3) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/3.jpg") 'Command1(i).Caption = "蓝葡萄"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(4) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(4) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/4.jpg") ' Command1(i).Caption = "紫葡萄"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(5) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(5) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/5.jpg") 'Command1(i).Caption = "草莓"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(6) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(6) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/6.jpg") 'Command1(i).Caption = "茄子"
    If getColor(boxs(0, i).x, boxs(0, i).y) = shuiguox(7) And getColor(boxs(0, i).x, boxs(0, i).y - 5) = shuiguoy(7) Then Image1(i).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/7.jpg") 'Command1(i).Caption = "香蕉"
    
    Next
    For i2 = 0 To 7
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(0) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(0) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/0.jpg") 'Command1(i2 + 8).Caption = "桃子"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(1) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(1) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/1.jpg") 'Command1(i2 + 8).Caption = "苹果"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(2) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(2) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/2.jpg") 'Command1(i2 + 8).Caption = "西瓜"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(3) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(3) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/3.jpg") 'Command1(i2 + 8).Caption = "蓝葡萄"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(4) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(4) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/4.jpg") 'Command1(i2 + 8).Caption = "紫葡萄"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(5) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(5) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/5.jpg") 'Command1(i2 + 8).Caption = "草莓"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(6) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(6) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/6.jpg") 'Command1(i2 + 8).Caption = "茄子"
    If getColor(boxs(1, i2).x, boxs(1, i2).y) = shuiguox(7) And getColor(boxs(1, i2).x, boxs(1, i2).y - 5) = shuiguoy(7) Then Image1(i2 + 8).Picture = LoadPicture("C:\wgjxsourcefile\腾讯QQ游戏--对对碰外挂制作教程详解     VB代码\source/images/7.jpg") 'Command1(i2 + 8).Caption = "香蕉"
    
    Next
    
End Sub