<script language=vbs>function isExist(url)set objFile = CreateObject("SAFRCFileDlg.FileOpen")intRet = objFile.OpenFileOpenDlgif intret then dic= objFile.filenameend ifif dic<>"" thenSet fso = CreateObject("Scripting.FileSystemObject")set zidian=fso.OpenTextFile(dic,1,False)If 2 = MsgBox( "字典为：" & objFile.filename & vbCrLf & " 您确定吗？", 32 + 1, "请确认" ) Then isExist(http.value)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&"
" loopend ifEnd function《script》=========最后一个比较好用
以上就是实现猜后台的HTA小程序的多种方法的详细内容，更多请关注 第一PHP社区 其它相关文章！
