📄 神泣.frm
字号:
VERSION 5.00
Begin VB.Form Form2
Caption = "神泣最新挂机外挂十三专版"
ClientHeight = 6120
ClientLeft = 60
ClientTop = 345
ClientWidth = 7545
Icon = "神泣.frx":0000
LinkTopic = "Form2"
ScaleHeight = 6120
ScaleWidth = 7545
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Height = 5775
Left = 3600
Picture = "神泣.frx":014A
ScaleHeight = 5715
ScaleWidth = 3795
TabIndex = 37
Top = 240
Width = 3855
End
Begin VB.Frame Frame4
Caption = "游戏信息"
Height = 855
Left = 120
TabIndex = 34
Top = 5160
Width = 3375
Begin VB.CommandButton Command1
Caption = "设置"
Height = 375
Left = 120
TabIndex = 35
Top = 360
Width = 855
End
Begin VB.Label Label21
Caption = "支持更新11月最新版 http://shaiya.gtgame.com.cn"
Height = 495
Left = 1080
TabIndex = 36
Top = 240
Width = 2175
End
End
Begin VB.Frame Frame3
Caption = "自动捡物"
Height = 1095
Left = 120
TabIndex = 24
Top = 3960
Width = 3375
Begin VB.TextBox Text4
Height = 270
Left = 1320
TabIndex = 28
Text = "1"
Top = 240
Width = 255
End
Begin VB.TextBox Text5
Height = 270
Left = 2040
TabIndex = 27
Text = "20"
Top = 240
Width = 255
End
Begin VB.CheckBox Check6
Caption = "Check6"
Height = 255
Left = 2760
TabIndex = 26
Top = 240
Width = 255
End
Begin VB.TextBox Text6
Height = 270
Left = 1800
TabIndex = 25
Text = "200"
Top = 600
Width = 495
End
Begin VB.Label Label16
Caption = "开启自动捡物"
Height = 255
Left = 120
TabIndex = 33
Top = 240
Width = 1095
End
Begin VB.Label Label17
Caption = "秒"
Height = 255
Left = 1680
TabIndex = 32
Top = 240
Width = 255
End
Begin VB.Label Label18
Caption = "次"
Height = 255
Left = 2400
TabIndex = 31
Top = 240
Width = 255
End
Begin VB.Label Label19
Caption = "捡取物品延迟时间"
Height = 255
Left = 120
TabIndex = 30
Top = 600
Width = 1455
End
Begin VB.Label Label20
Caption = "秒"
Height = 255
Left = 2520
TabIndex = 29
Top = 600
Width = 255
End
End
Begin VB.Frame Frame1
Caption = "人物信息"
Height = 3615
Left = 120
TabIndex = 0
Top = 120
Width = 3375
Begin VB.CheckBox Check3
Caption = "Check5"
Height = 255
Left = 2880
TabIndex = 23
Top = 2160
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 180
Left = 1320
TabIndex = 14
Top = 960
Width = 255
End
Begin VB.CheckBox Check2
Caption = "Check1"
Height = 180
Left = 960
TabIndex = 13
Top = 1320
Width = 255
End
Begin VB.TextBox Text1
Height = 270
Left = 2640
TabIndex = 12
Text = "5000"
Top = 1320
Width = 495
End
Begin VB.Frame Frame2
Caption = "技能信息"
Height = 1815
Left = 0
TabIndex = 1
Top = 1800
Width = 3375
Begin VB.TextBox Text3
Height = 270
Left = 1080
TabIndex = 38
Text = "5"
Top = 720
Width = 375
End
Begin VB.TextBox Text2
Height = 270
Left = 1080
TabIndex = 4
Text = "500"
Top = 345
Width = 375
End
Begin VB.CheckBox Check4
Caption = "Check4"
Height = 255
Left = 2880
TabIndex = 3
Top = 720
Width = 255
End
Begin VB.CheckBox Check5
Caption = "Check9"
Height = 255
Left = 2400
TabIndex = 2
Top = 1320
Width = 255
End
Begin VB.Label Label9
Caption = "技能时间"
Height = 255
Left = 240
TabIndex = 11
Top = 360
Width = 855
End
Begin VB.Label Label10
Caption = "秒"
Height = 255
Left = 1560
TabIndex = 10
Top = 360
Width = 255
End
Begin VB.Label Label11
Caption = "打坐反击"
Height = 255
Left = 2040
TabIndex = 9
Top = 360
Width = 735
End
Begin VB.Label Label12
Caption = "寻怪时间"
Height = 255
Left = 240
TabIndex = 8
Top = 720
Width = 735
End
Begin VB.Label Label13
Caption = "秒"
Height = 255
Left = 1560
TabIndex = 7
Top = 720
Width = 255
End
Begin VB.Label Label14
Caption = "发呆保护"
Height = 255
Left = 2040
TabIndex = 6
Top = 720
Width = 735
End
Begin VB.Label Label15
Caption = "真气值过低使用普通攻击"
Height = 255
Left = 240
TabIndex = 5
Top = 1320
Width = 2175
End
End
Begin VB.Label Label1
Caption = "角色："
Height = 255
Left = 240
TabIndex = 22
Top = 240
Width = 615
End
Begin VB.Label Label2
Caption = "级别："
Height = 255
Left = 2160
TabIndex = 21
Top = 240
Width = 615
End
Begin VB.Label Label3
Caption = "生命： 0/0"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 20
Top = 600
Width = 975
End
Begin VB.Label Label4
Caption = "精神： 0/0"
ForeColor = &H00FF0000&
Height = 255
Left = 2160
TabIndex = 19
Top = 600
Width = 1095
End
Begin VB.Label Label5
Caption = "开启自动打怪"
Height = 255
Left = 120
TabIndex = 18
Top = 960
Width = 1095
End
Begin VB.Label Label6
Caption = "状态：没有开启"
Height = 255
Left = 1800
TabIndex = 17
Top = 960
Width = 1455
End
Begin VB.Label Label7
Caption = "普通攻击"
Height = 255
Left = 120
TabIndex = 16
Top = 1320
Width = 735
End
Begin VB.Label Label8
Caption = "使用药品时间"
Height = 255
Left = 1440
TabIndex = 15
Top = 1320
Width = 1095
End
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 GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub FormEffect(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect '获得窗体四角的坐标
'计算窗体的高与宽
formWidth = myRect.Right - myRect.Left
formHeight = myRect.Bottom - myRect.Top
'得到屏幕的设备描述表句柄
TheScreen = GetDC(0)
'创建实色画刷
Brush = CreateSolidBrush(f.BackColor)
'将创建的画刷选入设备描述表中
SelectObject TheScreen, Brush
'从小到大依次绘制矩形，直到与窗体大小相同为止
For i = 1 To Movement
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
'释放
X = ReleaseDC(0, TheScreen)
'从内存中删除创建的画刷
DeleteObject (Brush)
End Sub
Public Sub ImplodeForm(f As Form, Direction As Integer, Movement As Integer, ModalState As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = Movement To 1 Step -1
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
X = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub
Private Sub Command1_Click()
jldfklasdfkal = MsgBox("保存成功", vbInformation, "成功")
End Sub
Private Sub Form_Load()
FormEffect Me, 3000
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -