🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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