|
Visual Basic 5.0/6.0 - СистемаВсе примеры / СистемаИмя пользователя и имя компьютера
Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:09 | просмотров: 2844 (1+) | комментариев: 0 | рейтинг:
Пример демонстрирует, как получить имя текущего пользователя в системе и имя компьютера.
![]() КодPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim username As String * 200 Dim return_name As Long return_name = GetUserName(username, 200) Label1.Caption = username Dim comp_name As String * 200 Dim comp As Long comp = GetComputerName(comp_name, 200) Label2.Caption = comp_name End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 90)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|