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

19.07.2014
2.677
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

ZİYARETÇİ YORUMLARI - 0 YORUM

Henüz yorum yapılmamış.