卡巴斯基安全部队2011无限循环试用30天破解补丁_卡巴KIS_KAV_永久破解用法:删除本行,并将文件后缀名改成vbs
Dim fso,Wsh,Datad,Data6,Data55,Data56,Data57,Data58,Datad1,sst14
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Datad = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node...
用法:删除本行,并将文件后缀名改成vbs
Dim fso,Wsh,Datad,Data6,Data55,Data56,Data57,Data58,Datad1,sst14
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Datad = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\environment\ DataRoot")
Datad = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\environment\D ataRoot")
Datad = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\environment\DataRoot") Datad = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\DataRoot")
if Datad="" or Datad="0" then
MsgBox"没有找到卡巴斯基2010或2011任何(kav/kis)版本! " ,48,"警告!(yt8619704) "
WScript.Quit
end if
Data6 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\settings\Ena bleSelfProtection")
Data6 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\settings\Enab leSelfProtection")
Data6 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\settings\EnableSelfProte ction")
Data6 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\settings\EnableSelfProtec tion")
if Data6 ="1" then
MsgBox"请关闭「自我保护」并完全退出「卡巴斯基」再运行本程序! " ,48,"警告! (yt8619704) "
WScript.Quit
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\environment\ DataRoot")
if Err.Number="0" or Err.Number="" then
Data55 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\Data\Restart Time")
if Data55="0" or Err.Number<>"0" then
MsgBox"请完全退出「卡巴斯基2011」再运行本程序!64 " ,48,"警告!(yt8619704) " WScript.Quit
end if
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\environment\D ataRoot")
if Err.Number="0" or Err.Number="" then
Data56 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\Data\RestartT ime")
if Data56="0" or Err.Number<>"0" then
MsgBox"请完全退出「卡巴斯基2010」再运行本程序!64 " ,48,"警告!(yt8619704) " WScript.Quit
end if
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\environment\DataRoot")
if Err.Number="0" or Err.Number="" then
Data57 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\Data\RestartTime")
if Data57="0" or Err.Number<>"0" then
MsgBox"请完全退出「卡巴斯基2011」再运行本程序! 32 " ,48,"警告!(yt8619704) "
WScript.Quit
end if
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\DataRoot")
if Err.Number="0" or Err.Number="" then
Data58 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\Data\RestartTime")
if Data58="0" or Err.Number<>"0" then
MsgBox"请完全退出「卡巴斯基2010」再运行本程序! 32 " ,48,"警告!(yt8619704) "
WScript.Quit
end if
end if
On Error GoTo 0
On Error Resume Next
Select Case msgbox( "确定要清除「卡巴斯基」的注册痕迹吗? ",68, "提示! (yt8619704)")
Case 7 WScript.Quit
end Select
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Wow6432Node\Microsoft\SystemCertificates\SPC\Certificates""
/f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates"" /f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Wow6432Node\Microsoft\Cryptography\RNG"" /f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Microsoft\Cryptography\RNG"" /f",0 Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\LicStorage"" /f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\KasperskyLab\protected\LicStorage"" /f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\Wow6432Node\KasperskyLab\LicStorage"" /f",0
Wsh.run "cmd /c reg delete ""HKLM\SOFTWARE\KasperskyLab\LicStorage"" /f",0 fso.MoveFolder (+Datad+"\Data"), (+Datad+"\DataBackup")
fso.MoveFolder (+Datad+"\Report"), (+Datad+"\ReportBackup")
fso.CreateFolder (+Datad+"\Data")
fso.MoveFolder (+Datad+"\DataBackup\*"), (+Datad+"\Data\")
fso.MoveFile (+Datad+"\DataBackup\*.*"), (+Datad+"\Data\")
fso.CreateFolder (+Datad+"\Report")
fso.MoveFolder (+Datad+"\ReportBackup\*"), (+Datad+"\Report\")
fso.MoveFile (+Datad+"\ReportBackup\*.*"), (+Datad+"\Report\")
fso.DeleteFolder (+Datad+"\DataBackup")
fso.DeleteFolder (+Datad+"\ReportBackup")
Wsh.popup "卡巴斯基的注册痕迹已经被清除!激活并运行卡巴斯基 ... ", 4, "提示! ",vbOKonly
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\environment\ DataRoot")
if Err.Number="0" or Err.Number="" then
Wsh.RegWrite
"HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\settings\Ins_InitMode", "33", "REG_DWORD"
Wsh.RegWrite
"HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\settings\EnableSelfProte ction", "1", "REG_DWORD"
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\environment\D ataRoot")
if Err.Number="0" or Err.Number="" then
Wsh.RegWrite
"HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\settings\Ins_InitMode", "33", "REG_DWORD"
Wsh.RegWrite
"HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\settings\EnableSelfProtec tion", "1", "REG_DWORD"
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\environment\DataRoot") if Err.Number="0" or Err.Number="" then
Wsh.RegWrite "HKLM\SOFTWARE\KasperskyLab\protected\AVP11\settings\Ins_InitMode", "33", "REG_DWORD"
Wsh.RegWrite
"HKLM\SOFTWARE\KasperskyLab\protected\AVP11\settings\EnableSelfProtection", "1", "REG_DWORD"
end if
On Error GoTo 0
On Error Resume Next
Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\DataRoot")
if Err.Number="0" or Err.Number="" then
Wsh.RegWrite "HKLM\SOFTWARE\KasperskyLab\protected\AVP9\settings\Ins_InitMode", "33", "REG_DWORD"
Wsh.RegWrite
"HKLM\SOFTWARE\KasperskyLab\protected\AVP9\settings\EnableSelfProtection", "1", "REG_DWORD"
end if
Datad1 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP11\environment\ Ins_ProductPath")
Datad1 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP11\environment\Ins_ProductP ath")
Datad1 = Wsh.RegRead("HKLM\SOFTWARE\Wow6432Node\KasperskyLab\protected\AVP9\settings\Ins_ ProductPath")
Datad1 = Wsh.RegRead("HKLM\SOFTWARE\KasperskyLab\protected\AVP9\settings\Ins_ProductPath" )
sst14 = (+Datad1+"avp.exe")
Wsh.Run Chr(34) & sst14 & Chr(34),vbhide
Set fso = Nothing
Set Wsh = Nothing
WScript.Quit
本文档为【卡巴斯基安全部队2011无限循环试用30天破解补丁_卡巴KIS_KAV_永久破解】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。