RasApi, vpn, проблема с размером структуры

[MalCer]

Здраствуйте.
Задача создать vpn-подключение средствами ras. Много читал про то как это сделать. В результате появился такой код:

#include <windows.h>
#include <ras.h>
#include <tchar.h>

#pragma comment (lib, "RASAPI32.lib")

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                   LPSTR lpCmdLine, int nCmdShow)
{

	RASENTRYW  re;
    DWORD     dwFlags;
    DWORD     dwFlags2;
	DWORD     dwSize;

    dwSize = sizeof(RASENTRY);
	memset(&re, 0, dwSize);

    dwFlags = RASEO_PreviewUserPw |RASEO_ModemLights |RASEO_ShowDialingProgress |
	          RASEO_RemoteDefaultGateway |RASEO_RequireEncryptedPw |
              RASEO_RequireDataEncryption |RASEO_RequireMsEncryptedPw;

    dwFlags2 = RASEO2_DontNegotiateMultilink | RASEO2_ReconnectIfDropped;

	re.dwSize = dwSize;

    re.dwfOptions =dwFlags;
    re.dwfOptions2 = dwFlags2;

	re.dwfNetProtocols = RASNP_Ip;
	re.dwFramingProtocol = RASFP_Ppp;
    re.dwType=RASET_Vpn;
	re.dwVpnStrategy = VS_Default;
	re.dwEncryptionType = ET_None;
	re.dwDialMode = RASEDM_DialAll;

    re.dwRedialCount = 3;
    re.dwRedialPause = 60;

    lstrcpyW(re.szDeviceType, _T("vpn"));
    lstrcpyW(re.szLocalPhoneNumber, _T("my.vpn.server.ru"));

	if (RasSetEntryPropertiesW(NULL, _T("myVPN"), &re,dwSize, NULL, 0))
	{

	   MessageBox(0,_T("ошибка RasSetEntryProperties"), 0,MB_ICONWARNING);
	}
	   else MessageBox(0,_T("подключение создалось"),_T("Ok"),MB_OK);

	return 0;
}

Но, функция RasSetEntryPropertiesW возвращает ошибку 632(278h), т.е. не правильно передается размер структуры. В самом коде ошибок и логике нет. Подскажите, почему такая ошибка и как это исправить?

добавленно:
ОС: WinXp
компилятор: VisualStudio 2008

[Пепел Феникса]

dwSize = sizeof(RASENTRY)

почему типы разные?

#include <windows.h>
#include <ras.h>
#include <tchar.h>

#pragma comment (lib, "RASAPI32.lib")

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                   LPSTR lpCmdLine, int nCmdShow)
{

	RASENTRYW  re;
	memset(&re, 0, sizeof(re));
	re.dwSize = sizeof(re);
    re.dwfOptions =RASEO_PreviewUserPw |RASEO_ModemLights |RASEO_ShowDialingProgress |
	          RASEO_RemoteDefaultGateway |RASEO_RequireEncryptedPw |
              RASEO_RequireDataEncryption |RASEO_RequireMsEncryptedPw;
    re.dwfOptions2 = RASEO2_DontNegotiateMultilink | RASEO2_ReconnectIfDropped;
	re.dwfNetProtocols = RASNP_Ip;
	re.dwFramingProtocol = RASFP_Ppp;
    re.dwType=RASET_Vpn;
	re.dwVpnStrategy = VS_Default;
	re.dwEncryptionType = ET_None;
	re.dwDialMode = RASEDM_DialAll;
    re.dwRedialCount = 3;
    re.dwRedialPause = 60;
    lstrcpyW(re.szDeviceType, _T("vpn"));
    lstrcpyW(re.szLocalPhoneNumber, _T("my.vpn.server.ru"));
	if (RasSetEntryPropertiesW(NULL, _T("myVPN"), &re,dwSize, NULL, 0))
	{

	   MessageBox(0,_T("ошибка RasSetEntryProperties"), 0,MB_ICONWARNING);
	}
	   else MessageBox(0,_T("подключение создалось"),_T("Ok"),MB_OK);
	return 0;
}

попробуйте так.

[MalCer]

так тоже не работает. Есть идеи?

[f.hump]

думаю стоит пройтись по списку обязательных полей RASENTRY (http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx).

[MalCer]

Спасибо за ответ. Попробовал как вы сказали, добавил

	lstrcpyW(re.szDeviceName, RASDT_Vpn);

Результат к сожалению все тот же :-)

[f.hump]

ну, тогда рекоммендую воспользоваться RasGetEntryProperties для определения размера буфера.

например:

RasGetEntryProperties(0,0,0,&bufSiz e,0,0);

потом, наверное, проверить, что bufSize не 0, и передать его в RasSetEntryProperties

[MalCer]

Я не понял смысла, если честно Так что ли?

RasGetEntryProperties(0, 0, 0, &dwSize, 0, 0);
if (dwSize == 0)
{
    MessageBox(0,_T("неудача"), 0,MB_ICONWARNING);
}
else
	if (RasSetEntryPropertiesW(NULL, _T("myVPN"), &re,dwSize, NULL, 0))
{
....
}

Тогда буфер в любом случае будет не ненулевым

[f.hump]

да. в инструкции были намеки на какие-то различия в версиях структуры, поэтому, на мой взгляд, спросить какой размер буфера нужен - неплохой вариант.
а re.dwSize инициализировать с sizeof(RASENTRY)

[MalCer]

f.hump, огромное спасибо!!! Прям как вы и сказали на счет буфера. Работающий код прилагаю:

#include <windows.h>
#include <ras.h>
#include <tchar.h>

#pragma comment (lib, "RASAPI32.lib")

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                   LPSTR lpCmdLine, int nCmdShow)
{
	RASENTRYW  re;
    DWORD      dwFlags;
    DWORD      dwFlags2;
	DWORD      dwSize;
	DWORD      SizeInfo;

    dwSize = sizeof(RASENTRY);

	RasGetEntryProperties(0, 0, 0, &SizeInfo, 0, 0);
   if (SizeInfo < dwSize)
   {
	   dwSize = SizeInfo;
   }


	memset(&re, 0, dwSize);

    dwFlags = RASEO_PreviewUserPw |RASEO_ModemLights |RASEO_ShowDialingProgress |
	          RASEO_RemoteDefaultGateway |RASEO_RequireEncryptedPw |
              RASEO_RequireDataEncryption |RASEO_RequireMsEncryptedPw;

    dwFlags2 = RASEO2_DontNegotiateMultilink | RASEO2_ReconnectIfDropped;

	re.dwSize = dwSize;

    re.dwfOptions =dwFlags;
    re.dwfOptions2 = dwFlags2;

	re.dwfNetProtocols = RASNP_Ip;
	re.dwFramingProtocol = RASFP_Ppp;
    re.dwType=RASET_Vpn;
	re.dwVpnStrategy = VS_Default;
	re.dwEncryptionType = ET_Optional;
	re.dwDialMode = RASEDM_DialAll;

    re.dwRedialCount = 3;
    re.dwRedialPause = 60;

    lstrcpyW(re.szDeviceType, _T("vpn"));
    lstrcpyW(re.szLocalPhoneNumber, _T("my.vpn.server.ru"));
	lstrcpyW(re.szDeviceName, RASDT_Vpn);

	if (RasSetEntryPropertiesW(NULL, _T("myVPN"), &re,dwSize, NULL, 0))
	{

	   MessageBox(0,_T("ошибка RasSetEntryProperties"), 0,MB_ICONWARNING);
	}
	   else MessageBox(0,_T("подключение создалось"),_T("Ok"),MB_OK);

	return 0;
}

[LEX38RUS]

Народ кто нибудь может помочь перевести код на PureBasic! Как только не пробовал, но всегда возврощает код ошибки 623
Если надо могу выложить то, как я пробовал переводить!