Cách dùng Visual Basic 6.0 coi hệ điều hành

[quockhanh]

Có rất nhiều cách để coi hệ điều hành của máy nhưng hôm nay em xin hướng dẫn cách dùng Visual Basic 6.0 để coi hệ điều hành hiện thời của máy là gì ..trong Visual Basic 6.0 các bác có thể gọi hàm API của Windows tên là GetVersionEx() để xác định được phiên bản hiện tại của máy là gì đoạn code vb sau sẽ đọc thông tin của hệ điều hành và hiện thị trên màn hình:

'khai báo kiểu dữ liệu'
option Explicit
Private TYpe OSVERSIONINFO
dwoSVersionInfosize As long
dwMajorversion As long
dwMaiorversion As long
dwBui1dNumber As long
dwPlatformId As long
szCSDVersion As String *128 '
Maintenance string for PSS usage. End Type

'khai báo hằng dữ liệu
const VER_PLATFORM_WIN32s = o
const VER_PLATFORM_WIN32s _WINDOWS =1
const VER_PLATFORM_WIN32s _NT = 2

'khai báo hàm API
Private Dec1are Function
GetVersionEx Lib "kerne132" A1ias "GetVersionExA " _ (1pVersionInformation As OSVERSIONINFO) As long

'hàm đọc thông tin và hiện thị
Function SysVersions 32()
Dim v As OSVERSIONINFO, retva1 As long
Dim WindowsVersion As String,
Bui1dversion As String
Dim P1atformname As String

v. dwOSVersionInfosize = Len (v)
retva1 =GetVersionEx(v)
WindowsVersion =
v.dwMajorVersion & ". " &
v.dwMinorVersion
Bui1dversion = v dw Bui1 dNumber And &HFFFF&
Se1ect case v . dwP1atformId case VER_PLATFORM_WIN32s _WINDOWS
P1atformname = "windows 2000"
case VER_PLATFORM_WIN32s _NT
P1atformname ="Windows_NT"
end select MsgBox "P1atform: " &
P1atformname & vbCrLf & _ "virsion: " & WindowsVersion
& vbCrLf & _ "Bui1d: " & Bui1dversion
End Function
(Sưu tầm)

 

[Kenjinvnn]

cận thật nhé QK, bài viết này đã có trong phần hệ điều hành (lập trình) của diễn đàn game vn rồi đó nhé coi trừng bị trừng điểm đó