Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ host ] /
Makaleler-Article(s)
host ile ilgili toplam 3 makale bulundu ! (A total of 3 article(s) about host was(were) found in all of articles!)
| Article |
|---|
Host Adı ve Ip Adresini Almak ve Console da Göstermek
Merhaba arkadaşlar bu makalemizde console uygulaması yapacağız. Bilgisayarın Host adını ve ip adresini console da yazacağız. | Bilgisayar Host ve Kullanıcı Adını Öğrenmek
Bu örnekte bilgisayarın host ve kullanıcı adını öğreneceğiz. Formunuza 1 adet Button ekleyin. Aşağıdaki şekli inceleyin.
Public Class Form1
Sub Get_Bilgi()
Dim HostAd As String
Dim KullaniciAd As String
’ Host Adı / Bilgisayar Adı
HostAd = Environ$("computername")
’ Kullanıcı Adı
KullaniciAd = Environ$("username")
MsgBox("Kullanıcı Adı: " & KullaniciAd & vbCrLf & "Host Adı: " & HostAd)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_Bilgi()
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | Bilgisayar Host Adını Değiştirmek
Bu örnekte bilgisayarın Host adını değiştireceğiz. Formunuza 1 adet Button ve TextBox ekleyin.
Public Class Form1
Declare Function SetBilgisayarAd Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpBilgisayarAd As String) As _
Long
Public Function BilgisayarAdiniDegistir(ByVal YeniBilgisayarAd As String) _
As Boolean
On Error Resume Next
Dim nReturn As Long
nReturn = SetBilgisayarAd(YeniBilgisayarAd)
If Err.Number = 0 Then
BilgisayarAdiniDegistir = nReturn <> 0
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BilgisayarAdiniDegistir(TextBox1.Text)
End Sub
End Class |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.