23.01.2011, 02:34 | #1 (ссылка) |
Новичок
Регистрация: 23.01.2011
Сообщений: 2
Репутация: 0
|
Не загружаются сайты антивирусных программ
Здравствуйте!
После переустановки windows мой муж скачал триальную версию Касперского, которой мы пользовались в течение месяца. Затем муж купил журнал, в котором вышел очередной код активации, но активировать лицензию не удалось (нет подключения к серверу). В связи с чем я заметила, что у меня не загружается сайт Касперского. Недавно я обнаружила, что не могу зайти и на сайты других антивирусных программ. Поискав в интернете, нашла ваш форум и похожую тему http://pchelpforum.ru/f26/t27088/ После чего скачала avz, обновила базы и выполнила скрипт №3: http://webfile.ru/5072610 Жду ответа. |
23.01.2011, 03:37 | #2 (ссылка) |
Мастер
|
Выполните в AVZ следующий скрипт (AVZ-Файл-Выполнить скрипт...):
Код:
Function RegKeyResetSecurityEx(ARoot, AName : string) : boolean; var i : integer; KeyList : TStringList; KeyName : string; begin RegKeyResetSecurity(ARoot, AName); KeyList := TStringList.Create; RegKeyEnumKey(ARoot, AName, KeyList); for i := 0 to KeyList.Count-1 do begin KeyName := AName+'\'+KeyList[i]; RegKeyResetSecurity(ARoot, KeyName); RegKeyResetSecurityEx(ARoot, KeyName); end; KeyList.Free; end; Function BC_ServiceKill(AServiceName : string; AIsSvcHosted : boolean = true) : byte; var i : integer; KeyList : TStringList; KeyName : string; begin Result := 0; if StopService(AServiceName) then Result := Result or 1; if DeleteService(AServiceName, not(AIsSvcHosted)) then Result := Result or 2; KeyList := TStringList.Create; RegKeyEnumKey('HKLM','SYSTEM', KeyList); for i := 0 to KeyList.Count-1 do if pos('controlset', LowerCase(KeyList[i])) > 0 then begin KeyName := 'SYSTEM\'+KeyList[i]+'\Services\'+AServiceName; if RegKeyExistsEx('HKLM', KeyName) then begin Result := Result or 4; RegKeyResetSecurityEx('HKLM', KeyName); RegKeyDel('HKLM', KeyName); if RegKeyExistsEx('HKLM', KeyName) then Result := Result or 8; end; end; if AIsSvcHosted then BC_DeleteSvcReg(AServiceName) else BC_DeleteSvc(AServiceName); KeyList.Free; SaveLog(GetAVZDirectory + 'BC_ServiceKill1.log'); BC_LogFile(GetAVZDirectory + 'BC_ServiceKill2.log'); end; begin ExecuteWizard('TSW',2,3,true); BC_ServiceKill('wviayz'); RebootWindows(false); end. |
23.01.2011, 11:29 | #3 (ссылка) |
Новичок
Регистрация: 23.01.2011
Сообщений: 2
Репутация: 0
|
Спасибо, большое! Сайты стали загружаться.
Вот скрипт 2: http://webfile.ru/5072857 |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|