mario_fun1.frm

一个桌面游戏

VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  '单线固定
   Caption         =   "系统资讯"
   ClientHeight    =   2010
   ClientLeft      =   4545
   ClientTop       =   2565
   ClientWidth     =   3345
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2010
   ScaleWidth      =   3345
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1800
      Top             =   240
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BorderStyle     =   1  '单线固定
      ForeColor       =   &H00FF0000&
      Height          =   240
      Left            =   120
      TabIndex        =   1
      Top             =   1200
      Width           =   1665
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BorderStyle     =   1  '单线固定
      BeginProperty Font 
         Name            =   "新细明体"
         Size            =   9.75
         Charset         =   136
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1065
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const kbyte = 1024
Private Sub Form_Load()
Call Timer1_Timer
With Label1
  .Top = 0
  .Left = 0
End With
With Label2
   .Top = Label1.Height
   .Left = 0
   .Width = Label1.Width
   .Caption = "◎本程式纯属练习VB程式设计之用，内容所引用之图片均属任天堂公司所有。" & vbCrLf & _
                "◎程式：饶明惠（蛇夫）。" & vbCrLf & _
                "◎E-mail：[e-mail]。" & vbCrLf & _
                "◎就读学校：彰化师范大学工教系。"
Form3.Width = .Width + (Form3.Width - Form3.ScaleWidth)
Form3.Height = Label1.Height + .Height + (Form3.Height - Form3.ScaleHeight)
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Private Sub Timer1_Timer()
Dim sys As SYSTEM_INFO, mem As MEMORYSTATUS, osver As OSVERSIONINFO
Dim strTmp As String
Dim sysColor As Long
Call GetSystemInfo(sys)
Call GlobalMemoryStatus(mem)

'取得OS
osver.dwOSVersionInfoSize = Len(osver)
Call GetVersionEx(osver)
If osver.dwMajorVersion = 4 Then
      If osver.dwPlatformId = 2 Then
         strTmp = "Windows NT："
      ElseIf osver.dwPlatformId = 1 And osver.dwMinorVersion < 10 Then
         strTmp = "Windows 95："
      ElseIf osver.dwPlatformId = 1 And osver.dwMinorVersion >= 10 Then
         strTmp = "Windows 98："
      End If
Else
   strTmp = "Windows 版本："
End If
'取得颜色数
sysColor = 2 ^ (GetDeviceCaps(hDC, 14) * GetDeviceCaps(hDC, 12))

Label1 = "◎CPU：" & sys.dwProcessorType _
         & vbCrLf & "◎作业系统：" & strTmp & osver.dwMajorVersion & "." & osver.dwMinorVersion _
         & vbCrLf & "◎记忆体：" & mem.dwAvailPhys \ kbyte & " KB " & " /  " & mem.dwTotalPhys \ kbyte & " KB" _
         & vbCrLf & "◎交换档：" & mem.dwAvailPageFile \ kbyte & " KB " & " /  " & mem.dwTotalPageFile \ kbyte & " KB" _
         & vbCrLf & "◎虚拟记忆体：" & mem.dwAvailVirtual / kbyte & " KB " & " /  " & mem.dwTotalVirtual \ kbyte & " KB" _
         & vbCrLf & "◎Memory Usage：" & mem.dwMemoryLoad & "%" _
         & vbCrLf & "◎萤幕解析度：" & Screen.Width \ Screen.TwipsPerPixelX & " x " & Screen.Height \ Screen.TwipsPerPixelY _
         & vbCrLf & "◎颜色：" & sysColor
        
End Sub