RAJA TEKNISI

Laki-laki, 21 tahun

Email : Jaj_Mv@yahoo.com

Phone : 085293578780

Demak, Indonesia

kita hidup d dunia ne hanya sbuah crita. dan crita psti da btas akhir'na. Jd mulai ckrng buatlah crita hidupmu sbaik mungkin, dan.... BelAjArlaH SEkaRaNg DaRi PAdA BEsOk, PeRlu di InGAT! KUnCi SuKseS ADAlaH JA=X+Y+Z
::
RAJA TEKNISI
www.RAJATEKNISI.com
Email : Jaj_mv@yahoo.com

Navbar3

Cari Blog Ini

Senin, 09 April 2012

Membuat Software Mengetahui Versi Windows

Berikut ini adalah kode sederhana untuk mengetahui versi dari Windows di komputer.
Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :

[ VB 6.0 ]
Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

[ VB .NET ]
For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

0 komentar: