exe转换16进制的html保存的hta实现代码

admin hta

2023-12-05 0 516

复制代码代码如下:<!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>

您可能感兴趣的文章: