Здравствуйте! Сегодня: Чт, 19 Май 2022, Ваш IP: 3.239.111.79 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Группа «FAQ VB 6.0» - Форум
+ Создать новую тему Страница: 1
Тема: Как получить имя компьютера? · +  +  дата добавления: 15.04.2006 / 22:15
Автор темы:
BiT
BiT
тем: 103 / ответов: 643 / благодарностей: 0 / репутация: 1
За заслуги перед Kbyte.Ru>>
Url: bit.pirit.info/forum
Icq: 250234041
ответов: 643
создал(а) тем: 103


Как получить имя компьютера?

Код:

01:
03:
04:
05:
06:
08:
09:
10:
11:
12:
13:
14:
15:
16:
17:
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

--
Люди, которым всегда некогда, как правило, ничего не делают.

+ 1861546522215522006533.zip (1,37 Кб)  

Нет ответов в этой теме...

Страница: 1 + Создать новую тему