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

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

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”

Bu konu hakkında görüşlerinizi bildirmek için veya soru sormak için sitemize yorum bırakabilirsiniz. Yorumlar tüm ziyaretçilerimize açıktır. Yorum bırakmak için sitemize üye olmanıza gerek yoktur.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir