Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

как узнать имя компа?   Найти похожие ветки 

 
йцукен   (2005-09-29 20:37) [0]

как


 
YurikGL ©   (2005-09-29 20:46) [1]

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

Platforms: Win 95/98, Win NT

GetComputerName reads the name of the user"s computer. The name is put into the string variable passed as lpBuffer. The function returns 0 if an error occured or 1 if successful.

lpBuffer
A string large enough to hold the returned computer name terminated by a null character.
nSize
The length in characters of lpBuffer.
Example:

" Display the computer"s name
Dim compname As String, retval As Long  " string to use as buffer & return value

compname = Space(255)  " set a large enough buffer for the computer name
retval = GetComputerName(compname, 255)  " get the computer"s name
" Remove the trailing null character from the strong
compname = Left(compname, InStr(compname, vbNullChar) - 1)
Debug.Print compname  " display name



Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.049 c
1-1127946922
turonix
2005-09-29 02:35
2005.10.23
Нет ли у кого-нибудь примера генератора уникальных ключей?


9-1116839264
Nic87
2005-05-23 13:07
2005.10.23
Shareware игры


1-1128065748
SergProger
2005-09-30 11:35
2005.10.23
RAR - архивы


3-1126528673
Борис71
2005-09-12 16:37
2005.10.23
проблемы с добавлением записи в таблицу


3-1126685588
Term
2005-09-14 12:13
2005.10.23
Сообщение об ошибке при создании ХП