sysinfo.frm

查询电脑的信息,如所使用的电源操作系统类型主机名等

VERSION 5.00
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "sysinfo.ocx"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form Form1 
   Caption         =   "系统改动通知"
   ClientHeight    =   1725
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4845
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1725
   ScaleWidth      =   4845
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   2415
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   4080
      Top             =   960
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin SysInfoLib.SysInfo SysInfo1 
      Left            =   3360
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Label Label3 
      Height          =   255
      Left            =   1920
      TabIndex        =   3
      Top             =   720
      Width           =   2055
   End
   Begin VB.Label Label1 
      Caption         =   "使用的操作系统:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   720
      Width           =   1455
   End
   Begin VB.Label Label2 
      Height          =   255
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "使用电源状况:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim sChange As String
sChange = "joe401LT-3F-098库中CPU配置为IntelCeleron2.00G，现在CPU配置为AMD"
Select Case SysInfo1.ACStatus
Case 0
Label2.Caption = "未使用AC电源"
Case 1
Label2.Caption = "正在使用AC电源"
Case 255
Label2.Caption = "AC电源状态未知"
End Select
Select Case SysInfo1.OSPlatform
Case 0
Label3.Caption = "无法识别的操作系统版本"
Case 1
Label3.Caption = "Win95版本" & CStr(SysInfo1.OSVersion)
Case 2
Label3.Caption = "WinNT版本" & CStr(SysInfo1.OSVersion)
End Select
Winsock1.RemoteHost = "10.10.28.58"
Winsock1.RemotePort = 7077
Winsock1.Connect

Text1.Text = Mid(sChange, 7, 9)
End Sub

Private Sub SysInfo1_ConfigChanged(ByVal OldConfigNum As Long, ByVal NewConfigNum As Long)
If OldConfigNum <> NewConfigNum Then
Winsock1.SendData "3"
'MsgBox "终端修改了硬件配置文件！", vbCritical, "警告"
End If
End Sub

Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long)
Winsock1.SendData "1"
'MsgBox "终端添加了新的设备！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_DeviceQueryRemove(ByVal DeviceType As Long, ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long, Cancel As Boolean)

MsgBox "终端将要删除系统内部设备！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_DeviceRemoveComplete(ByVal DeviceType As Long, ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long)
Winsock1.SendData "2"
MsgBox "终端删除了系统设备！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_DevModeChanged()
Winsock1.SendData "4"
'MsgBox "终端改变了设备模式！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_DisplayChanged()
Winsock1.SendData "5"
'MsgBox "终端改变了屏幕显示模式!", vbCritical, "警告"
End Sub

Private Sub SysInfo1_SettingChanged(ByVal Item As Integer)
Select Case Item
Case 0
Winsock1.SendData "9"
'MsgBox "终端改变了桌面设置", vbCritical, "警告"
Case 1
MsgBox "改变了1", vbCritical, "警告"
Case 2
MsgBox "改变了2", vbCritical, "警告"
Case 3
MsgBox "改变了3", vbCritical, "警告"
Case 4
Winsock1.SendData "8"
'MsgBox "终端改变了鼠标选项", vbCritical, "警告"
Case 5
MsgBox "改变了5", vbCritical, "警告"
Case 6
MsgBox "改变了6", vbCritical, "警告"
Case 7
MsgBox "改变了7", vbCritical, "警告"
Case 8
MsgBox "改变了8", vbCritical, "警告"
Case 9
MsgBox "改变了9", vbCritical, "警告"
Case 10
MsgBox "改变了10", vbCritical, "警告"
Case Else
MsgBox "改变了其他选项", vbCritical, "警告"
End Select
End Sub

Private Sub SysInfo1_SysColorsChanged()
Winsock1.SendData "6"
'MsgBox "终端改变了屏幕显示颜色！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_TimeChanged()
Winsock1.SendData "7"
'MsgBox "终端改变了系统时间！", vbCritical, "警告"

End Sub

Private Sub Winsock1_Close()
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
End Sub