En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
İşlemci Bilgilerini Görüntülemek :
| 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 |
Bios Bilgilerini Görüntülemek :
| 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 |
İşletim Sistemi Bilgilerini Görüntülemek :
| 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 |
Genel Bilgisayar Bilgilerini Görüntülemek :
| 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 |
Bu bilgileri görünülemek çoğu yerde işinize yarayabilir. Kodları butonlar içerisine yerleştirebilirsiniz.Görüntülemek için TEXTBOX kullanılmıştır.Daha gelişmiş birşeyler yapmak istiyorsanız labelleri kullanabilirsiniz...