代码如下:
<HTA: Aplikasi
Id = "mysamphehta"
Keterangan = "Ya"
Gulir = "otomatis"
Border = "None"
Borderstyle = "statis"
SingleInstance = "Ya"
MaximizeButton = "Tidak"
Border = "Tidak"
icon = "dxdiag.exe">
<title> vpn 连接程序 hta 版 </ title>
<tyle>
tubuh
{
Ukuran font: 12;
Latar belakang: #dadada;
margin-kiri: 5;
}
masukan
{
Lebar: 50;
meluap: terlihat;
Border: 1px Solid Lightblue;
Latar Belakang-Color: #CCCCCC;
kursor: teks;
}
tombol
{
Perbatasan: 1px Solid Grey;
Lebar: 70;
margin-kiri: 2;
Kursor: Tangan;
Ukuran font: 12;
Filter: progid: dximagetransform.microsoft.gradient (startColorStr = '#eaaff', endcolorStr = '#618fff', gradientType = '0');
}
</tyle>
<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>
<tombol id = "OK" ONCLICK = VBS: Conn> 链接 </button>
<tombol id = "nok" onclick = vbs: dconn> 断开 </button>
<tombol id = "ipshow" onclick = vbs: show> 当前 ip 显示 </button>
<tombol id = "vpnshow" onClick = vbs: vpnshow> vpn 列表 </button>
<tombol id = "vpnhelp" onClick = vbs: showhelp> 帮助 </button> <br>
<Div id = "url"> </div>
</body>
<Bahasa skrip = "vbscript">
Set oshell = createObject ("wscript.shell")
Sub window_onload
Window.Resizeto 450.380
Window.Moveto 300, 300
menyalin
Akhir sub
Sub copy
x ("ip"). value = me.clipboarddata.getData ("teks")
SetTimeout "Copy", 2000
Akhir sub
Fungsi X (OBJ)
Set x = document.geteLementById (obj)
Fungsi akhir
Sub dconn
cmd = oshell.exec ("rasdial /d"). stdout.readall ()
x ("url"). innerhtml = cmd
Akhir sub
Sub show
x ("url"). innerHtml = "<br> <br> <iframe src = http: //www.ip138.com/ip2city.asp> </iframe>"
Akhir sub
Sub Conn
Tempfile = "C:/TMP ~ 386"
Jika findFile (tempfile) = false maka
Writef Tempfile, X ("IP"). Nilai
x ("url"). innerHtml = "Buat file pbk ........ ok ， 连接中"
Kalau tidak
Writef Tempfile, X ("IP"). Nilai
x ("url"). innerHtml = "file pbk 存在 ........ ok ， 连接中"
Akhiri jika
x ("url"). innerhtml = oshell.exec ("rasdial pvpn" & x ("id"). value & "" & x ("pass"). Nilai & " /buku telepon:" & tempfile) .stdout.readall ()
Akhir sub
Sub vpnshow
Atur fso = createObject ("Scripting.filesystemObject")
File = "ip.txt"
Setel txt = fso.opentextFile (file)
Jika bukan txt.atendofstream maka '先确定还没有到达结尾的位置
Konten = txt.readall '读取整个文件的数据
Line = ganti (konten, vbcrlf, "<br>") '将文本内分行字符 vbcrlf 换成 html 换行标记 "<br>"
x ("url"). innerhtml = baris
Akhiri jika
Akhir sub
Fungsi FindFile (str)
Atur fso = createObject ("Scripting.filesystemObject")