IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Visual Basic (https://www.ircforumlari.net/visual-basic/)

- - Bilgisayar Adı (https://www.ircforumlari.net/visual-basic/124441-bilgisayar-adi.html)

Cemalizim

19 Temmuz 2008 17:05

Bilgisayar Adı

alıntıdır.

PHP- Kodu:

   Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
    Dim NameOfPC As String
    NameOfPC = GetComputer
    MsgBox "Bilgisaya Adı = " + NameOfPC
End Sub
Function GetComputer() As String
    Dim X As Long
    Dim PCName As String * 255
    PCName = Space(255)
    X = GetComputerName(PCName, 255&)
    GetComputer = Left$(PCName, InStr(PCName, vbNullChar) - 1)
End Function

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:24.