📄 mycomputer.frm

📁 软件虽然小但可以隐藏磁盘分区和格式化
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "NoDriveTypeAutoRun", 0, 3, 149, 4)
  Ss = RegCloseKey(id)
End If
'无法跳过系统登录提示框
If ChkNoPass.Value = 1 Then
  Ss = RegOpenKeyEx(&H80000002, "NetWork", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Logon", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "MustBeValidated", 0, 4, 1, 4)
  Ss = RegCloseKey(id)
Else
  Ss = RegOpenKeyEx(&H80000002, "NetWork", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Logon", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "MustBeValidated", 0, 4, 0, 4)
  Ss = RegCloseKey(id)
End If
'提示框内容
If ChkLogoNote.Value = 1 Then
  Ss = RegOpenKeyEx(&H80000002, "SoftWare", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "CurrentVersion", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Winlogon", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "LegalNoticeCaption", 0, 1, ByVal TxtTitle.Text, 50)
  Ss = RegSetValueEx(id, "LegalNoticeText", 0, 1, ByVal TxtContent.Text, 50)
  Ss = RegCloseKey(id)
End If
If ChkDelLogoNote.Value = 1 Then
  Ss = RegOpenKeyEx(&H80000002, "SoftWare", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "CurrentVersion", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Winlogon", 0, KEY_ALL_ACCESS, id)
  Ss = RegDeleteValue(id, "LegalNoticeCaption")
  Ss = RegDeleteValue(id, "LegalNoticeText")
  Ss = RegCloseKey(id)
End If
'用户名
  Ss = RegOpenKeyEx(&H80000001, "Software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "MS Setup (ACME)", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "User Info", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "Defname", 0, 1, ByVal TxtUserName.Text, 60)
  Ss = RegCloseKey(id)
'用户单位
  Ss = RegOpenKeyEx(&H80000001, "Software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "MS Setup (ACME)", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "User Info", 0, KEY_ALL_ACCESS, id)
  Ss = RegSetValueEx(id, "Defcompany", 0, 1, ByVal TxtCompany.Text, 60)
  Ss = RegCloseKey(id)
'电脑名字
Ss = SetComputerName(TxtComputerName.Text)
'========================================================
MsgBox "您已设置成功", vbSystemModal, "MyComputer"
Unload Me
End Sub

Private Sub Command1_Click()
Ss = SetComputerName(TxtComputerName.Text)
End Sub


Private Sub Form_Load()
'复选框原值设置
'我的电脑文件菜单
Dim NumFileMenu As Long
  Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "NoFileMenu", 0, 4, NumFileMenu, 4)
  Ss = RegCloseKey(id)
  If NumFileMenu = 1 Then
    NoFile.Value = 1
  Else
    NoFile.Value = 0
  End If
'直接显示文件属性
Dim NumShowAttrib As Long
  Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "advanced", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "ShowAttribCol", 0, 4, NumShowAttrib, 4)
  Ss = RegCloseKey(id)
  If NumShowAttrib = 1 Then
    ShowAttrib.Value = 1
  Else
    ShowAttrib.Value = 0
  End If
'系统提示框跳过
Dim NumMustBeValidated As Long
  Ss = RegOpenKeyEx(&H80000002, "NetWork", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Logon", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "MustBeValidated", 0, 4, NumMustBeValidated, 4)
  Ss = RegCloseKey(id)
  If NumMustBeValidated = 1 Then
    ChkNoPass.Value = 1
  Else
    ChkNoPass.Value = 0
  End If
'我的电脑
'产品名称
Dim SysName As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "ProductName", 0, 1, ByVal SysName, 60)
  Ss = RegCloseKey(id)
  TxtSysName.Text = SysName
  If TxtSysName.Text = "" Then
    Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
    Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
    Ss = RegOpenKeyEx(id, "windows NT", 0, KEY_ALL_ACCESS, id)
    Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
    Ss = RegQueryValueEx(id, "ProductName", 0, 1, ByVal SysName, 60)
    Ss = RegCloseKey(id)
  End If
  TxtSysName.Text = SysName
'产品号码
Dim SysNumber As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Productid", 0, 1, ByVal SysNumber, 60)
  Ss = RegCloseKey(id)
  TxtSysNumber.Text = SysNumber
  If TxtSysNumber.Text = "" Then
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows nt", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Productid", 0, 1, ByVal SysNumber, 60)
  Ss = RegCloseKey(id)
  End If
  TxtSysNumber.Text = SysNumber
'产品密码
Dim SysPassword As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Productkey", 0, 1, ByVal SysPassword, 60)
  Ss = RegCloseKey(id)
  TxtSysPassword.Text = SysPassword
  If TxtSysPassword.Text = "" Then
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows nt", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Productkey", 0, 1, ByVal SysPassword, 60)
  Ss = RegCloseKey(id)
  End If
  TxtSysPassword.Text = SysPassword
'版本名称
Dim VersionName As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Version", 0, 1, ByVal VersionName, 60)
  Ss = RegCloseKey(id)
  TxtVerName.Text = VersionName
  If TxtVerName.Text = "" Then
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows NT", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "CurrentVersion", 0, 1, ByVal VersionName, 60)
  Ss = RegCloseKey(id)
  End If
  TxtVerName.Text = VersionName
'版本号
Dim VersionNumber As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "VersionNumber", 0, 1, ByVal VersionNumber, 60)
  Ss = RegCloseKey(id)
  TxtVerNumber.Text = VersionNumber
  If TxtVerNumber.Text = "" Then
    Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows nt", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "CurrentBuildNumber", 0, 1, ByVal VersionNumber, 60)
  Ss = RegCloseKey(id)
  End If
  TxtVerNumber.Text = VersionNumber
'IE版本号
Dim IEVer As String * 50
  Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Plus! VersionNumber", 0, 1, ByVal IEVer, 60)
  Ss = RegCloseKey(id)
  TxtIEVer.Text = IEVer
  If TxtIEVer.Text = "" Then
    Ss = RegOpenKeyEx(&H80000002, "software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "windows nt", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Plus! VersionNumber", 0, 1, ByVal IEVer, 60)
  Ss = RegCloseKey(id)
  End If
  TxtIEVer.Text = IEVer
'用户名
Dim UserName As String * 50
  Ss = RegOpenKeyEx(&H80000001, "Software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "MS Setup (ACME)", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "User Info", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Defname", 0, 1, ByVal UserName, 60)
  Ss = RegCloseKey(id)
  TxtUserName.Text = UserName
'用户单位
Dim UserCompany As String * 50
  Ss = RegOpenKeyEx(&H80000001, "Software", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Microsoft", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "MS Setup (ACME)", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "User Info", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Defcompany", 0, 1, ByVal UserCompany, 60)
  Ss = RegCloseKey(id)
  TxtCompany.Text = UserCompany
'电脑名字
  Dim ComputerName As String * 50
  Ss = RegOpenKeyEx(&H80000002, "system", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "CurrentControlSet", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Services", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "vxd", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "VNETSUP", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "ComputerName", 0, 1, ByVal ComputerName, 60)
  Ss = RegCloseKey(id)
  TxtComputerName.Text = ComputerName
  If TxtComputerName.Text = "" Then
  Ss = RegOpenKeyEx(&H80000002, "system", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "ControlSet001", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Control", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "ComputerName", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "ComputerName", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "ComputerName", 0, 1, ByVal ComputerName, 60)
  Ss = RegCloseKey(id)
  End If
  TxtComputerName.Text = ComputerName
'(1)========================================================
  'Dim ComputerName As String * 50
  'SS = GetComputerName(ComputerName, 50)
  'TxtComputerName.Text = ComputerName
'end(1)==========================================================
'电脑工作组
Dim ComputerWorkGroup As String * 50
  Ss = RegOpenKeyEx(&H80000002, "system", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "CurrentControlSet", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Services", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "vxd", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "VNETSUP", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "WorkGroup", 0, 1, ByVal ComputerWorkGroup, 60)
  Ss = RegCloseKey(id)
  TxtWorkGroup.Text = ComputerWorkGroup
'说明
Dim ComputerNote As String * 50
  Ss = RegOpenKeyEx(&H80000002, "system", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "CurrentControlSet", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "Services", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "vxd", 0, KEY_ALL_ACCESS, id)
  Ss = RegOpenKeyEx(id, "VNETSUP", 0, KEY_ALL_ACCESS, id)
  Ss = RegQueryValueEx(id, "Comment", 0, 1, ByVal ComputerNote, 60)
  Ss = RegCloseKey(id)
  TxtNote.Text = ComputerNote
'内存测试
Dim m As MEMORYSTATUS
m.dwLength = Len(m)
GlobalMemoryStatus m
TxtLenght = Str(m.dwLength)
TxtPerCent = Str(m.dwMemoryLoad)
TxtTotal = Str(m.dwTotalPhys) / 1024 / 1024
TxtVoid = Str(m.dwTotalVirtual) / 1024 / 1024
End Sub
上一页 1 23
⌨️ 快捷键说明

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