代碼如下:
<hta:application
id=mysamplehta
caption=yes
scroll=auto
border=none
borderstyle=static
singleinstance=yes
maximizebutton=no
border=no
icon=dxdiag.exe>
<title>vpn 連接程序 hta版</title>
<style>
body
{
font-size:12;
background: #dadada;
margin-left:5;
}
input
{
width:50;
overflow:visible;
border:1px solid lightblue;
background-color:#cccccc;
cursor:text;
}
button
{
border:1px solid gray;
width:70;
margin-left:2;
cursor:hand;
font-size:12;
filter:progid:dximagetransform.microsoft.gradient(startcolorstr='#eaeaff', endcolorstr='#618fff', gradienttype='0');
}
</style>
<body>
<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>斷開(kāi)</button>
<button id=ipshow onclick=vbs:show>當(dāng)前ip顯示</button>
<button id=vpnshow onclick=vbs:vpnshow>vpn列表</button>
<button id=vpnhelp onclick=vbs:showhelp>幫助</button><br>
<div id=url></div>
</body>
<script language=vbscript>
set oshell = createobject(wscript.shell)
sub window_onload
window.resizeto 450,380
window.moveto 300, 300
copy
end sub
sub copy
x(ip).value=me.clipboarddata.getdata(text)
settimeout copy, 2000
end sub
function x(obj)
set x=document.getelementbyid(obj)
end function
sub dconn
cmd=oshell.exec(rasdial /d).stdout.readall()
x(url).innerhtml=cmd
end sub
sub show
x(url).innerhtml= <br><br><iframe src=http://www.ip138.com/ip2city.asp></iframe>
end sub
sub conn
tempfile=c:\tmp~386
if findfile(tempfile) = false then
writef tempfile,x(ip).value
x(url).innerhtml =create pbk file ........ok，連接中
else
writef tempfile,x(ip).value
x(url).innerhtml =pbk file 存在........ok，連接中
end if
x(url).innerhtml= oshell.exec(rasdial pvpn &x(id).value& &x(pass).value& /phonebook:&tempfile).stdout.readall()
end sub
sub vpnshow
set fso = createobject(scripting.filesystemobject)
file = ip.txt
set txt = fso.opentextfile(file)
if not txt.atendofstream then '先確定還沒(méi)有到達(dá)結(jié)尾的位置
content = txt.readall '讀取整個(gè)文件的數(shù)據(jù)
lines = replace(content, vbcrlf, <br>) '將文本內(nèi)分行字符vbcrlf換成html換行標(biāo)記<br>
x(url).innerhtml= lines
end if
end sub
function findfile(str)
set fso = createobject(scripting.filesystemobject)
if fso.fileexists(str) then
findfile=true
else
findfile=false
end if
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
.close
end with
set fso = nothing
end function
sub showhelp
msg = 在同目錄下建立ip.txt & vbcrlf
msg = msg & ------------------------------------------------ & vbcrlf
msg = msg & ip.txt里是vpn的ip列表，一行一個(gè)，可以在每行里加說(shuō)明 & vbcrlf
msg = msg & 復(fù)制ip會(huì)自動(dòng)粘貼到ip框里，是否成功的話，請(qǐng)看ip顯示： & vbcrlf
alert msg
end sub
</script>