📄 client.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "Mswinsck.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "Richtx32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Client
AutoRedraw = -1 'True
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Caption = "EVIL CHAT VER.(X)"
ClientHeight = 8835
ClientLeft = 0
ClientTop = 0
ClientWidth = 10500
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Client.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 589
ScaleMode = 3 'Pixel
ScaleWidth = 700
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MynetChat.MyButton cmdDeath
Height = 480
Left = 9285
TabIndex = 67
Top = 8160
Width = 1065
_ExtentX = 1879
_ExtentY = 847
SPN = "MyButtonDefSkin"
Text = "中止 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "Client.frx":1E72
End
Begin MynetChat.chameleonButton cmdNick
Height = 330
Left = 330
TabIndex = 66
Top = 7785
Width = 645
_ExtentX = 1138
_ExtentY = 582
BTYPE = 3
TX = "踢出 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":328C
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MSComDlg.CommonDialog cd
Left = 3000
Top = 5520
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSWinsockLib.Winsock udpNeutralNetworkListen
Left = 960
Top = 5880
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock udpNeutralNetworkSend
Left = 1560
Top = 5880
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock udpTopic
Left = 4200
Top = 4560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MynetChat.chameleonButton chameleonButton1
Height = 375
Left = 4920
TabIndex = 62
ToolTipText = "刷新信息."
Top = 7740
Width = 435
_ExtentX = 767
_ExtentY = 661
BTYPE = 3
TX = "..."
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":32A8
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MynetChat.chameleonButton cmdUpdate
Height = 375
Left = 2160
TabIndex = 61
ToolTipText = "获取更新"
Top = 7740
Width = 2700
_ExtentX = 4763
_ExtentY = 661
BTYPE = 3
TX = "单击更新 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":32C4
PICN = "Client.frx":32E0
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin VB.PictureBox Picture1
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Height = 255
Left = 15
Picture = "Client.frx":33CB
ScaleHeight = 255
ScaleWidth = 10440
TabIndex = 59
Top = 450
Width = 10440
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "关于 ?"
Height = 210
Left = 9720
TabIndex = 65
ToolTipText = "关于我的网络聊天室"
Top = 0
Width = 615
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "我的网络聊天室"
Height = 255
Left = 120
TabIndex = 60
ToolTipText = "我的网络聊天室"
Top = 0
Width = 1515
End
End
Begin VB.PictureBox windowborder
BackColor = &H00EBF5F4&
BorderStyle = 0 'None
Height = 420
Left = 0
Picture = "Client.frx":CF05
ScaleHeight = 420
ScaleWidth = 11535
TabIndex = 53
Top = 0
Width = 11535
Begin MynetChat.chameleonButton cmdMinimize
Height = 255
Left = 9480
TabIndex = 54
ToolTipText = "最小化到托盘"
Top = 120
Width = 255
_ExtentX = 450
_ExtentY = 450
BTYPE = 3
TX = "chameleonButton1"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":1B4F7
PICN = "Client.frx":1B513
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = -1 'True
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MynetChat.chameleonButton chameleonButton4
Height = 255
Left = 9780
TabIndex = 55
Top = 120
Width = 255
_ExtentX = 450
_ExtentY = 450
BTYPE = 3
TX = "chameleonButton1"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":1B9D9
PICN = "Client.frx":1B9F5
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = -1 'True
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin MynetChat.chameleonButton cmdClose
Height = 255
Left = 10080
TabIndex = 56
ToolTipText = "关闭"
Top = 120
Width = 255
_ExtentX = 450
_ExtentY = 450
BTYPE = 3
TX = "chameleonButton1"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "Client.frx":1BEBB
PICN = "Client.frx":1BED7
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = -1 'True
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "我的网络聊天室. Ver x-01 Admin: Waqas / Author: Evilgenius"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 840
TabIndex = 57
Top = 120
Width = 6525
End
Begin VB.Image Image3
Height = 480
Left = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -