如何创建VPN的拨号连接（在DELPHI）(100分)

就是不使用windows自带的建立新连接。

guanzhu

我已经解决了！

[?]

多人接受答案了。

那您能不能帖出来给大家看看啊

VC example:

PTCHAR szEntryName = TEXT("My VPN Connection");
RASENTRY rasEntry;
DWORD rasEntrySize;

rasEntrySize = sizeof(rasEntry);
memset(&rasEntry, 0, sizeof(rasEntry));
rasEntry.dwSize = sizeof(rasEntry);
rasEntry.dwfOptions = RASEO_RequireMsEncryptedPw | RASEO_RequireDataEncryption;
_tcscpy(rasEntry.szLocalPhoneNumber, TEXT("MyPPTPServerName"));
_tcscpy(rasEntry.szDeviceType, RASDT_Vpn);
_tcscpy(rasEntry.szDeviceName, TEXT("RAS VPN Line 0"));

dwResult = RasSetEntryProperties(NULL, szEntryName, &rasEntry, sizeof(rasEntry), NULL, 0);
if (dwResult != 0)
{
NKDbgPrintfW(L"RasSetEntryProperties %s failed error=%d/n", szEntryName, dwResult);
}

喂，大哥不能这么给分，这让我有作弊嫌疑 []