国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > HTML > 正文

hta實現的二進制文件轉換為文本

2024-08-26 00:15:47
字體：大 中 小
來源：轉載
供稿：網友
保存為.hta運行
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 
<html> 
<head> 
<title>package file v0.1</title> 
<meta http-equiv="Content-Type" content="text/html; charset=GB2312"> 
<HTA:APPLICATION     
     ID="package file v0.1"     
     APPLICATIONNAME="package file v0.1"     
     VERSION="0.1"     
     SCROLL="no"     
     INNERBORDER="no"     
     CONTEXTMENU="yes"     
     CAPTION="yes"     
     ICON="no"     
     SHOWINTASKBAR="yes"     
     SINGLEINSTANCE="yes"     
     SYSMENU="yes"     
     MAXIMIZEBUTTON ="no" 
     WINDOWSTATE="normal" 
     NAVIGABLE="yes" 
     /> 
<SCRIPT LANGUAGE="VBScript"> 
function transfert() 
     dim filename 
     filename = document.getElementById("srcFile").value 
     if len(filename)>0 then 
             dim oReq         
             'on error resume next 
             '//創建XMLHTTP對象 
             set oReq     = CreateObject("MSXML2.XMLHTTP") 
                 oReq.open "get","file://" & filename,false 
                 oReq.send     
             ff = oReq.responseBody 
             dim u,s,kk 
             u = lenb(ff) 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 当涂县| 石柱| 东平县| 汾西县| 石阡县| 霍州市| 凌源市| 屯昌县| 诏安县| 确山县| 马尔康县| 乌兰县| 三江| 随州市| 博野县| 祁连县| 中牟县| 和顺县| 广州市| 邢台县| 独山县| 安平县| 湖口县| 达州市| 屏东市| 绥芬河市| 武鸣县| 洪洞县| 曲靖市| 成武县| 英吉沙县| 辛集市| 榆林市| 大悟县| 探索| 江都市| 武陟县| 耒阳市| 柏乡县| 米林县| 罗平县|