form4.frm

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

VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "输入昵称"
   ClientHeight    =   1170
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   1905
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1170
   ScaleWidth      =   1905
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Top             =   720
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "输入您91U的昵称："
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_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"
Unload Me
Dim username As String
username = GetIniStr("用户", "昵称")
frm_main.Caption = "[水果小兔]·" & username
frm_main.Show
Else
MsgBox "请输入昵称！"
End If
End Sub