31
Январь
2009
Как получить имя компьютера?
Как получить имя компьютера?
Option Explicit Private Declare Function GetComputerName _ Lib "kernel32" Alias "GetComputerNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As Long Private Sub Form_Load() Dim strName As String Dim bytSize As Long bytSize = 31 strName = String(bytSize, "X") GetComputerName strName, bytSize strName = Left(strName, bytSize) AutoRedraw = True Print strName End Sub