exe转换16进制的html保存的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)
    redim kk(u-1)
    for i=0 to u-1
    s = hex(ascb(midb(ff,i+1,1)))
    if len(s)<2 then
    s = “0” & s
    end if
    ‘kk = kk & s
    kk(i) = s
    next
    make filename,join(kk,””)
    else
    document.getElementById(“srcFile”).focus
    msgbox “请选择要压缩的文件”,16,”提示”
    end if
    end function
    function make(filename,data)
    dim htm,file
    file = mid(filename,instrrev(filename,”\”)+1)

    htm = htm & data

    dim fso,f
    dim this_file
    this_file = file & “-pf.htm”
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set f = fso.OpenTextFile(this_file, 2, True)
    f.Write htm
    msgbox “生成文件” & this_file & “成功!”,64,”生成”

    end function

    </SCRIPT>
    </head>
    <body marginleft=0 marginright=0 onload=”window.resizeTo 389,145 “>
    请选择文件:<input type=file id=”srcFile” style=”width:260px;”>[br][br]
    <input type=button value=” 转换 ” onclick=”transfert”> <input type=button value=” 关闭 ” onclick=”window.close”>
    </body>
    </html>

Leave a Reply

Leave a Reply