代码如何设置：VPN -- PreSharedKey？？
代码创建、连接VPN连接。
使用 L2TP (即：RASENTRY.dwVpnStrategy 设为&VS_L2tpOnly)，RASENTRY.dwfOptions2 添加属性
RASEO2_UsePreSharedKey ，此时在连接时就需要 PreSharedKey ，但是我一直找不到，在代码里设置 PreSharedKey 的方式 ...
PS：界面上设置 PreSharedKey 的情况如图：
请登录到我的Blog参考 VB创建VPN拨号连接(自动勾选且填充预共享密钥)
里面有完整代码以及相关注释,祝你成功！
已標示為解答
没人知道么？
请登录到我的Blog参考 VB创建VPN拨号连接(自动勾选且填充预共享密钥)
里面有完整代码以及相关注释,祝你成功！
已標示為解答
这样的情况，服务器端该如何设置？？当前位置：
如何通过代码方式建立 VPN 连接？
如何通过代码方式建立 VPN 连接？
来源：网络整理&&&&&时间: 3:01:01&&&&&关键词:
关于网友提出的“ 如何通过代码方式建立 VPN 连接？
”问题疑问，本网通过在网上对“ 如何通过代码方式建立 VPN 连接？
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 如何通过代码方式建立 VPN 连接？
需求是这样的：
不希望用户通过创建连接方式建立&VPN&连接，并连接到&VPN&Server
请问是不是可以通过代码方式直接连上&VPN&Server&?解决方案1:
1.RasSetEntryProperties()设置拨号项各项参数&
2.RasSetCredentials()将VPN帐号,密码填入拨号项&
3.RasGetEntryDialParams()得到拨号项的参数&
4.RasDial()进入VPN拨号&
如果你的VPN拨号已经保存在电话薄中,那么上面第二号可以省略.
解决方案2:
VPN只是网络运营商提供的一种服务，到你哪里还是网络编程，没有任何区别。
就像IE一样，它将不在乎网络是如何连接的，你可以通过有线拨号，无线拨号，局域网等。
以上介绍了“ 如何通过代码方式建立 VPN 连接？”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3115534.html
上一篇： 下一篇：vpn连接程序hta版实现代码（修改）
来源：易贤网&& 阅读：124 次&&日期： 10:38:02
温馨提示：易贤网小编为您整理了“vpn连接程序hta版实现代码（修改）”,方便广大网友查阅！
&hta:application
id=mysamplehta
caption=yes
scroll=auto
border=none
borderstyle=static
singleinstance=yes
maximizebutton=no
icon=dxdiag.exe&
&title&vpn 连接程序 hta版&/title&
font-size:12;
background: #
margin-left:5;
background-color:#
margin-left:2;
font-size:12;
filter:progid:dximagetransform.microsoft.gradient(startcolorstr='#eaeaff', endcolorstr='#618fff', gradienttype='0');
&input id=id size=30 value=mjj&&/input&&br&
&input id=pass size=30 value=mjj&&/input&&br&
&input id=ip size=50 value=vpn的ip &&/input&&br&
&button id=ok onclick=vbs:conn&链接&/button&
&button id=nok onclick=vbs:dconn&断开&/button&
&button id=ipshow onclick=vbs:show&当前ip显示&/button&
&button id=vpnshow onclick=vbs:vpnshow&vpn列表&/button&
&button id=vpnhelp onclick=vbs:showhelp&帮助&/button&&br&
&div id=url&&/div&
&script language=vbscript&
set oshell = createobject(wscript.shell)
sub window_onload
window.resizeto 450,380
window.moveto 300, 300
x(ip).value=me.clipboarddata.getdata(text)
settimeout copy, 2000
function x(obj)
set x=document.getelementbyid(obj)
end function
cmd=oshell.exec(rasdial /d).stdout.readall()
x(url).innerhtml=cmd
x(url).innerhtml= &br&&br&&iframe src=http://www.ip138.com/ip2city.asp&&/iframe&
tempfile=c:\tmp~386
if findfile(tempfile) = false then
writef tempfile,x(ip).value
x(url).innerhtml =create pbk file ........ok，连接中
writef tempfile,x(ip).value
x(url).innerhtml =pbk file 存在........ok，连接中
x(url).innerhtml= oshell.exec(rasdial pvpn &x(id).value& &x(pass).value& /phonebook:&tempfile).stdout.readall()
sub vpnshow
set fso = createobject(scripting.filesystemobject)
file = ip.txt
set txt = fso.opentextfile(file)
if not txt.atendofstream then '先确定还没有到达结尾的位置
content = txt.readall '读取整个文件的数据
lines = replace(content, vbcrlf, &br&) '将文本内分行字符vbcrlf换成html换行标记&br&
x(url).innerhtml= lines
function findfile(str)
set fso = createobject(scripting.filesystemobject)
if fso.fileexists(str) then
findfile=true
findfile=false
end function
function writef(pbk_file,ip)
set fso = createobject(scripting.filesystemobject)
with fso.opentextfile(pbk_file,2,true)
.writeline [pvpn]
.writeline encoding=1
.writeline type=2
.writeline autologon=0
.writeline userascredentials=1
.writeline dialparamsuid=546750
.writeline guid=76c5d8ff120c6a4f8e63f0b1e5d74ad4
.writeline baseprotocol=1
.writeline vpnstrategy=2
.writeline excludedprotocols=0
.writeline lcpextensions=1
.writeline dataencryption=8
.writeline swcompression=1
.writeline negotiatemultilinkalways=0
.writeline skipnwcwarning=0
.writeline skipdownleveldialog=0
.writeline skipdoubledialdialog=0
.writeline dialmode=1
.writeline dialpercent=75
.writeline dialseconds=120
.writeline hanguppercent=10
.writeline hangupseconds=120
.writeline overridepref=15
.writeline redialattempts=3
.writeline redialseconds=60
.writeline idledisconnectseconds=0
.writeline redialonlinkfailure=0
.writeline callbackmode=0
.writeline customdialdll=
.writeline customdialfunc=
.writeline customrasdialdll=
.writeline authenticateserver=0
.writeline sharemsfileprint=1
.writeline bindmsnetclient=1
.writeline sharedphonenumbers=0
.writeline globaldevicesettings=0
.writeline prerequisiteentry=
.writeline prerequisitepbk=
.writeline preferredport=vpn4-0
.writeline preferreddevice=wan miniport (l2tp)
.writeline preferredbps=0
.writeline preferredhwflow=1
.writeline preferredprotocol=1
.writeline preferredcompression=1
.writeline preferredspeaker=1
.writeline preferredmdmprotocol=0
.writeline previewuserpw=1
.writeline previewdomain=0
.writeline previewphonenumber=0
.writeline showdialingprogress=1
.writeline showmonitoriconintaskbar=1
.writeline customauthkey=-1
.writeline authrestrictions=608
.writeline typicalauth=2
.writeline ipprioritizeremote=1
.writeline ipheadercompression=0
.writeline ipaddress=0.0.0.0
.writeline ipdnsaddress=0.0.0.0
.writeline ipdns2address=0.0.0.0
.writeline ipwinsaddress=0.0.0.0
.writeline ipwins2address=0.0.0.0
.writeline ipassign=1
.writeline ipnameassign=1
.writeline ipframesize=1006
.writeline ipdnsflags=0
.writeline ipnbtflags=1
.writeline tcpwindowsize=0
.writeline useflags=0
.writeline ipsecflags=0
.writeline ipdnssuffix=
.writeline
.writeline netcomponents=
.writeline ms_server=1
.writeline ms_msclient=1
.writeline ms_psched=1
.writeline
.writeline media=rastapi
.writeline port=vpn4-0
.writeline device=wan miniport (l2tp)
.writeline
.writeline device=vpn
.writeline phonenumber=&x(ip).value
.writeline areacode=
.writeline countrycode=1
.writeline countryid=1
.writeline usedialingrules=0
.writeline comment=
.writeline lastselectedphone=0
.writeline promotealternates=0
.writeline trynextalternateonfail=1
.writeline
set fso = nothing
end function
sub showhelp
msg = 在同目录下建立ip.txt & vbcrlf
msg = msg & ------------------------------------------------ & vbcrlf
msg = msg & ip.txt里是vpn的ip列表，一行一个，可以在每行里加说明 & vbcrlf
msg = msg & 复制ip会自动粘贴到ip框里，是否成功的话，请看ip显示： & vbcrlf
更多信息请查看
【】&&&&&【点此处查询各地各类考试咨询QQ号码及交流群】
易贤网手机网站地址：
由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！
相关阅读 & & &
&&& &nbsp&nbsp&nbsp会员注册
本站不参与评论！（）
自觉遵守：爱国、守法、自律、真实、文明的原则
尊重网上道德，遵守中华人民共和国各项有关法律法规
严禁发表危害国家安全，破坏民族团结、国家宗教政策和社会稳定，含侮辱、诽谤、教唆、淫秽等内容的评论
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
您在本站发表的评论，本站有权保留、转载、引用或者删除
参与本评论即表明您已经阅读并接受上述条款>> VPN及其配置示例
VPN及其配置示例
所属分类：
下载地址：
VPNandconfiguratione文件大小：9.17 kB
分享有礼！ 》
请点击右侧的分享按钮，把本代码分享到各社交媒体。
通过您的分享链接访问Codeforge，每来2个新的IP，您将获得0.1 积分的奖励。
通过您的分享链接，每成功注册一个用户，该用户在Codeforge上所获得的每1个积分，您都将获得0.2 积分的分成奖励。
VPN及其配置示例-VPN configuration examples and
Sponsored links
源码文件列表
温馨提示： 点击源码文件名可预览文件内容哦 ^_^
VPN及其配置示例.doc51.00 kB15-02-03 09:21
1,008.00 B12-03-04 10:16
（提交有效评论获得积分）
评论内容不能少于15个字，不要超出160个字。
评价成功，多谢！
下载VPNandconfiguratione
CodeForge积分（原CF币）全新升级，功能更强大，使用更便捷，不仅可以用来下载海量源代码马上还可兑换精美小礼品了
您的积分不足，优惠套餐快速获取 30 积分
10积分 / ￥100
30积分 / ￥200原价 ￥300 元
100积分 / ￥500原价 ￥1000 元
订单支付完成后，积分将自动加入到您的账号。以下是优惠期的人民币价格，优惠期过后将恢复美元价格。
支付宝支付宝付款
微信钱包微信付款
更多付款方式：、
您本次下载所消耗的积分将转交上传作者。
同一源码，30天内重复下载，只扣除一次积分。
鲁ICP备号-3 runtime:Elapsed:210.199ms - init:0.1;find:1.1;t:11.7;tags:92.1;related:22.6;comment:0.4; 27.69
登录 CodeForge
还没有CodeForge账号？
Switch to the English version?
^_^"呃 ...
Sorry!这位大神很神秘，未开通博客呢，请浏览一下其他的吧iphone6vpn怎么设置 苹果iphone6vpn设置方法流程
系列软件最新版本　　iphone6vpn怎么设置？很多iphone用户想要登国外网站看视频或者照片，这就需要vpn设置，下文介绍苹果iphone6vpn设置方法流程，一起和小乐哥来了解下吧！苹果iphone6vpn设置方法流程： 　　首先需要申请帐号，只要有VPN帐号密码即可，有了之后，我们还需要准备一款现在最流行的苹果iPhone6/iPhone6Plus　　设置方法如下：　　1、然后打开菜单键，点击设置　　2、选择通用，点击进入　　3、进入通用会看到一个VPN设置。如图，选择进入　　4、然后在选择添加VPN配置。如图　　5、写的很详细的，注意代理类型选择自动url不用填写　　6、设置好后就可以使用手机上的facebook了。是不是很简单？赶紧来试试吧！&
最新资讯离线随时看
聊天吐槽赢奖品
相关软件：
大小：1.95MB
授权：免费
大小：8.8 MB
授权：收费