代码如下:
<HTA: Приложение
Id = "mysamplehta"
Подпись = "Да"
Scroll = "Auto"
Border = "нет"
borderstyle = "static"
SingleInstance = "Да"
MaximizeButton = "Нет"
Border = "Нет"
icon = "dxdiag.exe">
<title> vpn 连接程序 hta 版 </title>
<style>
тело
{
размер шрифта: 12;
Фон: #Dadada;
Полевая левая: 5;
}
вход
{
Ширина: 50;
переполнение: видимо;
Граница: 1px Solid Lightblue;
фоновый цвет: #cccccc;
курсор: текст;
}
кнопка
{
Граница: 1px сплошной серый;
Ширина: 70;
Полевая левая: 2;
курсор: рука;
размер шрифта: 12;
Фильтр: Progid: dximagetransform.microsoft.gradient (startColorStr = '#eaef', endColorStr = '#618fff', gradientType = '0');
}
</style>
<тело>
<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> 断开 </button>
<button id = "ipshow" onclick = vbs: show> 当前 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">
Установить oshell = createObject ("wscript.shell")
Sub windows_onload
Window.Resizeto 450,380
Window.moveto 300, 300
копия
Конец суб
Поддато копия
x ("ip"). value = me.clipboarddata.getData ("text")
SETTIMEOUT "COPY", 2000
Конец суб
Функция x (obj)
Установите x = document.getElementById (OBJ)
Конечная функция
Sub DConn
cmd = oshell.exec ("rasdial /d"). stdout.readall ()
x ("url"). innerhtml = cmd
Конец суб
Суб -шоу
x ("url"). innerhtml = "<br> <br> <iframe src = http: //www.ip138.com/ip2city.asp> </iframe>"
Конец суб
Субп
tempfile = "c:/tmp ~ 386"
Если findfile (tempfile) = false then
writef tempfile, x ("ip"). Значение
x ("url"). innerhtml = "create pbk -файл ........ OK , 连接中"
Еще
writef tempfile, x ("ip"). Значение
x ("url"). innerhtml = "pbk file 存在 ........ ОК , 连接中"
Конец, если
x ("url"). innerhtml = oshell.exec ("rasdial pvpn" & x ("id"). Value & "" & x ("pass"). Value & " /phonebook:" & tempfile) .stdout.readall ()
Конец суб
Sub vpnshow
Установить fso = createObject ("scripting.filesystemobject")
File = "ip.txt"
Установить txt = fso.opentextfile (file)
Если не txt.atendofstream, то '先确定还没有到达结尾的位置 先确定还没有到达结尾的位置
Content = txt.readall '读取整个文件的数据
Lines = reply (content, vbcrlf, "<br>") '将文本内分行字符 vbcrlf 换成 html 换行标记 "<br>"
x ("url"). innerhtml = lines
Конец, если
Конец суб
Функция findfile (str)
Установить fso = createObject ("scripting.filesystemobject")