ALTIN 213,6603
DOLAR 5,3495
EURO 6,0781
Adana Adıyaman Afyon Ağrı Aksaray Amasya Ankara Antalya Ardahan Artvin Aydın Balıkesir Bartın Batman Bayburt Bilecik Bingöl Bitlis Bolu Burdur Bursa Çanakkale Çankırı Çorum Denizli Diyarbakır Düzce Edirne Elazığ Erzincan Erzurum Eskişehir Gaziantep Giresun Gümüşhane Hakkari Hatay Iğdır Isparta İstanbul İzmir K.Maraş Karabük Karaman Kars Kastamonu Kayseri Kırıkkale Kırklareli Kırşehir Kilis Kocaeli Konya Kütahya Malatya Manisa Mardin Mersin Muğla Muş Nevşehir Niğde Ordu Osmaniye Rize Sakarya Samsun Siirt Sinop Sivas Şanlıurfa Şırnak Tekirdağ Tokat Trabzon Tunceli Uşak Van Yalova Yozgat Zonguldak
İstanbul 11°C
Çok Bulutlu

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

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

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”

Sosyal ol, paylaş!

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

    Facebook | Zübeyir Daylan
    Reklam
    zdaylan
    zdaylan
    Yazar hakkında:  Mehmet Zübeyir Daylan - İstanbul, TR 1 Kasım 1990'da Bakırköy'de dünyaya geldim. Bahçelievler İlköğretim okulunda ilkokul (2002), Küçükçekmece Yeşilyuva İlkokul'da ortaokul (2005) eğitimini bitirdim. Liseyi 2007 yılında Okyanus Koleji'nde okurken bıraktım daha sonra düz lise olarak açıktan okumaya devam ettim. 2017 yılında liseden mezun olduktan sonra, eğitimde şu anki konumum olan Beykent Üniversitesi'nde Grafik Tasarım bölümünde eğitim almaya başladım. Daha önce BilgeAdam'da yani bir bilişim-dijital kursunda Grafik Tasarım, Web Tasarım, 3D modelleme, Bilgisayar Programcılığı, Sistem ve Ağ uzmanlığı, Microsoft Office,Yabancı Dil: İngilizce gibi birbirinden farklı derslerden eğitimimi tamamladım ve bazı sertifikalara sahip oldum. Video & film prodüksiyon ve animasyonda da belli bir yere kadar tecrübelerim bulunmaktadır.  Köpeğimi,bilgisayarları, teknolojiyi, havacılığı, gezmeyi, futbolu (özellikle Fenerbahçe'yi) severim.
    YAZARA AİT TÜM YAZILAR
    ZİYARETÇİ YORUMLARI - 0 YORUM

    Henüz yorum yapılmamış.