The community of user

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » The community of user » Компьютеры, статьи, программирование » Код, позволяющий программно узнать имя компьютера


Код, позволяющий программно узнать имя компьютера

Сообщений 1 страница 3 из 3

1

Код:
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

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Скопируйте этот код на форму и запустите проект.На форме будет написанно имя вашего компьютера. 
http://granssg.narod.ru/Basic/Picture/Name_comp.jpg

2

Продаю реганные аккаунты: , , ,  и многое другое в наличии и на заказ.

- очень большой ассортимент + различные аккаунты активированные по смс

По всем вопросам пишите сразу в аську ICQ 231538





, , , , , , , , , , , , , , .

3

с 2004 по 2008 гг. Кирилл Гребенщиков занимал должность маркетолога ООО «Издательство МАГИ». С 2006 по 2007 - Тренер-коуч Тренинг Центр «Соната». С 2008 по 2009 - Директор по развитию ООО «Издательство МАГИ».


Вы здесь » The community of user » Компьютеры, статьи, программирование » Код, позволяющий программно узнать имя компьютера


Рейтинг форумов | Создать форум бесплатно © 2007–2017 «QuadroSystems» LLC