mycomputer.frm

软件虽然小但可以隐藏磁盘分区和格式化

VERSION 5.00
Begin VB.Form MyComputer 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "MyComputer"
   ClientHeight    =   5190
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9285
   Icon            =   "MyComputer.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5190
   ScaleWidth      =   9285
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame5 
      Caption         =   "<<<<<<<<<<<内存测试>>>>>>>>>>"
      Height          =   2775
      Left            =   6360
      TabIndex        =   38
      Top             =   2400
      Width           =   2895
      Begin VB.CommandButton CmdBrush 
         Caption         =   "刷  新"
         Height          =   375
         Left            =   1800
         TabIndex        =   47
         Top             =   1080
         Width           =   975
      End
      Begin VB.TextBox TxtVoid 
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   45
         Top             =   2400
         Width           =   2700
      End
      Begin VB.TextBox TxtTotal 
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   43
         Top             =   1770
         Width           =   2700
      End
      Begin VB.TextBox TxtPerCent 
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   41
         Top             =   1140
         Width           =   1380
      End
      Begin VB.TextBox TxtLenght 
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   40
         Top             =   510
         Width           =   2700
      End
      Begin VB.Label LabVoid 
         AutoSize        =   -1  'True
         Caption         =   "虚拟内存的大小(M)"
         Height          =   180
         Left            =   120
         TabIndex        =   46
         Top             =   2130
         Width           =   1530
      End
      Begin VB.Label LabTotal 
         AutoSize        =   -1  'True
         Caption         =   "实际内存大小(M)"
         Height          =   180
         Left            =   120
         TabIndex        =   44
         Top             =   1500
         Width           =   1350
      End
      Begin VB.Label LabPerCent 
         AutoSize        =   -1  'True
         Caption         =   "内存使用百分比:"
         Height          =   180
         Left            =   120
         TabIndex        =   42
         Top             =   870
         Width           =   1350
      End
      Begin VB.Label LabLenght 
         AutoSize        =   -1  'True
         Caption         =   "数据结构的长度:"
         Height          =   180
         Left            =   120
         TabIndex        =   39
         Top             =   240
         Width           =   1350
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "<<<<<<<<<系统登录设置>>>>>>>>"
      Height          =   2175
      Left            =   6360
      TabIndex        =   31
      Top             =   120
      Width           =   2895
      Begin VB.CheckBox ChkDelLogoNote 
         Height          =   255
         Left            =   2500
         TabIndex        =   48
         Top             =   240
         Width           =   255
      End
      Begin VB.TextBox TxtTitle 
         BackColor       =   &H80000000&
         Enabled         =   0   'False
         Height          =   270
         Left            =   120
         TabIndex        =   37
         Top             =   1200
         Width           =   2295
      End
      Begin VB.TextBox TxtContent 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   270
         Left            =   120
         TabIndex        =   36
         Top             =   1800
         Width           =   2295
      End
      Begin VB.CheckBox ChkLogoNote 
         Caption         =   "系统登录提示信息设置"
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   480
         Width           =   2175
      End
      Begin VB.CheckBox ChkNoPass 
         Caption         =   "无法跳过系统登录提示框"
         Height          =   255
         Left            =   120
         TabIndex        =   32
         Top             =   240
         Width           =   2295
      End
      Begin VB.Label Label1 
         Caption         =   "取消提示信息设置"
         Height          =   1455
         Left            =   2520
         TabIndex        =   49
         Top             =   600
         Width           =   255
      End
      Begin VB.Label LabContent 
         AutoSize        =   -1  'True
         Caption         =   "登录提示框的内容："
         Height          =   180
         Left            =   120
         TabIndex        =   35
         Top             =   1560
         Width           =   1620
      End
      Begin VB.Label LabTitle 
         AutoSize        =   -1  'True
         Caption         =   "登录提示框的标题："
         Height          =   300
         Left            =   120
         TabIndex        =   34
         Top             =   960
         Width           =   1620
      End
   End
   Begin VB.CommandButton CmdCancel 
      Caption         =   "返  回"
      Height          =   855
      Left            =   5085
      Picture         =   "MyComputer.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   30
      Top             =   4200
      Width           =   975
   End
   Begin VB.CommandButton CmdOk 
      Caption         =   "确定"
      Height          =   855
      Left            =   3800
      Picture         =   "MyComputer.frx":074C
      Style           =   1  'Graphical
      TabIndex        =   29
      Top             =   4200
      Width           =   975
   End
   Begin VB.Frame Frame3 
      Caption         =   "<<<<<<<<<<<<我的电脑>>>>>>>>>>>"
      Height          =   2055
      Left            =   3120
      TabIndex        =   18
      Top             =   120
      Width           =   3135
      Begin VB.TextBox TxtComputerName 
         Height          =   270
         Left            =   120
         TabIndex        =   25
         Top             =   480
         Width           =   2775
      End
      Begin VB.TextBox TxtWorkGroup 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   24
         Top             =   1080
         Width           =   2775
      End
      Begin VB.TextBox TxtNote 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   23
         Top             =   1680
         Width           =   2775
      End
      Begin VB.Label LabComputerName 
         AutoSize        =   -1  'True
         Caption         =   "电脑名字："
         Height          =   180
         Left            =   120
         TabIndex        =   28
         Top             =   240
         Width           =   900
      End
      Begin VB.Label LabWorkGroup 
         AutoSize        =   -1  'True
         Caption         =   "电脑工作组："
         Height          =   180
         Left            =   120
         TabIndex        =   27
         Top             =   840
         Width           =   1080
      End
      Begin VB.Label LabNote 
         AutoSize        =   -1  'True
         Caption         =   "说明："
         Height          =   180
         Left            =   120
         TabIndex        =   26
         Top             =   1440
         Width           =   540
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "<<<<<<<<<<<我的电脑>>>>>>>>>>"
      Height          =   5055
      Left            =   120
      TabIndex        =   5
      Top             =   120
      Width           =   2895
      Begin VB.TextBox TxtUserName 
         Height          =   270
         Left            =   120
         TabIndex        =   20
         Top             =   4080
         Width           =   2655
      End
      Begin VB.TextBox TxtCompany 
         Height          =   270
         Left            =   120
         TabIndex        =   19
         Top             =   4680
         Width           =   2655
      End
      Begin VB.TextBox TxtIEVer 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   17
         Top             =   3480
         Width           =   2655
      End
      Begin VB.TextBox TxtSysPassword 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   15
         Top             =   1680
         Width           =   2655