📄 fcatch.frm
字号:
VERSION 5.00
Begin VB.Form fCatch
BorderStyle = 1 'Fixed Single
Caption = "语文／抓作弊"
ClientHeight = 4800
ClientLeft = 45
ClientTop = 330
ClientWidth = 6000
ControlBox = 0 'False
Icon = "fCatch.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 320
ScaleMode = 3 'Pixel
ScaleWidth = 400
StartUpPosition = 3 'Windows Default
Begin VB.Timer tmr
Enabled = 0 'False
Interval = 300
Left = 120
Top = 4080
End
Begin VB.PictureBox picTemp
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Height = 1200
Left = 3840
ScaleHeight = 80
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 8
Top = 1920
Visible = 0 'False
Width = 1200
End
Begin VB.CommandButton cmd
Caption = "14喂，游戏已经开始了哟！"
Default = -1 'True
Height = 375
Index = 0
Left = 1080
TabIndex = 6
Top = 4200
Width = 3855
End
Begin VB.CommandButton cmd
Caption = "22我已经坚持不住了。"
Height = 375
Index = 1
Left = 1080
TabIndex = 7
Top = 4200
Visible = 0 'False
Width = 3855
End
Begin VB.PictureBox picSquare
BackColor = &H00C0C0C0&
Height = 3675
Left = 570
ScaleHeight = 241
ScaleMode = 3 'Pixel
ScaleWidth = 321
TabIndex = 10
Top = 120
Width = 4875
Begin VB.CommandButton cmdHlp
Caption = "帮助"
Height = 1800
Left = 1560
Style = 1 'Graphical
TabIndex = 11
Top = 960
Width = 1800
End
End
Begin VB.Label lblFun
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "又要考试呀！"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 9
Top = 4560
Width = 6015
End
Begin VB.Label lblNO
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "0"
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Index = 1
Left = 1920
TabIndex = 5
Top = 3840
Width = 3495
End
Begin VB.Label lblNO
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "1"
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Index = 0
Left = 960
TabIndex = 4
Top = 3840
Width = 375
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "得分"
ForeColor = &H00800000&
Height = 180
Index = 3
Left = 1560
TabIndex = 3
Top = 3840
Width = 360
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Ｌｖ"
ForeColor = &H00800000&
Height = 180
Index = 2
Left = 600
TabIndex = 2
Top = 3840
Width = 360
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "点击"
ForeColor = &H00800000&
Height = 180
Index = 1
Left = 5520
TabIndex = 1
Top = 3840
Width = 360
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间"
ForeColor = &H00800000&
Height = 180
Index = 0
Left = 120
TabIndex = 0
Top = 3840
Width = 360
End
Begin VB.Shape shpClick
BackColor = &H0000FF00&
BackStyle = 1 'Opaque
BorderColor = &H00808080&
Height = 3660
Left = 5520
Top = 120
Width = 375
End
Begin VB.Shape shpTime
BackColor = &H0000FF00&
BackStyle = 1 'Opaque
BorderColor = &H00808080&
Height = 3660
Left = 120
Top = 120
Width = 375
End
End
Attribute VB_Name = "fCatch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gameLevel As Integer
Dim CDT As Integer
Dim NOToWin, LeftTime As Integer
Dim EscNO, WrgNO As Integer
Dim gmMark(16 To 23) As Integer
Dim gmSquare(1 To 8, 1 To 6) As Integer
Private Sub cmd_Click(Index As Integer)
Select Case Index
Case 0
cmd(0).Visible = False
cmdHlp.Visible = False
tmr.Enabled = True
cmd(1).Visible = True
Case 1
tmr.Enabled = False
Real = MsgBox("如此一来，您此局的努力便白费了呀！" & RL & "您考虑清楚了吗？", vbYesNo + vbDefaultButton2 + vbQuestion, "RoE")
If Real = 6 Then Call DoSummary Else tmr.Enabled = True
End Select
End Sub
Private Sub cmdHlp_Click()
Me.Enabled = False
fHelp.Show
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 200
tmr.Interval = gOption.gmSpeed
picTemp.Picture = LoadPicture(App.Path & "\pic\cheatb.bmp")
cmdHlp.Picture = picTemp.Picture
Randomize
For i = 1 To 8
For j = 1 To 6
X = Int(Rnd * 2)
gmSquare(i, j) = (X = 1)
Next
Next
gameLevel = 0
Call JustStart
Call RoomDraw
For i = 16 To 23
gmMark(i) = 0
Next
gmMark(21) = 1
Call ShowMark
End Sub
Public Sub RoomDraw()
hs = picTemp.hdc
hd = picSquare.hdc
Randomize
For i = 1 To 8
For j = 1 To 6
If gmSquare(i, j) < 0 Then
m = Int(Rnd * 2) * 40
If i = 1 Then m = 0
If i = 8 Then m = 40
X = BitBlt(hd, i * 40 - 40, j * 40 - 40, 40, 40, hs, m, 40, SRCCOPY)
Else
m = Int(Int(Rnd * 4) / 3) * 40
X = BitBlt(hd, i * 40 - 40, j * 40 - 40, 40, 40, hs, m, 0, SRCCOPY)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -