معرفة اسم الكمبيوتر

اكتب هذه الدالة في قسم التصريحات general

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

قم بوضع الأداتين command1 و text1.text في الفورم

اكتب هذا الكود في الزرCommand1

Private Sub Command1_Click()

Dim a As String * 256

x = GetComputerName(a, 256)

Text1 = Left(a, InStr(a, Chr(0)) - 1)

End Sub

وبالتوفيق............أقم صلاتك تنعم بحياتك