Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 146
от 25.09.2004, 14:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 314
Отправлено ответов: 266
Активность: 84.71 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Licvidator
Статус: Профессиональный
Общий рейтинг: 107.07
URL: PC Info
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 312. Подскажите пожалуйста как в сеансе программы на Visual Basic 6.0 узнать имя текущего пользователя, а... (ответов: 1)

Вопросов: 1, ответов: 1


 Вопрос № 312

Подскажите пожалуйста как в сеансе программы на Visual Basic 6.0 узнать имя текущего пользователя, а еще как прописать путь в текущий каталог с Виндой. Также есть вопрос как запихнуть в ехе-файл свою музыку, как например в некоторых крэках на Неро.
Заранее спасибо



Вопрос отправлен: 21.09.2004, 17:15
Отправитель: Евгений (einstein@online.com.ua)

[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Добрый день, Евгений!
1.

'объявление АПИ ф-ии
Private Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'собственно код
Dim sUserNameBuff As String * 255
sUserNameBuff = Space(255)
Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
MsgBox GetUserName


2.

'объявление АПИ ф-ии
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'собственно код
Dim str As String, ing As Long
Const max = 144
str = Space(max)
ing = GetWindowsDirectory(str, max)
str = Left(str, ing)
MsgBox str


3. Не знаю.

Ответ отправлен: 21.09.2004, 18:12
Отправитель: Licvidator



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (23)
C / C++ (16)
Perl (7)
Builder / Delphi (12)
Pascal (19)
Basic / VBA (6)
Java / JavaScript (6)
PHP (14)
Криптография (6)
WinAPI (11)
Радиоэлектроника (12)
Пользователю
Windows 95/98/Me (48)
Windows NT/2000/XP (64)
"Железо" (40)
Поиск информации (19)
Администратору
Windows NT/2000/XP (45)
Linux / Unix (19)
Юристу
Гражданское право (7)
Семейное право (4)
Трудовое право (6)
КоАП (4)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование


Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное