form5.frm

91.com小游戏“水果“（对对碰）的外挂源码

VERSION 5.00
Begin VB.Form Form5 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form5"
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3135
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   3135
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Caption         =   "设置昵称"
      Height          =   975
      Left            =   0
      TabIndex        =   4
      Top             =   1800
      Width           =   3135
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   120
         TabIndex        =   6
         Top             =   480
         Width           =   1695
      End
      Begin VB.CommandButton Command3 
         Caption         =   "确定(&O)"
         Height          =   375
         Left            =   1920
         TabIndex        =   5
         Top             =   420
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "输入您91U的昵称："
         Height          =   375
         Left            =   120
         TabIndex        =   7
         Top             =   240
         Width           =   1695
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   1920
      TabIndex        =   3
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Caption         =   "设置工作模式"
      Height          =   1575
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   3135
      Begin VB.OptionButton Option1 
         Caption         =   "单局自动(适用于双人对战,每局结束自动停止工作)"
         Height          =   495
         Index           =   1
         Left            =   120
         TabIndex        =   2
         Top             =   600
         Width           =   2895
      End
      Begin VB.OptionButton Option1 
         Caption         =   "闯关挂机(适用于单人挂积分)"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Value           =   -1  'True
         Width           =   2775
      End
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Option1(1).Value = True Then
WriteIniStr "设置", "模式", "单局"
Else
WriteIniStr "设置", "模式", "多局"
End If
MsgBox "工作模式设置成功！"
Unload Me
frm_main.Show
End Sub

Private Sub Command3_Click()
If Text1.Text <> "" Then
WriteIniStr "用户", "昵称", Text1.Text
WriteIniStr "粉红桃子", "x", "5956442"
WriteIniStr "粉红桃子", "y", "5916135"
WriteIniStr "绿色西瓜", "x", "5401864"
WriteIniStr "绿色西瓜", "y", "4882944"
WriteIniStr "蓝色葡萄", "x", "15155489"
WriteIniStr "蓝色葡萄", "y", "16743762"
WriteIniStr "紫色葡萄", "x", "13505725"
WriteIniStr "紫色葡萄", "y", "10817668"
WriteIniStr "红色草莓", "x", "8"
WriteIniStr "红色草莓", "y", "6350"
WriteIniStr "绿色茄子", "x", "2709826"
WriteIniStr "绿色茄子", "y", "38482"
WriteIniStr "黄色香蕉", "x", "4120"
WriteIniStr "黄色香蕉", "y", "7594991"
WriteIniStr "红色苹果", "x", "1222"
WriteIniStr "红色苹果", "y", "239"

Dim username As String
username = GetIniStr("用户", "昵称")
MsgBox "昵称设置成功！"
Unload Me
frm_main.Caption = "[水果小兔]·" & username
frm_main.Show
Else
MsgBox "请输入昵称！"
End If
End Sub

Private Sub Form_Load()
If GetIniStr("用户", "昵称") <> "" Then Text1.Text = GetIniStr("用户", "昵称")

If GetIniStr("设置", "模式") = "单局" Then
Option1(1).Value = True
Else
Option1(0).Value = True
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
frm_main.Show
End Sub