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>

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

다른 EXE 메모리 읽기

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

exe 16 진수 html 로 저 장 된 hta 구현 코드 변환

좋은 웹페이지 즐겨찾기