代码如下:
<hta: التطبيق
id = "mysamplehta"
Caption = "نعم"
Scroll = "Auto"
الحدود = "لا شيء"
BorderStyle = "Static"
SingleInstance = "نعم"
MailasizedButton = "لا"
الحدود = "لا"
icon = "dxdiag.exe">
<title> VPN 连接程序 HTA 版 </itlem>
<style>
جسم
{
حجم الخط: 12 ؛
الخلفية: #Dadada ؛
الهامش اليساري: 5 ؛
}
مدخل
{
العرض: 50 ؛
الفائض: مرئي ؛
الحدود: 1 بكسل الصلبة الصلبة.
خلفية اللون: #CCCCCC ؛
المؤشر: النص ؛
}
زر
{
الحدود: 1 بكسل رمادي صلب.
العرض: 70 ؛
الهامش اليساري: 2 ؛
المؤشر: اليد.
حجم الخط: 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"> </pection> <br>
<button id = "ok" onClick = vbs: conn> 链接 </utton>
<button id = "nok" onClick = vbs: dconn> 断开 </utton>
<button id = "ipshow" onClick = vbs: show> 当前 ip 显示 </utton>
<button id = "vpnshow" onClick = vbs: vpnshow> vpn 列表 </utton>
<button id = "vpnhelp" onClick = vbs: showhelp> 帮助 </utton> <br>
<div id = "url"> </viv>
</body>
<script language = "vbscript">
تعيين Oshell = createObject ("wscript.shell")
sub window_onload
Window.Resizeto 450،380
Window.Moveto 300 ، 300
ينسخ
نهاية الفرعية
نسخة فرعية
x ("IP"). value = me.clipboarddata.getData ("text")
setTimeout "نسخة" ، 2000
نهاية الفرعية
الوظيفة X (OBJ)
set x = document.getElementById (OBJ)
وظيفة نهاية
الفرعية dconn
cmd = oshell.exec ("rasdial /d"). stdout.readall ()
x ("url"). innerhtml = cmd
نهاية الفرعية
عرض فرعي
x ("url"). innerhtml = "<br> <br> <frame src = http: //www.ip138.com/ip2city.asp> </frame>"
نهاية الفرعية
Sub Conn
TempFile = "C:/TMP ~ 386"
إذا findfile (tempfile) = خطأ ثم
الكتابة tempfile ، x ("IP"). القيمة
x ("url"). innerhtml = "إنشاء ملف pbk ........ OK ， 连接中"
آخر
الكتابة tempfile ، x ("IP"). القيمة
x ("url"). innerhtml = "pbk file 存在 ........ OK ， 连接中"
إنهاء إذا
x ("url"). innerhtml = oshell.exec ("rasdial pvpn" & x ("id"). value &
نهاية الفرعية
الفرعية VPNSHOW
set fso = createObject ("scripting.filesystemObject")
file = "ip.txt"
تعيين txt = fso.opentextFile (ملف)
إذا لم يكن txt.atendofstream ثم '先确定还没有到达结尾的位置
المحتوى = txt.readall '读取整个文件的数据
خطوط = استبدال (المحتوى ، vbcrlf ، "<br>") '将文本内分行字符 vbcrlf 换成 html 换行标记 "<br>"
x ("url"). innerhtml = الخطوط
إنهاء إذا
نهاية الفرعية
وظيفة FindFile (STR)
set fso = createObject ("scripting.filesystemObject")