실례합니다 .. 지난번에 만든 VBS 의 전체 코드 (아날로그 바이러스) 는 어떻게 보내나요? 저장 후 편집조차 사용할 수 없어요. .....

파일 1: c autorun _ 1.vbs

코드는 다음과 같습니다.

'''''''''''''''''''' 코드 시작'''''''''''''''''''''''' <

Set ws = createobject ("wscript.shell")

Ws.regwrite "HKEY _ current _ user \ software \ Microsoft \ windows \ currentversion \ policies \

MsgBox "작업 관리자를 사용하여 모든 wscript.exe 프로세스를 종료하십시오!" , 64, "가장 똑똑한 돼지"

''''''''''''''''''''' 코드 종료'''''''''''''''''''''''''' <

파일 2: c autorun _ 2.vbs

코드는 다음과 같습니다.

'''''''''''''''''''' 코드 시작'''''''''''''''''''''''' <

On Error Resume Next

Set FSO = createobject ("scripting.file system object")

Set CX = fso.getspecialfolder (0)

C = fso.getparentfoldername (CX)

Set fdrs = fso.getfolder (c). subfolders

For Each Fdr In Fdrs

If fso.getextensionname (fdr.name) = "exe" then

Fso.GetFolder(C amp；; Fdr.Name).Delete(True)

End If

다음

Set drvs=fso.Drives

For Each drv In drvs

If drv.DriveType=2 Then

Fso.getfile (drvamp; "\Autorun.inf").Delete(True)

Fso.getfile (drvamp; "\fun.xls.exe").Delete(True)

If drv amp；; "\" = C Then

Else

Set fdrs = fso.getfolder (drv amp; "\").SubFolders

For Each Fdr In Fdrs

If fso.getextensionname (fdr.name) = "exe" then

Fdr.Name=fso.GetBaseN

Ame(Fdr.Name)

End If

다음

End If

End If

다음

Fso.GetFolder(C amp；; "Program Files").Attributes=0

Fso.GetFolder(C amp；; "documents and settings"). attributes = 0

Fso.GetFolder(C amp；; "WINDOWS").Attributes=0

MsgBox "가짜 Autorun 바이러스 제거 완료!" , 64, "가장 똑똑한 돼지"

''''''''''''''''''''' 코드 종료'''''''''''''''''''''''''' <

사용 방법:

1. "cautorun _ 1.vbs" 를 실행합니다.

2. 작업 관리자를 열고 "wscript.exe" 프로세스를 종료합니다.

3. "c autorun _ 2.vbs" 를 실행합니다.

4. 끝내세요!

참고: 두 개의 파일을 데스크톱에 두고 실행하고 다른 창을 닫는 것이 좋습니다. 응답할 수 없는 개별 폴더가 있을 수 있습니다 (휴지통입니다. 시스템이 자동으로 만들어지기 때문입니다). 수동으로 삭제하면 됩니다.