VBNet - Форум - Подскажите API функцию...

Вопрос: Подскажите API функцию... Добавлено: 14.09.03 17:07

Автор вопроса: NovichoK

Объсняю ситуацию. Компьютером пользуются несолько пользователей. У каждого есть так называемые имя и пароль. Подскажите какая функция узнает имя пользователя который сейчас сидит за компом
Ответить

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

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 14.09.03 17:15
	API функция GetUserName. Ответить

Номер ответа: 2 Автор ответа: NovichoK Вопросов: 72 Ответов: 147	Профиль \| \| #2	Добавлено: 14.09.03 17:31
	Спасибо! Ответить

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

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #3

Добавлено: 15.09.03 21:04

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

Private Sub Command1_Click()

ProgName = Space(256)
c = GetUserName(ProgName, namesize)
If c = 0 Then MsgBox "error"
ProgName = Left(ProgName, namesize)
Text1.Text = ProgName

End Sub

Есть такая вот нехитрая программа, которая должна выдавать имя юзера. Так какого же она ошибки все время клепает?!!?Помогите разобраться, люди добрые

Ответить

Номер ответа: 4
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #4

Добавлено: 16.09.03 00:28

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

Private Sub Form_Load()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox strUserName
End Sub

Ответить

Номер ответа: 5 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #5	Добавлено: 16.09.03 08:10
	>Есть такая вот нехитрая программа Во-первых, не 256 надо, а 255. Во-вторых, ты сам должен определять namesize, то есть передавать в функцию надо 255. В-третьих, длина имени юзера будет в возвращаемом значении функции. Ответить

Номер ответа: 6 Автор ответа: NovichoK Вопросов: 72 Ответов: 147	Профиль \| \| #6	Добавлено: 20.09.03 18:18
	Спасибо за наставления новичкам ВБ!!! Ответить

Страница: 1 |