Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Имя пользователя в VB, Поскажите как получить имя пользователя 
:(
    Опции темы
aleonov
Дата 30.9.2004, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 15.9.2004

Репутация: нет
Всего: нет
Здравствуйте.

Подскажите пожалуйста как в Visual Basic получить имя пользователя? Мне в дальнейшем под этим именем надо будет создать некоторый файл с некоторой информацией.

И еще если не трудно подскажите пожалуйста какие-нибудь ссылочки по VB, чтобы там описание функций, библиотек разных, ну вообще какой-нибудь по удобнее сайт для изучения VB.

Большое спасибо!
PM MAIL   Вверх
cardinal
Дата 30.9.2004, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(aleonov @ 30.9.2004, 09:04)
И еще если не трудно подскажите пожалуйста какие-нибудь ссылочки по VB, чтобы там описание функций...

http://forum.vingrad.ru/index.php?showtopic=30242


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
boevik
Дата 30.9.2004, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Функция GetUserName


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
aleonov
Дата 30.9.2004, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 15.9.2004

Репутация: нет
Всего: нет
2 cardinal Спасибо. Я искал на форуме здесь, но что-то не нашел, видать плохо искал =)

2 boevik Спасибо.
PM MAIL   Вверх
aleonov
Дата 30.9.2004, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 15.9.2004

Репутация: нет
Всего: нет
Вот нашел пример работы с функцией

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

function ...
Dim lngLen As Long, lngRet As Long

strGetUserName = Space(255)
lngLen = 255
lngRet = GetUserName(strGetUserName, lngLen)
strGetUserName = Left(strGetUserName, lngLen - 1)
MsgBox (strGetUserName)
....
Проблема в том, что strGetUserName пустой, хотя и содержит 7 символов (типа aleonov, но пробелами).

Что не так ... понять не могу qstn.gif
PM MAIL   Вверх
Akina
Дата 30.9.2004, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()

Dim strGetUserName As String * 255
Dim strUserName As String
Dim lngLen As Long, lngRet As Long
lngLen = 255
lngRet = GetUserName(strGetUserName, lngLen)
strUserName = Left(strGetUserName, lngLen - 1)
MsgBox (strUserName)

End Sub

Работает нормально.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
aleonov
Дата 30.9.2004, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 15.9.2004

Репутация: нет
Всего: нет
Спасибо. Понял все. Работает. biggrin.gif

PM MAIL   Вверх
cardinal
Дата 30.9.2004, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
А я пока Akina искал нашел такой пример:
Код
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
 "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click ()
 Dim RetVal As Long
 Dim Puffer As String * 256
 Dim UserName As String
 
 RetVal = GetUserName(Puffer, Len(Puffer))

 If RetVal <> 0 Then
   UserName = Left$(Puffer, Instr(1, Puffer, vbNullChar) - 1)
   MsgBox "Hallo " & UserName
 End If
End Sub





--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
-Mikle-
Дата 1.10.2004, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Невидимка Vingrad'а
***


Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59
cardinal, это самое правильное применение этой функции smile.gif


--------------------
Если тебе плюют в спину, значит ты впереди...
PM   Вверх
Данкинг
Дата 13.2.2009, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Akina @  30.9.2004,  11:48 Найти цитируемый пост)
Работает нормально. 

Пишет "точка входа в библиотеку не найдена". Что делать?
ЗЫ: я не знаю VBA, просто надо срочно помочь одному человеку сделать один проект. smile 

Проблема решена, это я ступил, извиняюсь, забыл указать альяс. smile 

Это сообщение отредактировал(а) Данкинг - 13.2.2009, 11:56


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akina
Дата 13.2.2009, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Данкинг @  13.2.2009,  12:47 Найти цитируемый пост)
Пишет "точка входа в библиотеку не найдена". Что делать?

Проверять наличие и регистрацию библиотеки.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
DviRUS
Дата 15.8.2011, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Капыч
**


Профиль
Группа: Участник
Сообщений: 330
Регистрация: 24.10.2006
Где: Волгоград

Репутация: нет
Всего: 5
Куда вставлять
Код

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
  "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

из кода Кардинала, ато у меня во всех местах выдаёт ошибку:
Цитата

Microsoft Visual Basic for Applications
---------------------------
Compile error:

Only comments may appear after End Sub, End Function, or End Property
---------------------------
ОК   Справка


ПыСы: я не некропостер.

ПыПыСы: Все получилось. Декларирование функций должно находится в начале кода.

Это сообщение отредактировал(а) DviRUS - 15.8.2011, 13:36


--------------------
Это не только мерзко, но и невозможно! (с)
PM MAIL ICQ Skype   Вверх
iff
Дата 16.8.2011, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
Код

Environ("USERNAME")

вернёт имя пользователя


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
DviRUS
Дата 17.8.2011, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Капыч
**


Профиль
Группа: Участник
Сообщений: 330
Регистрация: 24.10.2006
Где: Волгоград

Репутация: нет
Всего: 5
iff, да... Так гораздо легче!  smile 


--------------------
Это не только мерзко, но и невозможно! (с)
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1050 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.