Удаление ключа KIS7

timsky · Отправлено: **01:38, 04-11-2009** | #2

Делай ресет активации. Вот быстро подправил свой ресет для кис 2009:

Код:

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

$reg = RegDelete('HKLM\SOFTWARE\KasperskyLab\LicStorage')
If $reg = 2 Then
    MsgBox(16, 'Ошибка ' & @error & ' при удалении раздела реестра (KIS 2009)', 'Пожалуйста, убедитесь, что отключили самозащиту KIS' & @CRLF & 'Раздел: HKLM\SOFTWARE\KasperskyLab\LicStorage')
    ;Exit
EndIf

$reg = RegDelete('HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC')
If $reg = 2 Then
    MsgBox(16, 'Ошибка ' & @error & ' при удалении раздела реестра (KIS 2009)', 'Пожалуйста, убедитесь, что отключили самозащиту KIS' & @CRLF & 'Раздел: HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC')
    ;Exit
EndIf

$reg = RegDelete('HKLM\SOFTWARE\Classes\LK.Auto')
If $reg = 2 Then
    MsgBox(16, 'Ошибка ' & @error & ' при удалении раздела реестра (KIS 7)', 'Пожалуйста, убедитесь, что отключили самозащиту KIS' & @CRLF & 'Раздел: HKLM\SOFTWARE\Classes\LK.Auto')
    ;Exit
EndIf

Select
    Case @OSVersion = 'WIN_2000' Or @OSVersion = 'WIN_XP' Or @OSVersion = 'WIN_2003'
        $dir = @AppDataCommonDir & '\Kaspersky Lab\AVP8\Data'

    Case @OSVersion = 'WIN_VISTA' Or @OSVersion = 'WIN_2008'
        $dir = @ProgramFilesDir & '\Kaspersky Lab\AVP8\Data'
EndSelect

$drive = StringSplit($dir, '\', 1)
$fs = DriveGetFileSystem($drive[1])

If Not FileDelete(@AppDataCommonDir & '\Kaspersky Lab\AVP7\Data\perfm.dat') Then
    MsgBox(16, 'Ошибка ' & @error & ' при удалении файла', 'Пожалуйста, убедитесь, что отключили самозащиту KIS 7' & @CRLF & 'Файл: ' & @AppDataCommonDir & '\Kaspersky Lab\AVP7\Data\perfm.dat')
    ;Exit
EndIf

If $fs = 'NTFS' Then NTFS($dir)

MsgBox(64, 'Готово!', 'В случае необходимости повторить.')

Func NTFS($dir)
    $file = FileOpen($dir & ':extended', 2)
    $write = FileWrite($file, '')
    If $write = 0 Then
        MsgBox(16, 'Ошибка при удалении NTFS потока. OS: ' & @OSVersion, 'Пожалуйста, убедитесь, что отключили самозащиту  KIS 2009')
        ;Exit
    EndIf
    FileClose($file)
EndFunc   ;==>NTFS

Для 7-ки нужно потереть файл c:\Documents and Settings\All Users\Application Data\Kaspersky Lab\AVP7\Data\perfm.dat и вот эти ветки в реестре:
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\LK.Auto]
[HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\LicStorage]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates]

Fresh96 · Отправлено: **10:33, 04-11-2009** | #3

Цитата timsky:

подправил свой ресет »

В Вашем скрипте происходит стирание данных в реестре, а мне нужно простое нажатие кнопок в открытом окне программы.
Для моего случая не придется отключать самозащиту KIS.
Но все равно - спасибо.

timsky · Отправлено: **23:18, 04-11-2009** | #4

Fresh96, Дык, как раз и трутся те самые ключи, которые содержат инфу о регистрации. А тыкать по кнопкам программы не получится, т.к.:

Цитата Fresh96:

Написал следующее, но почему то не отрабатывает. Не фокусируется на окне, да и вообще, похоже не видит его »

Это самозащита.

Slawok · Отправлено: **14:12, 08-11-2009** | #5

Самозащиту можно отключать автоматически, это требует небольших настроек, но однократно, зато потом можно радоваться тому, как касперский продляется автоматически.
Делается следующим образом, касперский поддерживает управление из командной строки, но нет прямой команды отключения самозащиты, зато есть импорт и экспорт готовых настроек.
Отключаем самозащиту вручную, сохраняем настройки в файл, потом включаем самозащиту и снова сохраняем настройки в другой файл. И на касперского пароль еще надо поставить, а то работать не будет.
Ну и соответственно в начале скрипта делаем импорт настроек с выключенной самозащитой, а в конце со включенной.