• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

Visual Basic .NET 2010 Bilgisayar Bilgilerini Okumak

  • Konuyu başlatan Konuyu başlatan Dentrax
  • Başlangıç tarihi Başlangıç tarihi

Dentrax

Aileden
Dentrax
Aktiflik
K.Tarihi
20 Şub 2011
Mesajlar
3,041
Puanı
707
Konum
Isparta
kakbgo.png


​
6858.png


My.Computer.Name = Bilgisayarınız ismini öğrenmek için kullanılır.
1) Denemelabel.text = My.Computer.Name
2) MsgBox(My.Computer.Name)
3) Dim dealydevil As String = My.Computer.Name
msgbox (dealydevil)

My.Computer.Network.IsAvailable = İnternetin olup, olmadığını kontrol eder. True ise var, False ise yok anlamına gelir.
1) Denemelabel2.text = My.Computer.Network.IsAvailable
2) MsgBox(My.Computer.Network.IsAvailable)

My.Computer.Clock.LocalTime = Tarih ve saati öğrenmek için kullanılır.
1) Denemelabel2.text = My.Computer.Clock.LocalTime
2) MsgBox(My.Computer.Clock.LocalTime)

My.Computer.Info.OSFullName = Windows versiyonu. "Windows 7 Ultimate"
1) Denemelabel2.text = My.Computer.Info.OSFullName
2) MsgBox(My.Computer.Info.OSFullName)

My.Computer.Info.OSPlatform = Platform'u "Win32NT"
1) Denemelabel2.text = My.Computer.Info.OSPlatform
2) MsgBox(My.Computer.Info.OSPlatform)

My.Computer.Info.OSVersion = Windows'un yapı versiyonu. "7601"
1) Denemelabel2.text = My.Computer.Info.OSVersion
2) MsgBox(My.Computer.Info.OSVersion)

My.Computer.Screen.GetHashCode = Hash kodu. "65535 - 65536 - 65537"
1) Denemelabel2.text = My.Computer.Screen.GetHashCode
2) MsgBox(My.Computer.Screen.GetHashCode)

My.Computer.Clipboard.GetText = Clipbord'a kopyalanan yazı.
1) Denemelabel2.text = My.Computer.Clipboard.GetText
2) MsgBox(My.Computer.Clipboard.GetText)
3) Dim dealydevil As String = My.Computer.Clipboard.GetText
Buton'un click event'ine,
Denemetextbox.text = dealydevil
Clipbord'a kopyalanan yazıyı textbox'a alabilirsiniz.

6858.png
 
Son düzenleme:
Eywallah cok isime yaradi, bu kodlar icin siteye de üye oldum, takilirsa vb hakkinda artik buradayim :D
 
Konuya cevap yazabilmek için giriş yapmanız veya üye olmanız gerekmektedir.
Geri
Üst