VB PC Bilgilerini Yazdrmak

Bilgisayar Bilgilerini Visual Basic'te Textboxa Yazdirmak.

Merhaba Arkadaslar, Bu Makalemde Bazi Bilgisayar Bilgilerini ( Isletim Sistemi, Anakart, Bios gibi... ) almak ve Textbox a yazdirmayi görecegiz.

Ilk Olarak Isletim Sistemi Bilgilerinin Alinmasi:

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")

Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Name: " & info("name").ToString() & CRLF 'sistemin Adi
Textbox1.Text += "Version: " & info("version").ToString() & CRLF ' versiyonu
Textbox1.Text += "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Computer name: " & info("csname").ToString() & CRLF ' bilgisayar adi
Textbox1.Text += "Windows Directory: " & _
info("windowsdirectory").ToString() & CRLF ' dizini
Next

Bios Bilgilerinin Alinmasi:

Dim query As New SelectQuery("Win32_bios")

Dim search As New ManagementObjectSearcher(query)

Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Bios version: " & info("version").ToString() & CRLF
Next

Islemci Bilgilerinin Alinmasi:

Dim query As New SelectQuery("Win32_processor")

Dim search As New ManagementObjectSearcher(query)

Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Processor: " & info("caption").ToString() & CRLF
Next

Pc Genel Bilgiler:

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")

Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Model: " & info("model").ToString() & CRLF
Textbox1.Text += "System Type: " & info("systemtype").ToString() & CRLF
Textbox1.Text += "Total Physical Memory: " & _
info("totalphysicalmemory").ToString() & CRLF
Next

--------------------------------------

Kodlarin en üstüne imports system.collection ve imports microsoft.win32 yazmayi unuymayin.

Visual Basic ile uğraşan arkadaşlara yardımcı olacağını düşünüyorum... İyi çalışmalar...