home *** CD-ROM | disk | FTP | other *** search
/ PC-Test Pro / PCTESTPRO.iso / win95 / sysinfo / entp / testprog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-11  |  1.6 KB  |  61 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "SI System Info Server Test Program"
  4.    ClientHeight    =   3030
  5.    ClientLeft      =   1140
  6.    ClientTop       =   2190
  7.    ClientWidth     =   4800
  8.    Height          =   3435
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3030
  12.    ScaleWidth      =   4800
  13.    Top             =   1845
  14.    Width           =   4920
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "SysInfo Dialog"
  17.       Height          =   615
  18.       Index           =   1
  19.       Left            =   2520
  20.       TabIndex        =   1
  21.       Top             =   1080
  22.       Width           =   1455
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "User Name"
  26.       Height          =   615
  27.       Index           =   0
  28.       Left            =   840
  29.       TabIndex        =   0
  30.       Top             =   1080
  31.       Width           =   1455
  32.    End
  33. Attribute VB_Name = "Form1"
  34. Attribute VB_Creatable = False
  35. Attribute VB_Exposed = False
  36. Option Explicit
  37. Private Sub Command1_Click(Index As Integer)
  38. Dim SI As New siClass
  39. Select Case Index
  40. Case 0
  41.     MsgBox SI.siUserName$
  42. '    MsgBox SI.SIAvailPhysMem&
  43. '    MsgBox SI.SIAvailPhysMem&
  44. Case 1
  45.     SI.DisplaySIDialog
  46. End Select
  47. Set SI = Nothing
  48. '*** exposed method ***
  49.     'DisplaySIDialog--displays modal system info dialog
  50. ' *** exposed read-only properties ***
  51.     'siUserName$
  52.     'siComputerName$
  53.     'siWinVers$
  54.     'siMemLoad&
  55.     'siTotalPhysMem&
  56.     'siAvailPhysMem&
  57.     'siTotalVirtMem&
  58.     'siAvailVirtMem&
  59.     'siFreeSpace&(Drive$)
  60. End Sub
  61.