'Bilgisayarın adını öğrenmek için;
'Bir adet command button ve textbox ekleyin ekleyin
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim yol As String
yol = Space(255)
Call GetComputerName(yol, 255)
Text1.Text = yol
End Sub
'Bir adet command button ve textbox ekleyin ekleyin
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim yol As String
yol = Space(255)
Call GetComputerName(yol, 255)
Text1.Text = yol
End Sub