vpn連接程序hta版實現(xiàn)代碼（修改）

當(dāng)前位置：首頁 > 范文|應(yīng)用文 > IT技術(shù)專欄 > 腳本欄目

來源：易賢網(wǎng) 閱讀：1435 次日期：2014-08-12 16:46:31

溫馨提示：易賢網(wǎng)小編為您整理了“vpn連接程序hta版實現(xiàn)代碼（修改）”,方便廣大網(wǎng)友查閱！

代碼如下:

<HTA:APPLICATION

ID="MySampleHTA"

Caption="yes"

SCROLL="auto"

border="none"

borderStyle="static"

SINGLEINSTANCE="yes"

maximizebutton="no"

BORDER="no"

icon="dxdiag.exe">

<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>

<button id="ipshow" onclick=vbs:show>當(dāng)前ip顯示</button>

<button id="vpnshow" onclick=vbs:vpnshow>vpn列表</button>

</body>

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 '先確定還沒有到達(dá)結(jié)尾的位置

Content = txt.ReadAll '讀取整個文件的數(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列表，一行一個，可以在每行里加說明" & vbcrlf

msg = msg & "復(fù)制IP會自動粘貼到ip框里，是否成功的話，請看ip顯示：" & vbcrlf

alert msg

end sub

</SCRIPT>

更多信息請查看IT技術(shù)專欄

上一篇：XMLDOM下載者生成器代碼(xmldown.hta)

下一篇：javascript操作xml(增刪改查)例子代碼hta版

易賢網(wǎng)手機(jī)網(wǎng)站地址：vpn連接程序hta版實現(xiàn)代碼（修改）

由于各方面情況的不斷調(diào)整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考，敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)！

相關(guān)閱讀腳本欄目

Bottle框架中的裝飾器類和描述符應(yīng)用詳解10月30日

Python探索之SocketServer詳解10月30日

Python探索之實現(xiàn)一個簡單的HTTP服務(wù)器10月30日

python探索之BaseHTTPServer-實現(xiàn)Web服務(wù)器介紹10月30日

13個最常用的Python深度學(xué)習(xí)庫介紹10月30日

深入理解Python中的*重復(fù)運算符10月30日

python logging日志模塊詳解10月30日

System表空間不足的報警問題淺析10月22日

Android開發(fā)自定義TextView省略號樣式的方法10月22日

MySQL 清除表空間碎片的實例詳解10月22日

Ubuntu下MySQL安裝及配置遠(yuǎn)程登錄教程10月22日

Python 2.x如何設(shè)置命令執(zhí)行的超時時間實例10月22日

windows 64位下redis安裝教程10月22日

Android 自定義 HorizontalScrollView 打造多圖片OOM 的橫向滑動效果10月22日

淺談Node Inspector 代理實現(xiàn)10月22日

java web開發(fā)之購物車功能實現(xiàn)示例代碼10月22日

Android開發(fā)中GridView用法示例10月22日

Django ORM框架的定時任務(wù)如何使用詳解10月22日

SpringMail使用過程中的報錯解決辦法10月22日

Android 使用自定義RecyclerView控件實現(xiàn)Gallery效果10月22日

易賢網(wǎng)移動網(wǎng)站

2025國考·省考課程試聽報名

報班類型
姓名
手機(jī)號
驗證碼

午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线