实现猜后台的HTA小程序的多种方法

实现猜后台的HTA小程序的多种方法
这篇文章分享实现猜后台的HTA小程序的多种方法

这篇文章分享实现猜后台的hta小程序的多种方法

<input type=text id=http size=28 style="color:888888" value="[url]http://www.haiyangtop.net[/url]"><input type=button onclick=vbs:isExist(http.value) value="检测url是否存在" style="color:888888"><div id="t"></div><script language=vbs>function isExist(url)dic="c:\dic.dic"Set fso = CreateObject("Scripting.FileSystemObject")set zidian=fso.OpenTextFile(dic,1,False)Do While zidian.AtEndOfStream <> truepath=zidian.readlineset xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET",http.value+path,false xmlhttp.send t.innerHTML = t.innerHTML&url&path&"--------"&xmlhttp.status&"<br>" loopEnd Function</script>