Отправлено: 21.07.07 01:01. Заголовок: Как можно воспользоваться Windо-вым запросом пароля ?

Уважаемые гуру ! Надеюсь на вашу подсказку и снисхождения.....

Надоел в своих прогах простой запрос на ввод пароля.
Как к терминалу хХарбора подключить стандартный Windows-запрос пароля.
Если к терминалу прицепили "диалог проводника- сохранение или запись файла, папки...", то наверно можно и этот вызвать ! А как ?

 Отправлено: 04.08.07 12:21. Заголовок: Re:

Нашел:
CredUIPromptForCredentials
http://msdn2.microsoft.com/en-us/library/aa375177.aspx

и

только начиная с XP
в висте так вообще вот эта CredUIPromptForWindowsCredentials

http://www.ishodniki.ru/art/print.php?cat=1&id=467&show=net

А как сделать рабочую программку, не знаю.
Знатоки "С" - помогите !!!!

 Отправлено: 06.08.07 10:40. Заголовок: Re:

Эта функция находится в credui.dll, которая есть в XP
Во-первых, тебе понадобится файл wincred.h, которого нет в bcc55, но есть в bcc582

Но я думаю что с этим файлом будет работать и bcc55. Давай емайл

Набросал функцию. Извини, не проверял (с) Брат

Переменную dwFlags сформируй сам. Не очень понятно как формировать pfSave

#pragma BEGINDUMP

#include <windows.h>
#include <wincred.h>
#include "hbapi.h"

HB_FUNC( WINLOGON )
{
char szTarget[256];
char szUserName[256];
char szPassword[256];
PBOOL pfSave;
DWORD WINAPI ulRet;
DWORD dwFlags = 0;

szTarget[255] = 0;
szUserName[255] = 0;
ulRet = CredUIPromptForCredentials(
NULL,
szTarget,
NULL,
0,
szUserName,
255,
szPassword,
255,
pfSave,
dwFlags);

hb_retl( (ulRet == NO_ERROR) ? TRUE : FALSE );
}

 Отправлено: 06.08.07 10:41. Заголовок: Re:

в конце надо добавить

#pragma ENDDUMP

 Отправлено: 06.08.07 11:02. Заголовок: Re:

Pasha пишет:

цитата:

Давай емайл

30195@mail.ru

 Отправлено: 06.08.07 12:27. Заголовок: Re:

отправил wincred.h

Надо еще добавить описание
DWORD ulRet;

 Отправлено: 06.08.07 20:22. Заголовок: Re:

Pasha пишет:

цитата:

Надо еще добавить описание DWORD ulRet;

А куда нужно добавить ?

 Отправлено: 07.08.07 00:32. Заголовок: Re:

Сделал тестовый пример и не собирается.
Помогите кто может.

FUNCTION MAIN()
LOCAL cPassword := "andrey", cUserName := "Admin", cTarget := "None"

IF Os_IsWinXP() .OR. Os_IsWinVista() .OR. Os_IsWin2003()
? WINLOGON(cTarget,cUserName,cPassword)
ELSE
ALERT("Only for WinXP, Win2003, WinVista !")
ENDIF

RETURN NIL
*********************************************************
/*Эта функция "CredUIPromptForCredentials" находится в credui.dll, которая есть в XP
Во-первых, тебе понадобится файл wincred.h, которого нет в bcc55, но есть в bcc582
Но я думаю что с этим файлом будет работать и bcc55
Переменную dwFlags сформируй сам. Не очень понятно как формировать pfSave
*/

#pragma BEGINDUMP

#include <windows.h>
#include <wincred.h>
#include "hbapi.h"

HB_FUNC( WINLOGON )
{
char szTarget[256];
char szUserName[256];
char szPassword[256];
PBOOL pfSave;
DWORD WINAPI ulRet;
DWORD dwFlags = 0;

szTarget[255] = 0;
szUserName[255] = 0;
ulRet = CredUIPromptForCredentials(
NULL,
szTarget,
NULL,
0,
szUserName,
255,
szPassword,
255,
pfSave,
dwFlags);

hb_retl( (ulRet == NO_ERROR) ? TRUE : FALSE );
}

#pragma ENDDUMP

 Отправлено: 07.08.07 10:43. Заголовок: Re:

какая ошибка при сборке ?

 Отправлено: 07.08.07 11:23. Заголовок: Re:

Похоже не будет работать эта функция под bcc55
Надо не только wincred.h, а и остальные *.h от мелкософт
Нужен bcc582

 Отправлено: 27.01.08 11:46. Заголовок: Адаптировал для свои..

Адаптировал для своих нужд. Может кому-то еще пригодится

цитата:

#define NO_ERROR 0 #define ERROR_CANCELLED 1223 #define ERROR_INVALID_FLAGS 1004 #define ERROR_INVALID_PARAMETER 87 #define ERROR_NO_SUCH_LOGON_SESSION 1312 PROCEDURE main() Local pCredUI_Info Local cTargetName := "server\bux" Local cUserName := "User1" Local cPassword := "my^ъpasw" Local lSave := .t. Local nFlags := 0 Local nResult pCredUI_Info := CredUI_Info( 0, "My Message", "My Caption", 0 ) nResult := CredUIPrompt( pCredUI_Info, cTargetName, 0, @cUserName, @cPassword, lSave, nFlags ) if nResult == NO_ERROR ? "Пользователь : ", cUserName ? "Пароль : ", cPassword elseif nResult == ERROR_CANCELLED ? "Пользователь выбрал Cancel." elseif nResult == ERROR_INVALID_FLAGS ? "ERROR_INVALID_FLAGS - придется смотреть документацию :-(" elseif nResult == ERROR_INVALID_PARAMETER ? "ERROR_INVALID_PARAMETER - придется смотреть документацию :-(" elseif nResult == ERROR_NO_SUCH_LOGON_SESSION ? "ERROR_NO_SUCH_LOGON_SESSION - придется смотреть документацию :-(" else //-1000 ? "Невозможно загрузить credui.dll" endif pCredUI_Info := Nil RETURN 0 #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" #define CREDUI_MAX_CAPTION_LENGTH 128 #define CREDUI_MAX_MESSAGE_LENGTH 32767 #define CREDUI_MAX_PASSWORD_LENGTH 256 #define CREDUI_MAX_USERNAME_LENGTH 513 typedef struct _CREDUI_INFO { DWORD cbSize; HWND hwndParent; PCTSTR pszMessageText; PCTSTR pszCaptionText; HBITMAP hbmBanner; } CREDUI_INFO, *PCREDUI_INFO; typedef DWORD (CALLBACK* CredUIPromptForCredentials)(PCREDUI_INFO, PCTSTR, void*, DWORD, PCTSTR, ULONG, PCTSTR, ULONG, BOOL*, DWORD ); static PCREDUI_INFO hb_parCredUI_Info( int iParam ); HB_FUNC( CREDUIPROMPT ) { HINSTANCE hDLL = LoadLibrary( "credui.dll" ); LONG lRes = -1000L; if ( hDLL ) { CredUIPromptForCredentials CredUIPrompt = (CredUIPromptForCredentials) GetProcAddress(hDLL, "CredUIPromptForCredentialsA"); if ( CredUIPrompt != NULL ) { PCREDUI_INFO pUiInfo = hb_parCredUI_Info( 1 ); LPSTR pszTargetName = hb_parc( 2 ); DWORD dwAuthError = hb_parni( 3 ); LPSTR pszUserName = hb_parcx(4); LPSTR pszPassword = hb_parcx(5); BOOL pfSave = hb_parl( 6 ); DWORD dwFlags = hb_parni( 7 ); char* szUserName = hb_xgrab( CREDUI_MAX_USERNAME_LENGTH + 1 ); char* szPassword = hb_xgrab( CREDUI_MAX_PASSWORD_LENGTH + 1 ); strcpy( szUserName, pszUserName ); strcpy( szPassword, pszPassword ); lRes = CredUIPrompt( pUiInfo, pszTargetName, NULL, dwAuthError, szUserName, CREDUI_MAX_USERNAME_LENGTH, szPassword, CREDUI_MAX_PASSWORD_LENGTH, &pfSave, dwFlags ); hb_storc( szUserName, 4 ); hb_storc( szPassword, 5 ); hb_xfree( szUserName ); hb_xfree( szPassword ); if ( ISBYREF(6) ) { hb_storl( pfSave, 6 ); } } FreeLibrary( hDLL ); } hb_retnl( lRes ); } /* destructors, it's executed automatically */ static HB_GARBAGE_FUNC( hb_CREDUI_INFO_Destructor ) { PCREDUI_INFO * ppCredUI_Info = (PCREDUI_INFO*) Cargo; if( ppCredUI_Info && *ppCredUI_Info ) { PCREDUI_INFO pInfo = ( PCREDUI_INFO ) ppCredUI_Info; hb_xfree( (LPSTR) pInfo->pszMessageText ); hb_xfree( (LPSTR) pInfo->pszCaptionText ); if( pInfo->hbmBanner != NULL ) { DeleteObject( pInfo->hbmBanner ); pInfo->hbmBanner = NULL; } *ppCredUI_Info = NULL; } } /* */ static PCREDUI_INFO hb_parCredUI_Info( int iParam ) { PCREDUI_INFO pCredUI_Info = (PCREDUI_INFO) hb_parptrGC( hb_CREDUI_INFO_Destructor, iParam ); if( pCredUI_Info ) { return pCredUI_Info; } else { return NULL; } } HB_FUNC( CREDUI_INFO ) { CREDUI_INFO CredUI_Info = { 0 }; PCREDUI_INFO pCredUI_Info; CredUI_Info.cbSize = sizeof( CREDUI_INFO ); CredUI_Info.hwndParent = ( HWND ) hb_parnl( 1 ); CredUI_Info.pszMessageText = hb_strndup( hb_parc(2), CREDUI_MAX_MESSAGE_LENGTH - 1); CredUI_Info.pszCaptionText = hb_strndup( hb_parc(3), CREDUI_MAX_CAPTION_LENGTH - 1); //Note: The bitmap size is limited to 320x60 pixels. if( GetObjectType((HGDIOBJ) hb_parnl(4)) == OBJ_BITMAP ) { CredUI_Info.hbmBanner = ( HBITMAP ) hb_parnl( 4 ); } pCredUI_Info = ( PCREDUI_INFO ) hb_gcAlloc( sizeof(CREDUI_INFO), hb_CREDUI_INFO_Destructor ); *pCredUI_Info = CredUI_Info; hb_retptrGC( (void*) pCredUI_Info ); } #pragma ENDDUMP

 Отправлено: 27.01.08 14:50. Заголовок: Петр пишет: Может к..

Петр пишет:

цитата:

Может кому-то еще пригодится

Конечно понадобится !!! Большое спасибо !!!
Куда пиво высылать ????

 Отправлено: 01.02.08 01:01. Заголовок: А как сделать чтоб О..

А как сделать чтоб ОКНО ПАРОЛЯ не пряталось под все другие открытые окна задач ?
юзера мышкой тыкнут и бегут с криком задача не пускает работать....

 Отправлено: 01.02.08 09:57. Заголовок: При вызове функции C..

При вызове функции CredUI_Info в качестве первого параметра нужно указать хэндл родительского окна, например так:


hWnd := GetForegroundWindow()
hBitmap := LoadBitmap("MYLOGO")

pCredUI_Info := CredUI_Info( hWnd, "My Message", "My Caption", hBitmap )

 Отправлено: 01.02.08 11:52. Заголовок: Error: Unresolved ex..

Error: Unresolved external '_HB_FUN_GETFOREGROUNDWINDOW' referenced from D:\@\TEST_PASSWORD\TEST2.OBJ
Error: Unresolved external '_HB_FUN_LOADBITMAP' referenced from D:\@\TEST_PASSWORD\TEST2.OBJ

Нет таких функций в хХарборе. Если есть у тебя, то можешь ли их дать ?

 Отправлено: 01.02.08 12:03. Заголовок: Лично для тебя htt..

Лично для тебя

http://clipper.fastbb.ru/?1-4-0-00000136-000-0-0-1168687120

 Отправлено: 01.02.08 12:26. Заголовок: Не надо ловить по ме..

Не надо ловить по мелочам ....
Эту функцию нашел, уже после отправки .
А где взять LOADBITMAP() ?

 Отправлено: 01.02.08 12:40. Заголовок: Andrey пишет: где ..

Andrey пишет:

цитата:

где взять LOADBITMAP() ?

/*
Harbour MiniGUI 1.3 Extended (Build 33)
Author P.Chornyj

Function LoadBitmap()
---------------------
Syntax
LoadBitmap( cBitmap ) --> nHandle

Arguments
<cBitmap> is the name of resource

Returns
If the function succeeds,
the return value is the handle to the specified bitmap.
If the function fails, the return value is 0.
*/

HB_FUNC( LOADBITMAP )
{
PHB_ITEM bitmap = hb_param( 1, HB_IT_STRING );

if( bitmap != NULL )
{
hb_retnl( (LONG) LoadBitmap(GetModuleHandle(NULL), hb_parc(1)) );
}
else
{
hb_retnl( NULL );
}
}

 Отправлено: 01.02.08 12:58. Заголовок: Спасибо за функцию !..

Спасибо за функцию !

Только картинка в ПАРОЛЕ (MyLOGO) не появляется !
Что делать ?

 Отправлено: 01.02.08 13:22. Заголовок: Andrey пишет: Тольк..

Andrey пишет:

цитата:

Только картинка в ПАРОЛЕ (MyLOGO) не появляется !

gfilatov пишет:

цитата:

Arguments <cBitmap> is the name of resource

Картинка размера 320х60 должна быть добавлена в РЕСУРСЫ Win-приложения

 Отправлено: 01.02.08 17:37. Заголовок: gfilatov пишет: ..

gfilatov пишет:

цитата:

<cBitmap> is the name of resource

Вот что значит читать как придется. Написано же чисто по английски "имя ресурса", читаешь по русски "имя или ресурс". Да, плохо когда читаешь не то что написано !
Спасибо Григорий за твое терпенье !!!

 Отправлено: 31.03.08 10:08. Заголовок: После добавления это..

После добавления этой функции на некоторых компах происходит непонятное - при выходе из программы появляется такое сообщение:



Закономерности не нашел. Взял установил на ноутбуке чистую систему ХР sp2 и на чистой системе такая же фигня.
Хотя во многих местах стоит эта же программа и ничего не появляется.

Как избавиться от ЭТОГО сообщения при выходе из программы ???

 Отправлено: 16.05.08 15:51. Заголовок: Никто не пробовал пр..

Никто не пробовал прикрутить после запроса данных пользователя, их проверку через WinApi функцию LogonUser() ?
Я нашел примерчик на http://www.rsdn.ru/Archive/VC/issues/pvc072.htm
и добавил строчку ret=LogonUserA(szUserName,pszTargetName,szPassword,LOGON32_LOGON_NETWORK,LOGON32_PROVIDER_DEFAULT,&hToken);
после запроса пароля, но, почему то, проверки не происходит и возвращается 0.

 Отправлено: 30.03.09 19:23. Заголовок: Использую эту функци..

Использую эту функцию ввода пароля !
Но есть большая проблема: на некоторых компах не могу ВООБЩЕ ввести ПОЛЬЗОВАТЕЛЯ !

 Отправлено: 31.03.09 12:03. Заголовок: Приведенная Петром п..

Приведенная Петром программа, "Адаптировал для своих нужд", работает замечательно. А как указать несколько Пользователей дабы выбирать их из выпадающего списка ?

 Отправлено: 15.08.10 12:58. Заголовок: Опять возвращаюсь к ..

Опять возвращаюсь к этой теме ! Может кто-нибудь уже разобрался с этим ?

Использую эту функцию ввода пароля ! Уже очень давно, года 3 наверно !
Но есть большая проблема: на некоторых компах не могу ВООБЩЕ ввести ПОЛЬЗОВАТЕЛЯ !
Ввод заблокирован !!! Что делать ?

 Отправлено: 15.08.10 16:02. Заголовок: Если проблема в том,..

Если проблема в том, что Get ввода не активен, то можно найти его хендл и сделать Enable

 Отправлено: 15.08.10 18:55. Заголовок: Andrey пишет: Но ес..

Andrey пишет:

цитата:

Но есть большая проблема: на некоторых компах не могу ВООБЩЕ ввести ПОЛЬЗОВАТЕЛЯ ! Ввод заблокирован !!!

Проблема в ЭТОМ !

 Отправлено: 15.08.10 20:30. Заголовок: Andrey пишет: Но ес..

Andrey пишет:

цитата:

Но есть большая проблема: на некоторых компах не могу ВООБЩЕ ввести ПОЛЬЗОВАТЕЛЯ ! Ввод заблокирован !!! Проблема в ЭТОМ !

Возможно, учетная запись администратора на этих компьютерах не имеет пароля. Политика безопасности Windows по-умолчанию не разрешает подключение к компьютеру, если учетка администратора не имеет пароля.

 Отправлено: 15.08.10 21:12. Заголовок: Ну хендл Combobox..

Ну хендл Combobox'a, один черт

 Отправлено: 15.08.10 21:39. Заголовок: PSP пишет: Возможно..

PSP пишет:

цитата:

Возможно, учетная запись администратора на этих компьютерах не имеет пароля. Политика безопасности Windows по-умолчанию не разрешает подключение к компьютеру, если учетка администратора не имеет пароля.

Т.е. если создать пароль для "Администратора" этого компа, то заработает ?
Спасибо, попробую.

 Отправлено: 16.08.10 09:26. Заголовок: Нужно установить пар..

Нужно установить пароль ко всем учетным записям, имеющим права администратора. Их на компьютере может быть не одна.
PS: в общем случае, чтобы подключаться к компьютеру по сети, используя локальную учетку, эта учетка должна иметь пароль.

 Отправлено: 27.08.10 11:13. Заголовок: PSP пишет: Нужно у..

PSP пишет:

цитата:

Нужно установить пароль ко всем учетным записям, имеющим права администратора.

Проверил ! Не работает !
На компе Windows XP Home, один пользователь с администраторским доступом. Пароль сделал. Все равно при входе не дает вводить имя пользователя:
<\/u><\/a>

Что делать ?

 Отправлено: 27.08.10 11:30. Заголовок: Andrey пишет: На ко..

Andrey пишет:

цитата:

На компе Windows XP Home

Вот это и есть проблема.

цитата:

Что делать ?

Имхо, ничего ты не сделаешь.

PS: ... хотя надо еще подумать...

 Отправлено: 27.08.10 12:06. Заголовок: PSP пишет: PS: .....

PSP пишет:

цитата:

PS: ... хотя надо еще подумать...

Похоже нужно что то в реестре "хакнуть" , но это конечно не выход :)

 Отправлено: 27.08.10 13:00. Заголовок: Андрей, выполни: con..

Андрей, выполни: control userpasswords2. Что винда нарисовала?

 Отправлено: 27.08.10 21:50. Заголовок: Обломс..... До понед..

Обломс..... До понедельника. Комп недоступен.

 Отправлено: 30.08.10 14:08. Заголовок: PSP пишет: Андрей, ..

PSP пишет:

цитата:

Андрей, выполни: control userpasswords2. Что винда нарисовала?

Вот это:
<\/u><\/a>

И что дальше ?

 Отправлено: 30.08.10 16:37. Заголовок: Andrey пишет: И что..

Andrey пишет:

цитата:

И что дальше ?

Скажи, а эта фича только на компах с Home Edition?

 Отправлено: 30.08.10 16:44. Заголовок: PS. И еще: проверь, ..

PS. И еще: проверь, есть ли на этих компах учетка "Гость". Если есть и выключена - включи.

 Отправлено: 30.08.10 17:57. Заголовок: PSP пишет: Скажи, а..

PSP пишет:

цитата:

Скажи, а эта фича только на компах с Home Edition?

По всей видимости ДА !
Попробовать не смогу, комп уже недоступен. До завтра !

 Отправлено: 30.08.10 17:59. Заголовок: Pasha А нельзя ли ..

Pasha
А нельзя ли "отвязать" эту функцию от НАСТРОЕК WINDOWS ?

 Отправлено: 01.09.10 16:07. Заголовок: PSP пишет: И еще: п..

PSP пишет:

цитата:

И еще: проверь, есть ли на этих компах учетка "Гость". Если есть и выключена - включи.

Включил ! Все равно не работает !

Взял пример в MiniGUI\SAMPLES\Advanced\GetPassword - работает !
Значит что-то в моем исходнике. Буду разбираться.

 Отправлено: 16.12.10 13:49. Заголовок: Всем привет ! Возвра..

Всем привет !
Возвращаюсь к проблеме "нет возможности ввода пользователя" в графу ПОЛЬЗОВАТЕЛЬ: !

Взял пример в MiniGUI\SAMPLES\Advanced\GetPassword - работает !
Мой нет.

Решил переделать пример из папки GetPassword на хХарбор терминал GTWIN !
Столкнулся с С-ными ошибками.

Помогите, кто может ....
Пример здесь http://files.mail.ru/EPFUX9<\/u><\/a>

 Отправлено: 16.12.10 14:04. Заголовок: Обьявление static-ст..

Обьявление static-структуры

static const HB_GC_FUNCS s_gcCREDUI_INFOFuncs =
{
hb_CREDUI_INFO_Destructor,
hb_gcDummyMark
};

надо перенести перед первой функцией
а что такое

hb_CREDUI_INFO_Destructor,
hb_gcDummyMark

?
Эти функции нигде не обьявлены

 Отправлено: 16.12.10 14:33. Заголовок: Pasha пишет: Эти фу..

Pasha пишет:

цитата:

Эти функции нигде не обьявлены

Так не знаю где взять. Я это пример из папки МиниГУи взял.

Подправь пожалуйста чтоб заработал этот пример.
А пароль не везде работает ....

 Отправлено: 16.12.10 14:49. Заголовок: Andrey пишет: Так н..

Andrey пишет:

цитата:

Так не знаю где взять. Я это пример из папки МиниГУи взял.

так в примере нет структуры s_gcCREDUI_INFOFuncs

 Отправлено: 16.12.10 14:53. Заголовок: Pasha пишет: так в ..

Pasha пишет:

цитата:

так в примере нет структуры s_gcCREDUI_INFOFuncs

А в МиниГуи он собирается. Для меня это загадка ...

 Отправлено: 16.12.10 15:35. Заголовок: Вот отдельный пример..

Вот отдельный пример, который "не работает" на некоторых компах. http://files.mail.ru/GQSPX7<\/u><\/a>
Т.е. в графу USER: ничего нельзя ввести !

Может здесь ЧТО-ТО подкрутить можно ?

 Отправлено: 15.05.12 19:00. Заголовок: Всем привет ! Опять ..

Всем привет !
Опять возвращаюсь к проблеме "нет возможности ввода пользователя" в графу ПОЛЬЗОВАТЕЛЬ: !
Сделали сетку в другом городе, моя программа не пускает ввести ЛОГИН пользователя.

В качестве СЕРВЕРА WinXP Prof SP2, в качестве клиента где нельзя ввести пользователя - WinXP Home SP3.
Что можно подкрутить в сети ?
Или что можно подкрутить в исходнике ? - исходник здесь http://files.mail.ru/GYVUYV

 Отправлено: 28.06.13 16:43. Заголовок: Andrey А сваяй свой..

Andrey
А сваяй свой диалог , пример тут svn\harbour-trunk\harbour\contrib\hbwin\tests\dlg.prg

 Отправлено: 28.06.13 17:59. Заголовок: Dima пишет: А сваяй..

Dima пишет:

цитата:

А сваяй свой диалог , пример тут svn\harbour-trunk\harbour\contrib\hbwin\tests\dlg.prg

У меня хХарбор 1.0 и 1.2 , на Харбор пока еще не перешел... Нехватка времени...

 Отправлено: 28.06.13 18:04. Заголовок: Andrey И зря он пош..

Andrey
И зря он пошустрее будет и стабильнее. Я перешел легко на него как с Clipper так и с Xharbour.

 Отправлено: 28.06.13 19:16. Заголовок: Dima пишет: А сваяй..

Dima пишет:

цитата:

А сваяй свой диалог , пример тут svn\harbour-trunk\harbour\contrib\hbwin\tests\dlg.prg

Я жду от тебя пример диалога !

 Отправлено: 28.06.13 20:58. Заголовок: Andrey пишет: Я жду..

Andrey пишет:

цитата:

Я жду от тебя пример диалога !

Чес слово не поняв о чем ты ;)
DLG.PRG и DLG.RC есть , разбирай и осмысливай.