国产探花免费观看_亚洲丰满少妇自慰呻吟_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) 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 秭归县| 泸溪县| 雷波县| 兴文县| 永靖县| 怀集县| 婺源县| 房产| 玛纳斯县| 来凤县| 德昌县| 小金县| 盈江县| 宜兰市| 龙里县| 株洲市| 伊春市| 长武县| 格尔木市| 疏勒县| 浮梁县| 安国市| 龙州县| 北安市| 杭州市| 孟津县| 沙坪坝区| 湖口县| 九江市| 新乡市| 浙江省| 柳林县| 兴安盟| 连山| 大连市| 美姑县| 互助| 洱源县| 祁阳县| 大埔区| 玉田县|