www.pudn.com > BiosNtSuiteBin.rar > Form1.frm

VERSION 5.00 
Begin VB.Form Form1  
   Caption         =   "Example for Basic " 
   ClientHeight    =   5055 
   ClientLeft      =   60 
   ClientTop       =   285 
   ClientWidth     =   4590 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   5055 
   ScaleWidth      =   4590 
   StartUpPosition =   3  'Windows Default 
   Begin VB.TextBox Text8  
      Height          =   615 
      Left            =   480 
      TabIndex        =   17 
      Top             =   2760 
      Width           =   3975 
   End 
   Begin VB.TextBox Text7  
      Height          =   285 
      Left            =   960 
      TabIndex        =   15 
      Top             =   1848 
      Width           =   3495 
   End 
   Begin VB.TextBox Text6  
      Height          =   285 
      Left            =   960 
      TabIndex        =   13 
      Top             =   1416 
      Width           =   3495 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "显示" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      Left            =   1560 
      TabIndex        =   5 
      Top             =   4320 
      Width           =   2055 
   End 
   Begin VB.TextBox Text5  
      Height          =   645 
      Left            =   480 
      MultiLine       =   -1  'True 
      TabIndex        =   1 
      Top             =   3480 
      Width           =   3975 
   End 
   Begin VB.TextBox Text4  
      Height          =   285 
      Left            =   480 
      TabIndex        =   0 
      Top             =   2400 
      Width           =   3975 
   End 
   Begin VB.TextBox Text3  
      Height          =   285 
      Left            =   960 
      TabIndex        =   4 
      Top             =   120 
      Width           =   3495 
   End 
   Begin VB.TextBox Text2  
      Height          =   285 
      Left            =   960 
      TabIndex        =   3 
      Top             =   552 
      Width           =   3495 
   End 
   Begin VB.TextBox Text1  
      Height          =   285 
      Left            =   960 
      TabIndex        =   2 
      Top             =   984 
      Width           =   3495 
   End 
   Begin VB.Label Label9  
      Caption         =   "Key" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   16 
      Top             =   2760 
      Width           =   375 
   End 
   Begin VB.Label Label8  
      Caption         =   "Chipset ID" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   14 
      Top             =   1845 
      Width           =   735 
   End 
   Begin VB.Label Label7  
      Caption         =   "Bios Date" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   12 
      Top             =   1410 
      Width           =   735 
   End 
   Begin VB.Label Label6  
      Caption         =   "贺玉琳软件开发工作室 版权所有(C) 2000 - 2004" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H8000000D& 
      Height          =   255 
      Left            =   120 
      TabIndex        =   11 
      Top             =   4800 
      Width           =   4815 
   End 
   Begin VB.Label Label5  
      Caption         =   "SN  :" 
      Height          =   375 
      Left            =   0 
      TabIndex        =   10 
      Top             =   3480 
      Width           =   375 
   End 
   Begin VB.Label Label4  
      Caption         =   "Name :" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   9 
      Top             =   2400 
      Width           =   615 
   End 
   Begin VB.Label Label3  
      Caption         =   "OEM Info:" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   8 
      Top             =   990 
      Width           =   735 
   End 
   Begin VB.Label Label2  
      Caption         =   "Bios Type:" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   7 
      Top             =   555 
      Width           =   855 
   End 
   Begin VB.Label Label1  
      Caption         =   "Bios ID :" 
      Height          =   255 
      Left            =   0 
      TabIndex        =   6 
      Top             =   120 
      Width           =   735 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'Dim biObject As BinfoNt 
 
Private Sub Command1_Click() 
Set biObject = New BinfoNt 
 
 
 
If Text4.Text <> "" Then biObject.UserName = Text4.Text Else biObject.UserName = "Anonymous" 
 
If Text8.Text <> "" Then biObject.RegisterKey = Text8.Text Else biObject.RegisterKey = "53c3-1234567890" 
 
If Text5.Text <> "" Then biObject.RegisterCode = Text5.Text Else biObject.RegisterCode = "Anonymous" 
 
Text1 = biObject.OEMInfo 
Text2 = biObject.BiosType 
Text3 = biObject.BiosId 
Text6 = biObject.BiosDate 
Text7 = biObject.ChipsetId 
 
End Sub