Visual Basic – Bilgisayar yazılım & donanım bilgilerini görüntüleme

19.07.2014
2.814
A+
A-
Visual Basic – Bilgisayar yazılım & donanım bilgilerini görüntüleme

VB ile Windows kullanıcı adı, bilgisayar adı, domain adı,makine adı,bilgisayarı açalı geçen süre,işletim sistemi,versiyon vs.. gibi bilgileri aşağıdaki örnek verdiğim kodlardan dilediğinizi alıp sorunsuz kullanabilirsiniz.

 

lblOsVersion.Text = Environment.OSVersion.ToString

lblUser.Text = Environment.UserName.ToString

lblRuntime.Text = Environment.Version.ToString

lblUptime.Text = Mid((Environment.TickCount

/ 3600000), 1, 5) & ” :Hours”

lblSystemRoot.Text = Environment.SystemDirectory.ToString

lblCompName.Text = Environment.MachineName.ToString

lblCurrentDirectory.Text = Environment.CurrentDirectory.ToString

lblUserDomainName.Text = Environment.UserDomainName.ToString

lblWorkingSet.Text = Environment.WorkingSet.ToString

lblCommandLine.Text = Environment.CommandLine.ToString

For i As Integer = 0 To Environment.GetLogicalDrives.Length – 1

lblGetLogicalDrives.Text += Environment.GetLogicalDrives(i)

lblGetLogicalDrives.Text += ” ”

Next

””””””””’

Label1.Text = “User Name”

Label2.Text = “Operating System Version”

Label3.Text = “Computer Name”

Label4.Text = “System Root”

Label5.Text = “.Net Run Time”

Label6.Text = “Up Time”

Label7.Text = “Current Directory”

Label8.Text = “User Domain Name”

Label9.Text = “Working Set”

Label10.Text = “Get Command Line for this Project”

Label11.Text = “Get Logical Drives”

0.00 avg. rating (0% score) - 0 votes

Yazarı instagram'da takip edin

zdaylan.com yapımı ve güvencesiyle, GrafikBu.com hizmetinize açılmıştır.


Web Tasarım - Blog hizmetleri - E-Ticaret Sitesi - 3D Modelleme - Logo Tasarım - Video Prodüksiyon - Kurumsal Kimlik gibi, daha çok grafik tasarım ağırlıklı ürünlerimize göz atabilirsiniz.

GrafikBu.com'u ziyaret etmek için tıklayın >>

zdaylan
Grafik Tasarım - Beykent Üniversitesi - 1990 doğumlu, grafik tasarım, 3D modelleme, yazılım ve animasyonla ilgilenir. Ayrıca Grafikbu.com'da grafik tasarım hizmetleri verir.
YAZARA AİT TÜM YAZILAR
BİR YORUM YAZIN

This site uses Akismet to reduce spam. Learn how your comment data is processed.

ZİYARETÇİ YORUMLARI - 0 YORUM

Henüz yorum yapılmamış.