暖暖www视频免费高清最新期,丝袜高跟鞋ol中文字幕

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

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

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

溫馨提示：易賢網(wǎng)小編為您整理了“vpn連接程序hta版實(shí)現(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 '讀取整個(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è)，可以在每行里加說明" & vbcrlf

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

alert msg

end sub

</SCRIPT>

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

更多信息請(qǐng)查看腳本欄目

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

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

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

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

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

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

Python探索之SocketServer詳解10月30日

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

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

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

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

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

System表空間不足的報(bào)警問題淺析10月22日

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

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

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

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

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

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

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

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

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

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

SpringMail使用過程中的報(bào)錯(cuò)解決辦法10月22日

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

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

2025國(guó)考·省考課程試聽報(bào)名

報(bào)班類型
姓名
手機(jī)號(hào)
驗(yàn)證碼