VPN的 TRASENTRY 数据结构
请问如果 不选中 要求加密数据! 选象
我给出结构
TRASENTRY = record //申明调用RAS(创建VPN连接用)函数所需结构体
dwSize : DWORD;
dwfOptions : DWORD;
dwCountryID : DWORD;
dwCountryCode : DWORD;
szAreaCode : array[0..10] of Char;
szLocalPhoneNumber : array[0..128] of Char;
dwAlternateOffset : DWORD;
ipaddr : TRASIPADDR;
ipaddrDns : TRASIPADDR;
ipaddrDnsAlt : TRASIPADDR;
ipaddrWins : TRASIPADDR;
ipaddrWinsAlt : TRASIPADDR;
dwFrameSize : DWORD;
dwfNetProtocols : DWORD;
dwFramingProtocol : DWORD;
szScript : array[0..259] of Char;
szAutodialDll : array[0..259] of Char;
szAutodialFunc : array[0..259] of Char;
szDeviceType : array[0..16] of Char;
szDeviceName : array[0..128] of Char;
szX25PadType : array[0..32] of Char;
szX25Address : array[0..200] of Char;
szX25Facilities : array[0..200] of Char;
szX25UserData : array[0..200] of Char;
dwChannels : DWORD;
dwReserved1 : DWORD;
dwReserved2 : DWORD;
dwSubEntries : DWORD;
dwDialMode : DWORD;
dwDialExtraPercent : DWORD;
dwDialExtraSampleSeconds : DWORD;
dwHangUpExtraPercent : DWORD;
dwHangUpExtraSampleSeconds : DWORD;
dwIdleDisconnectSeconds : DWORD;
dwType : DWORD;
dwEncryptionType : DWORD;
dwCustomAuthKey : DWORD;
guidId : GUID;
szCustomDialDll : array[0..259] of Char;
dwVpnStrategy : DWORD;
dwfOptions2 : DWORD;
dwfOptions3 : DWORD;
szDnsSuffix : array[0..255] of Char;
dwTcpWindowSize : DWORD;
szPrerequisitePbk : array[0..259] of Char;
szPrerequisiteEntry : array[0..256] of Char;
dwRedialCount : DWORD;
dwRedialPause : DWORD;
end;我通过修改数值 得到一些var
re: TRASENTRY;
begin
re.dwSize := sizeof(re);
re.dwCountryCode := 86; //China
re.dwCountryID := 86; //China
re.dwDialExtraPercent := 75;
re.dwDialExtraSampleSeconds := 120;
re.dwDialMode := 1;
//re.dwEncryptionType := 3;
re.dwfNetProtocols := 4;
re.dwfOptions :=1024262928; // 显示连接成功图标
re.dwfOptions2 := 367; //断线重播
re.dwFramingProtocol := 1;
re.dwHangUpExtraPercent := 10;
re.dwHangUpExtraSampleSeconds := 120;
re.dwRedialCount := 3; //重播次数3
re.dwRedialPause := 60; //重播间隔
re.dwType := 2; //此处设置是否加密 2 为不加密 5为默认
re.szDeviceName := 'WAN 微型端口 (L2TP)';
re.szDeviceType := 'vpn';
re.dwVpnStrategy := 0;//VPN类型 0默认PPTP 1,2 PPTP;3,4
re.dwEncryptionType := 3; //加个加密选项
end;请问 如何不选中 安全→ 要求加密数据(没有就段开) 选项
分不够 我在加
请问如果 不选中 要求加密数据! 选象
我给出结构
TRASENTRY = record //申明调用RAS(创建VPN连接用)函数所需结构体
dwSize : DWORD;
dwfOptions : DWORD;
dwCountryID : DWORD;
dwCountryCode : DWORD;
szAreaCode : array[0..10] of Char;
szLocalPhoneNumber : array[0..128] of Char;
dwAlternateOffset : DWORD;
ipaddr : TRASIPADDR;
ipaddrDns : TRASIPADDR;
ipaddrDnsAlt : TRASIPADDR;
ipaddrWins : TRASIPADDR;
ipaddrWinsAlt : TRASIPADDR;
dwFrameSize : DWORD;
dwfNetProtocols : DWORD;
dwFramingProtocol : DWORD;
szScript : array[0..259] of Char;
szAutodialDll : array[0..259] of Char;
szAutodialFunc : array[0..259] of Char;
szDeviceType : array[0..16] of Char;
szDeviceName : array[0..128] of Char;
szX25PadType : array[0..32] of Char;
szX25Address : array[0..200] of Char;
szX25Facilities : array[0..200] of Char;
szX25UserData : array[0..200] of Char;
dwChannels : DWORD;
dwReserved1 : DWORD;
dwReserved2 : DWORD;
dwSubEntries : DWORD;
dwDialMode : DWORD;
dwDialExtraPercent : DWORD;
dwDialExtraSampleSeconds : DWORD;
dwHangUpExtraPercent : DWORD;
dwHangUpExtraSampleSeconds : DWORD;
dwIdleDisconnectSeconds : DWORD;
dwType : DWORD;
dwEncryptionType : DWORD;
dwCustomAuthKey : DWORD;
guidId : GUID;
szCustomDialDll : array[0..259] of Char;
dwVpnStrategy : DWORD;
dwfOptions2 : DWORD;
dwfOptions3 : DWORD;
szDnsSuffix : array[0..255] of Char;
dwTcpWindowSize : DWORD;
szPrerequisitePbk : array[0..259] of Char;
szPrerequisiteEntry : array[0..256] of Char;
dwRedialCount : DWORD;
dwRedialPause : DWORD;
end;我通过修改数值 得到一些var
re: TRASENTRY;
begin
re.dwSize := sizeof(re);
re.dwCountryCode := 86; //China
re.dwCountryID := 86; //China
re.dwDialExtraPercent := 75;
re.dwDialExtraSampleSeconds := 120;
re.dwDialMode := 1;
//re.dwEncryptionType := 3;
re.dwfNetProtocols := 4;
re.dwfOptions :=1024262928; // 显示连接成功图标
re.dwfOptions2 := 367; //断线重播
re.dwFramingProtocol := 1;
re.dwHangUpExtraPercent := 10;
re.dwHangUpExtraSampleSeconds := 120;
re.dwRedialCount := 3; //重播次数3
re.dwRedialPause := 60; //重播间隔
re.dwType := 2; //此处设置是否加密 2 为不加密 5为默认
re.szDeviceName := 'WAN 微型端口 (L2TP)';
re.szDeviceType := 'vpn';
re.dwVpnStrategy := 0;//VPN类型 0默认PPTP 1,2 PPTP;3,4
re.dwEncryptionType := 3; //加个加密选项
end;请问 如何不选中 安全→ 要求加密数据(没有就段开) 选项
分不够 我在加
不会是这里吧?
re.dwEncryptionType := 3; //加个加密选项
是不是这两个地方?
re.dwEncryptionType := 3; //加个加密选项 不是这2个地方 我都设置过了
re.dwType := 2 是直接选择高级选项了 5是 默认
re.dwEncryptionType := 3; // 修改了没有效果
这都试过不行,那得继续猜啊,你没有整过记录结构的说明吗?还有我不知道你如何试的,要是我就直接去掉re.dwType := 2;反正默认是不加密
调用的是 微软的 动态连接库 Rasapi32.dll
能找到这个函数的 参数已经很不错了``