| Вопрос: Строки | Добавлено: 07.07.04 08:15 |
Автор вопроса:  freeloader | Web-сайт: freeloader.folder-pro.net | ICQ: 50804884 |
|
Здравствуйте, проблема заключается в том, что я не могу сравнить ключ реестра со строкой или наоборот. Вот код:
If RegGetValue(HKEY_LOCAL_MACHINE, "Software\Internet Restrictions", "UserName") = GetUserNameMe() Then .... Else MsgBox "Извините но имя пользователя не совпадает с начальным!", vbCritical, "Внимание" Функция RegGetValue возвращает строковое значение "PROFESSI-4NVUQL\freeloader" Функция GetUserNameMe возвращает имя компа и пользователя, что равно "PROFESSI-4NVUQL\freeloader" По идее эти две строки полностью равны, но почему то выпадает сообщение, что имя не совпадает с начальным, как так может быть, ведь они полностью равны, или может есть другой способ ? Навсякий случай кину код функции: Public Function GetUserNameMe() As String Dim sBuffer As String, Ret As Long sBuffer = String(256, 0) Ret = Len(sBuffer) If GetUserNameEx(NameSamCompatible, sBuffer, Ret) <> 0 Then GetUserNameMe = Left$(sBuffer, Ret) Else GetUserNameMe = "Имя пользователя не определено" End If End Function Замечу то, что если написать так If RegGetValue(HKEY_LOCAL_MACHINE, "Software\Internet Restrictions", "UserName") = "PROFESSI-4NVUQL\freeloader" Then все идет без проблем... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 07.07.04 11:36 |
|
просмотри не есть-ли в конце какой-нить возвращаемой строки символ vbNullChar...
А в твоем коде, этих нулевых символов - куча... Убери строчку Ret = Len(sBuffer) Замени строчку GetUserNameMe = Left$(sBuffer, Ret) на GetUserNameMe = Left$(sBuffer, InStr(vbnull, sBuffer, vbNullChar) - vbnull) |
||
|
Номер ответа: 2 Автор ответа:  freeloader  ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #2 | Добавлено: 07.07.04 13:20 |
| Спасибо | ||
Страница: 1 |