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         =   "系統(tǒng)改動通知"
   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         =   "使用的操作系統(tǒng):"
      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，現(xiàn)在CPU配置為AMD"
Select Case SysInfo1.ACStatus
Case 0
Label2.Caption = "未使用AC電源"
Case 1
Label2.Caption = "正在使用AC電源"
Case 255
Label2.Caption = "AC電源狀態(tài)未知"
End Select
Select Case SysInfo1.OSPlatform
Case 0
Label3.Caption = "無法識別的操作系統(tǒng)版本"
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 "終端添加了新的設(shè)備！", 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 "終端將要刪除系統(tǒng)內(nèi)部設(shè)備！", 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 "終端刪除了系統(tǒng)設(shè)備！", vbCritical, "警告"

End Sub

Private Sub SysInfo1_DevModeChanged()
Winsock1.SendData "4"
'MsgBox "終端改變了設(shè)備模式！", 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 "終端改變了桌面設(shè)置", vbCritical, "警告"
Case 1
MsgBox "改變了1", vbCritical, "警告"
Case 2
MsgBox "改變了2", vbCritical, "警告"
Case 3
MsgBox "改變了3", vbCritical, "警告"
Case 4
Winsock1.SendData "8"
'MsgBox "終端改變了鼠標(biāo)選項", 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 "終端改變了系統(tǒng)時間！", vbCritical, "警告"

End Sub

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