[Cemalizim]

alıntıdır.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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