📄 frmmain.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "ICQ Control Center"
ClientHeight = 6420
ClientLeft = 150
ClientTop = 435
ClientWidth = 10830
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6420
ScaleWidth = 10830
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtURL
Height = 345
Left = 7095
TabIndex = 41
Text = "www.ic-crypt.org.uk"
Top = 5940
Width = 3585
End
Begin VB.CommandButton cmdURL
Caption = "SEND &URL"
Height = 315
Left = 7095
TabIndex = 40
Top = 4950
Width = 1305
End
Begin VB.TextBox txtURLUIN
Height = 285
Left = 9570
MaxLength = 9
TabIndex = 38
Text = "14996057"
Top = 4980
Width = 1095
End
Begin VB.TextBox textPagerFrom
Height = 285
Left = 9540
TabIndex = 36
Text = "me@me.com"
Top = 675
Width = 1095
End
Begin VB.TextBox FromName
Height = 285
Left = 9540
MaxLength = 9
TabIndex = 35
Text = "anonymous"
Top = 225
Width = 1095
End
Begin VB.TextBox TextUIN
Height = 285
Left = 9540
MaxLength = 9
TabIndex = 33
Text = "14996057"
Top = 1110
Width = 1095
End
Begin VB.TextBox TextSubject
Height = 315
Left = 7110
MaxLength = 30
TabIndex = 28
Top = 1830
Width = 3540
End
Begin VB.CommandButton BtnSend
Caption = "&Send www pager"
Height = 315
Left = 9015
TabIndex = 27
Top = 3750
Width = 1680
End
Begin VB.TextBox TextMessage
Height = 930
Left = 7125
MaxLength = 450
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 26
Top = 2520
Width = 3525
End
Begin VB.CommandButton BtnExit
Caption = "&Exit"
Height = 375
Left = 10965
TabIndex = 25
Top = 4035
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "Advanced Mode - >>"
Height = 315
Left = 4995
TabIndex = 23
Top = 2940
Width = 1830
End
Begin VB.Frame Frame3
Caption = "Owner Details"
Height = 2580
Left = 165
TabIndex = 16
Top = 105
Width = 1830
Begin VB.TextBox txtOwnerIP
Height = 315
Left = 165
TabIndex = 22
Top = 2040
Width = 1305
End
Begin VB.TextBox txtOwnerUIN
Height = 315
Left = 180
TabIndex = 20
Top = 1320
Width = 1305
End
Begin VB.TextBox txtOwnerNickname
Height = 315
Left = 195
TabIndex = 18
Top = 600
Width = 1305
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Owner IP ADDY"
Height = 195
Left = 195
TabIndex = 21
Top = 1785
Width = 1155
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Owner UIN NO"
Height = 195
Left = 210
TabIndex = 19
Top = 1065
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Owner Nickname"
Height = 195
Left = 225
TabIndex = 17
Top = 345
Width = 1230
End
End
Begin VB.Frame Frame2
Caption = "Send Message"
Height = 1605
Left = 2325
TabIndex = 11
Top = 1110
Width = 4500
Begin VB.TextBox txtUIN
Height = 315
Left = 3315
TabIndex = 14
Top = 1065
Width = 1065
End
Begin VB.TextBox txtMessage
Height = 1050
Left = 210
MultiLine = -1 'True
TabIndex = 13
Top = 330
Width = 2925
End
Begin VB.CommandButton Command1
Caption = "Send"
Height = 315
Left = 3315
TabIndex = 12
Top = 345
Width = 1065
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "TO UIN :"
Height = 195
Left = 3330
TabIndex = 15
Top = 780
Width = 645
End
End
Begin VB.Frame Frame1
Caption = "Last Recieved File"
Height = 825
Left = 2355
TabIndex = 9
Top = 120
Width = 4470
Begin VB.TextBox Text1
Height = 315
Left = 195
TabIndex = 10
Top = 315
Width = 4065
End
End
Begin VB.CommandButton cmdAbout
Caption = "ABOUT"
Height = 315
Left = 4995
TabIndex = 8
Top = 5970
Width = 1830
End
Begin VB.CommandButton cmdStatus
Caption = "Status - ONLINE"
Height = 315
Left = 285
TabIndex = 7
Top = 5955
Width = 1830
End
Begin VB.ListBox List3
Height = 2010
Left = 4965
TabIndex = 5
Top = 3765
Width = 1830
End
Begin VB.CommandButton cmdExit
Caption = "EXIT"
Height = 315
Left = 2550
TabIndex = 2
Top = 5955
Width = 1845
End
Begin VB.ListBox List2
Height = 2010
Left = 2535
TabIndex = 1
Top = 3735
Width = 1830
End
Begin VB.ListBox List1
Height = 2010
Left = 240
TabIndex = 0
Top = 3735
Width = 1830
End
Begin MSWinsockLib.Winsock SockPager
Left = 8280
Top = 1380
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "Send a web address"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7095
TabIndex = 43
Top = 4290
Width = 3120
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "URL TO SEND"
Height = 195
Left = 7095
TabIndex = 42
Top = 5535
Width = 1095
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "TO ICQ UIN:"
Height = 195
Left = 8520
TabIndex = 39
Top = 5040
Width = 915
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "Pager From e-mail address :"
Height = 195
Left = 7110
TabIndex = 37
Top = 735
Width = 1950
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "Send pager to ICQ UIN:"
Height = 195
Left = 7110
TabIndex = 34
Top = 1155
Width = 1695
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "Subject:"
Height = 195
Left = 7095
TabIndex = 32
Top = 1530
Width = 600
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Message:"
Height = 195
Left = 7110
TabIndex = 31
Top = 2280
Width = 690
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = " From Name"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6990
TabIndex = 30
Top = 165
Width = 1905
End
Begin VB.Label LabelStatus
BorderStyle = 1 'Fixed Single
Height = 330
Left = 7125
TabIndex = 29
Top = 3735
Width = 1650
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Advanced mode enables use of wwwpager and much more :)"
Height = 195
Left = 225
TabIndex = 24
Top = 2955
Width = 4335
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Contact UIN Number"
Height = 195
Left = 2535
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -