Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогиет Добавлено: 24.04.10 17:27  

Автор вопроса:  VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808 
Здравствуйте! Кто знает Как в сплеше перед запуском проги в лэйбле отобразить имя пользователя компа?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 PROgrammIST



ICQ: 403099048 

Вопросов: 22
Ответов: 94
  Web-сайт: forum.quotedev.org.ru
 Профиль | Цитата | #1 		Добавлено: 24.04.10 20:08
  1. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  2. Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4. Private Sub Form_Load()
  5. Dim username As String * 200
  6. Dim return_name As Long
  7. return_name = GetUserName(username, 200)
  8. Label1.Caption = username
  9.  
  10. Dim comp_name As String * 200
  11. Dim comp As Long
  12. comp = GetComputerName(comp_name, 200)
  13. Label2.Caption = comp_name
  14. End Sub


В данном примере идет вывод имени компьютера и пользователя

Ответить

Номер ответа: 2
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #2 		Добавлено: 25.04.10 12:45
имя компа не выводиться :(

Ответить

Номер ответа: 3
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | Цитата | #3 		Добавлено: 25.04.10 15:02
  1. Private Sub Form_Load()
  2.     Timer1_Timer
  3.     return_name = GetUserName(username, 200)
  4.     comp = GetComputerName(comp_name, 200)
  5.     lblLicenseTo.Caption = "Licensed To " & username & "(" & comp_name & ")"
  6. End Sub


Ну а константы и тп - само сабой.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам