Bilgisayar Bilgilerini Textboxa Yazdırmak.
İlk Olarak İşletim Sistemi Bilgilerinin Alınması:
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 Adı
Textbox1.Text += "Version: " & info("version").ToString() & CRLF ’ versiyonu
Textbox1.Text += "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Computer name: " & info("csname").ToString() & CRLF ’ bilgisayar adı
Textbox1.Text += "Windows Directory: " & _
info("windowsdirectory").ToString() & CRLF ’ dizini
Next
Bios Bilgilerinin Alınması:
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
İşlemci Bilgilerinin Alınması:
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
Bir çok yerde işinize yarayacağını düşünüyorum
Kodların en üstüne imports system.collection ve imports microsoft.win32 yazmayı unuymayın
İlk Olarak İşletim Sistemi Bilgilerinin Alınması:
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 Adı
Textbox1.Text += "Version: " & info("version").ToString() & CRLF ’ versiyonu
Textbox1.Text += "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Computer name: " & info("csname").ToString() & CRLF ’ bilgisayar adı
Textbox1.Text += "Windows Directory: " & _
info("windowsdirectory").ToString() & CRLF ’ dizini
Next
Bios Bilgilerinin Alınması:
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
İşlemci Bilgilerinin Alınması:
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
Bir çok yerde işinize yarayacağını düşünüyorum
Kodların en üstüne imports system.collection ve imports microsoft.win32 yazmayı unuymayın