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.Inf
SFullName = Windows versiyonu. "Windows 7 Ultimate"1) Denemelabel2.text = My.Computer.Inf
SFullName2) MsgBox(My.Computer.Inf
SFullName)My.Computer.Inf
SPlatform = Platform'u "Win32NT"1) Denemelabel2.text = My.Computer.Inf
SPlatform2) MsgBox(My.Computer.Inf
SPlatform)My.Computer.Inf
SVersion = Windows'un yapı versiyonu. "7601"1) Denemelabel2.text = My.Computer.Inf
SVersion2) MsgBox(My.Computer.Inf
SVersion)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.
Son düzenleme:
