1. způsob 'na formulář je třeba vložit komponentuWinsock Dim CompName as String CompName = Winsock1.LocalHostName 2. způsob 'deklarace Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 'zjištění Dim CompName as String CompName = Space(255) GetComputerName CompName, 255 CompName = Left(CompName, InStr(1, CompName, Chr(0)) - 1) CompName = Trim(CompName)
|