📄 main.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00000080&
BorderStyle = 0 'None
Caption = "Form2"
ClientHeight = 9015
ClientLeft = 390
ClientTop = 270
ClientWidth = 11985
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "Main.frx":0000
Picture = "Main.frx":030A
ScaleHeight = 601
ScaleMode = 3 'Pixel
ScaleWidth = 799
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Main.frx":A354
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 15
Top = 5760
Width = 1095
End
Begin VB.CommandButton Command5
BackColor = &H000000C0&
Caption = "Exit"
Height = 735
Left = 11040
MaskColor = &H000000FF&
Picture = "Main.frx":C1C8
Style = 1 'Graphical
TabIndex = 14
Top = 7920
Width = 855
End
Begin VB.CommandButton Command4
BackColor = &H000000C0&
Caption = "Program"
Height = 735
Left = 9840
MaskColor = &H000000FF&
Picture = "Main.frx":C2E0
Style = 1 'Graphical
TabIndex = 13
Top = 7920
Width = 855
End
Begin VB.CommandButton Command3
BackColor = &H000000C0&
Caption = "Option"
Height = 735
Left = 8640
MaskColor = &H000000FF&
Picture = "Main.frx":C3F8
Style = 1 'Graphical
TabIndex = 12
Top = 7920
Width = 855
End
Begin VB.CommandButton Command2
BackColor = &H000000C0&
Caption = "Manager"
Enabled = 0 'False
Height = 735
Left = 7440
MaskColor = &H000000FF&
Picture = "Main.frx":C510
Style = 1 'Graphical
TabIndex = 11
Top = 7920
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H000000C0&
Caption = "Single"
Height = 735
Left = 6240
MaskColor = &H000000FF&
Picture = "Main.frx":C628
Style = 1 'Graphical
TabIndex = 10
Top = 7920
Width = 855
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Main.frx":C740
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 1
Top = 4200
Width = 1095
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Main.frx":E5B4
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 0
Top = 2760
Width = 1095
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "is playing now..."
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 375
Left = 1800
TabIndex = 9
Top = 2160
Width = 3495
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Nobody"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 375
Left = 240
TabIndex = 8
Top = 1560
Width = 3135
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Ver 1.2.1 -Bicousoft-Ability soft(T)"
Height = 180
Left = 8400
TabIndex = 7
Top = 8760
Width = 3420
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2003"
BeginProperty Font
Name = "Swis721 BlkOul BT"
Size = 21.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 525
Left = 5760
TabIndex = 6
Top = 1320
Width = 1140
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Soccer Dream"
BeginProperty Font
Name = "ScriptS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1035
Left = 1440
TabIndex = 5
Top = 480
Width = 5010
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Exit game"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 420
Left = 1680
TabIndex = 4
Top = 6120
Width = 3675
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Manager mode"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 420
Left = 1680
TabIndex = 3
Top = 4560
Width = 3675
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Direct match/Player trainning"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 900
Left = 1800
TabIndex = 2
Top = 2760
Width = 3675
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Command1_Click()
InitializeRes1024
Form1.Show
Picture2.Enabled = True
Label2.ForeColor = &HFFFFFF
Command2.Enabled = True
Label1.Caption = "Load a game"
Command1.Caption = "Load a game"
End Sub
Private Sub Command2_Click()
InitializeRes1024
Form6.Show
Form6.moneyp = "10000"
Form6.swp = "0"
Form6.jcp = "26"
Form6.sqp = "50"
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub
Private Sub Command4_Click()
Form4.Show
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Form_Load()
InitializeRes800
End Sub
Private Sub Picture1_Click()
On Error Resume Next
InitializeRes1024
Form1.Show
Picture2.Enabled = True
Label2.ForeColor = &HFFFFFF
Command2.Enabled = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFF&
If Label2.ForeColor = &HFFFF& Then
Label2.ForeColor = &HFFFFFF
End If
Label3.ForeColor = &HFFFFFF
End Sub
Private Function rtv_ini_data$(ini_File$, ini_select$, ini_entry$)
' rtv_ini_data("XXX.INI","ENVIRONMENT","PATH")
Dim temp_string As String
Dim DefaultValue As String
Dim Entry As String
Dim EntryValue As String
Dim EntryValueSize As String
Dim box_msg As String
Dim Len_string As String
Dim X As Integer
rtv_ini_data$ = ""
Section$ = ini_select$
Entry$ = ini_entry$
DefaultValue$ = "unknown"
EntryValue$ = Space$(1000)
EntryValueSize = 1000
'读取信息，如不存在则显示错误信息
X% = GetPrivateProfileString(Section$, Entry$, DefaultValue$, EntryValue$, EntryValueSize, ini_File$)
If X% = 0 Then
box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
MsgBox box_msg$, 16, "找不到所需字段"
End If
Len_string = Len(Trim$(EntryValue$)) - 1
temp_string = Left$(EntryValue$, Len_string)
rtv_ini_data$ = temp_string
End Function
Private Function upd_ini_data$(ini_File$, ini_select$, ini_entry$, EntryValue$)
' upd_ini_data("XXX.INI","ENVIRONMENT","PATH", "C:\")
upd_ini_data$ = ""
Section$ = ini_select$
Entry$ = ini_entry$
'更新数据
X% = WritePrivateProfileString(Section$, Entry$, EntryValue$, ini_File$)
If X% = 0 Then
box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
MsgBox box_msg$, 16, "读取时出错"
End If
End Function
Private Sub Picture2_Click()
InitializeRes1024
Form6.Show
Form6.moneyp = "10000"
Form6.swp = "0"
Form6.jcp = "26"
Form6.sqp = "50"
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFFFF
If Label2.ForeColor = &HFFFFFF Then
Label2.ForeColor = &HFFFF&
End If
Label3.ForeColor = &HFFFFFF
End Sub
Private Sub Picture3_Click()
End
restoreRes
End Sub
Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFFFF
If Label2.ForeColor = &HFFFF& Then
Label2.ForeColor = &HFFFFFF
End If
Label3.ForeColor = &HFFFF&
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -