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
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Код, позволяющий программно узнать имя компьютера;