Private Sub Timer1_Timer()
Dim msg As String ' Status information.
'pulisce il form
Form1.Cls
Show
MousePointer = 11 ' Hourglass.
' Get operating system and version.
Dim verinfo As OSVERSIONINFO
Dim build As String, ver_major As String, ver_minor As String
Dim ret As Long
verinfo.dwOSVersionInfoSize = Len(verinfo)
ret = GetVersionEx(verinfo)
If ret = 0 Then
MsgBox "Error Getting Version Information"
End
End If
Select Case verinfo.dwPlatformId
Case 0
msg = msg & "Windows 32s "
Case 1
msg = msg & "Windows 95/98 "
Case 2
msg = msg & "Windows NT "
End Select
ver_major = verinfo.dwMajorVersion
ver_minor = verinfo.dwMinorVersion
build = verinfo.dwBuildNumber
msg = msg & ver_major & "." & ver_minor
msg = msg & " (Build " & build & ")" & vbCrLf & vbCrLf
' Get CPU type and operating mode.
Dim sysinfo As SYSTEM_INFO
GetSystemInfo sysinfo
msg = msg & "CPU: "
Select Case sysinfo.dwProcessorType
Case PROCESSOR_INTEL_386
msg = msg & "Intel 386" & vbCrLf
Case PROCESSOR_INTEL_486
msg = msg & "Intel 486" & vbCrLf
Case PROCESSOR_INTEL_PENTIUM
msg = msg & "Intel Pentium" & vbCrLf
Case PROCESSOR_MIPS_R4000
msg = msg & "MIPS R4000" & vbCrLf
Case PROCESSOR_ALPHA_21064
msg = msg & "DEC Alpha 21064" & vbCrLf
Case Else
msg = msg & "(unknown)" & vbCrLf
End Select
msg = msg & vbCrLf
' Get free memory.
Dim memsts As MEMORYSTATUS
Dim memory As Long
GlobalMemoryStatus memsts
memory = memsts.dwTotalPhys
msg = msg & "Total Physical Memory: "
msg = msg & Format$(memory \ 1024, "###,###,###") & "K" _
& vbCrLf
memory& = memsts.dwAvailPhys
msg = msg & "Available Physical Memory: "
msg = msg & Format$(memory \ 1024, "###,###,###") & "K" _
& vbCrLf
memory& = memsts.dwTotalVirtual
msg = msg & "Total Virtual Memory: "
msg = msg & Format$(memory \ 1024, "###,###,###") & "K" _
& vbCrLf
memory& = memsts.dwAvailVirtual
msg = msg & "Available Virtual Memory: "
msg = msg & Format$(memory \ 1024, "###,###,###") & "K" _
& vbCrLf & vbCrLf
Print msg
MousePointer = 0
End Sub
'evento load del form
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
