VBNet - Форум - Учетные записи пользователей в Windows XP

Вопрос: Учетные записи пользователей в Windows XP Добавлено: 15.08.10 19:10

Автор вопроса: iprog | Web-сайт: usprogs.atheo-club.ru

Здравствуйте. Скажите, пожалуйста, как узнать, в какой учетной записи сейчас запущена моя программа? VB 6.0, ОС Windows XP. Кстати, как сделать то же самое в Windows Vista? Заранее спасибо.
Ответить

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

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 15.08.10 19:40
	имя или тип? Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 15.08.10 20:13
	апи GetUserName, скоро дам код. Ответить

Номер ответа: 3 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #3	Добавлено: 15.08.10 20:14
	(я задвал вопрос об этом, поройте на форуме (только давно задавал...)) Ответить

Номер ответа: 4 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #4	Добавлено: 16.08.10 13:24
	Тему нашел, код написал, запустил и... Visual Basic вылетел с ошибкой и предложением отправить отчет об ошибке. Я, конечно, знаю, что это за окно (много раз раньше было), но хочу спросить: у Вас эта функция работала? Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 16.08.10 14:51
	нет, но зато работала и работает .net студия Ответить

Номер ответа: 6 Автор ответа: iprog Вопросов: 26 Ответов: 110	Web-сайт: usprogs.atheo-club.ru Профиль \| \| #6	Добавлено: 16.08.10 15:16
	Я нашел ответ. Размещаю код, если кому интересно: Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Dim username As String Dim user As Long Dim buffer As String * 30 Private Sub GetUser() user = GetUserName(buffer, 30) username = Left$(buffer, InStr(buffer, Chr(0)) - 1) MsgBox username End Sub Ответ нашел через Dependency Walker (VC++6.0), открыв в нем advapi32.dll, и MSDN. Вопрос закрыт. Ответить

Номер ответа: 7 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #7	Добавлено: 16.08.10 17:32
	Я тоже долго долго искал и наконец спустя два месяца нашел код для .net My.User.Name Ответить

Номер ответа: 8 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #8	Добавлено: 16.08.10 20:17
	у меня всё было гладко. глюк такой был, но с совершенно другой вещью. я думаю это какаято нестабильность. (если интересно - очеееееееееень долго (я специально подождал) искал в длл с апи точку входа которой нет) Ответить

Номер ответа: 9 Автор ответа: nguufxm6bo Вопросов: 0 Ответов: 27	Профиль \| \| #9	Добавлено: 10.09.10 02:00
	MsgBox Environ("USERNAME") Ответить

Страница: 1 |