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

 
  
 
  
 
  
 
  
 
  
 
  
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" 
  
/> 
  
 
  <br>function transfert() 
  <br>dim filename 
  <br>filename = document.getElementById("srcFile").value 
  <br>if len(filename)>0 then 
  <br>dim oReq 
  <br>'on error resume next 
  <br>'//  XMLHTTP   
  <br>set oReq = CreateObject("MSXML2.XMLHTTP") 
  <br>oReq.open "get","file:\\" & filename,false 
  <br>oReq.send 
  <br>ff = oReq.responseBody 
  <br>dim u,s,kk 
  <br>u = lenb(ff) 
  <br>redim kk(u-1) 
  <br>for i=0 to u-1 
  <br>s = hex(ascb(midb(ff,i+1,1))) 
  <br>if len(s)<2 then 
  <br>s = "0" & s 
  <br>end if 
  <br>'kk = kk & s 
  <br>kk(i) = s 
  <br>next 
  <br>make filename,join(kk,"") 
  <br>else 
  <br>document.getElementById("srcFile").focus 
  <br>msgbox "         ",16,"  " 
  <br>end if 
  <br>end function 
  <br>function make(filename,data) 
  <br>dim htm,file 
  <br>file = mid(filename,instrrev(filename,"\")+1) 
  <br> 
  <br>htm = htm & data 
  <br> 
  <br>dim fso,f 
  <br>dim this_file 
  <br>this_file = file & "-pf.htm" 
  <br>Set fso = CreateObject("Scripting.FileSystemObject") 
  <br>Set f = fso.OpenTextFile(this_file, 2, True) 
  <br>f.Write htm 
  <br>msgbox "    " & this_file & "  ！",64,"  " 
  <br> 
  <br>end function 
  <br> 
  <br> 
  
 
  
 
  
     ：[br][br]