中国DOS联盟

开始安装阶段良好，到安装完成后一切正常，但是安装后隔十几秒种弹出来“配置卡巴”的步骤，试写了N次，这个配置窗口就是不能激活，导致安装中断，有写过或知道错误的原因请指点一下，无限感激。

windows info tools信息附在图的右边，图太大一时显不出，请拉一下横的滚动条，在这个窗口弹出前，设置了3秒、5秒、8秒、15秒或不设置SLEEP时间都无法激活，真不知道出错在哪了。

run("kis_7.0.1.325_CN.exe")
winwaitactive("Kaspersky Internet Security 7.0","欢迎使用Kaspersky Internet Security 7.0安装向导")
send("!n")
winwaitactive("Kaspersky Internet Security 7.0","标准最终用户授权许可协议")
send("!a")
send("!n")
winwaitactive("Kaspersky Internet Security 7.0","安装类型")
controlclick("Kaspersky Internet Security 7.0","安装类型" ,2645)
winwaitactive("Kaspersky Internet Security 7.0","选择目的文件夹")
controlsettext("Kaspersky Internet Security 7.0","选择目的文件夹" ,2863,"d:\Program Files\Kaspersky Lab\Kaspersky Internet Security 7.0\")
send("!n")
winwaitactive("Kaspersky Internet Security 7.0","自定义安装")
send("!n")
winwaitactive("Kaspersky Internet Security 7.0","准备安装")
send("!i")
winwaitactive("Kaspersky Internet Security 7.0","安装完成")
send("!n")
sleep(30000)
winwaitactive("设置向导: Kaspersky Internet Security","授权文件信息")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","基本保护(推荐给多数用户)")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","更新模式")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","扫描启动对象")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","网络")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","应用程序(&A)...")
send("!n")
winwaitactive("设置向导: Kaspersky Internet Security","重新启动电脑(&R)")
ControlClick("设置向导: Kaspersky Internet Security","重新启动电脑(&R)" ,51900)
send("!f")

先添加注册表信息……（卡巴的设置在注册表保存的）

没有测试~~我是用AVP6绿色的……

试试AdlibEnable 能不能捕获？

具体怎么用，这个函数，能告诉一下吗？我不是太懂。

启用 Adlib 功能。


AdlibEnable ( "函数名" )




参数

函数名 要调用的 adlib 函数。
时间 指定每隔多少毫秒就调用函数一次。默认值为 250 毫秒。



返回值

无


注意

每隔 250 毫秒（或指定时间）就调用指定的函数，通常用来检查是否遇到各种无法预料的错误。例如，您可以在脚本中使用 adlib 来处理脚本本身可能会弹出的各种不可预知的错误提示窗口。
adlib 函数应该尽可能的简单，因为它要频繁地执行而且在执行期间主脚本将被暂停。另外，您应该小心使用 时间 参数以免 CPU 负荷过高。




相关

AdlibDisable, Call


示例


AdlibEnable("myadlib")
;...
Exit

Func myadlib()
If WinActive("错误") Then
;...
EndIf
EndFunc

.

脚本所在目录包含的文件:
lic.ppl (20年破解)
peace.lst (20年破解)
.key (激活码)

SETUP.CMD
@echo off if "%1" == "hide" goto begin mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit :begin for /f %%a in ('"wmic logicaldisk where DriveType="3" get DeviceID |find /v "DeviceID""') do set lastdrive=%%a reg export HKLM\Software\Microsoft\Windows\CurrentVersion\Installer "%temp%\backup.reg">nul start /wait kav.sch.msi taskkill /f /im avp.exe /im avp.exe /im avp.exe>nul 2>nul sc stop AVP>nul sc delete AVP>nul for /f "tokens=3*" %%a in ('REG QUERY "HKLM\Software\KasperskyLab\SetupFolders" /v KAV7 ^|findstr "Kaspersky"') do @set full=%%a %%b if not "%SystemDrive%"=="%lastdrive%" taskkill /f /im avp.exe /im avp.exe>nul 2>nul if not "%SystemDrive%"=="%lastdrive%" if not exist "%lastdrive%\Kaspersky Lab\AVP7\." xcopy "%ALLUSERSPROFILE%\Application Data\Kaspersky Lab" "%lastdrive%\Kaspersky Lab" /s /e /i /q /h /r /y>nul if not "%SystemDrive%"=="%lastdrive%" rd "%ALLUSERSPROFILE%\Application Data\Kaspersky Lab" /s /q>nul copy /y lic.ppl "%full%">nul if not "%SystemDrive%"=="%lastdrive%" copy /y peace.lst "%lastdrive%\Kaspersky Lab\AVP7\Bases">nul||copy /y peace.lst "%ALLUSERSPROFILE%\Application Data\Kaspersky Lab\AVP7\Bases">nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\CKAHUM\LastSet /v Directory /t REG_SZ /d "%lastdrive%\Kaspersky Lab\AVP7\Bases\\" /f>nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\CKAHUM\RebootSet /v Directory /t REG_SZ /d "%lastdrive%\Kaspersky Lab\AVP7\Bases\\" /f>nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\environment /v DataRoot /t REG_SZ /d "%lastdrive%\Kaspersky Lab\AVP7" /f>nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\environment /v TraceRoot /t REG_SZ /d "%lastdrive%\Kaspersky Lab\\" /f>nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\profiles\Behavior_Blocking\profiles\pdm\settings\def /v sHistoryFolder /t REG_SZ /d "%lastdrive%\Kaspersky Lab\AVP7\PdmHist" /f>nul if not "%SystemDrive%"=="%lastdrive%" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\profiles\Updater\settings\def /v RetrPath /t REG_SZ /d "%lastdrive%\Kaspersky Lab\AVP7\Update distribution\\" /f>nul for /f "tokens=3" %%a in ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\106BB9B49E3124043ACB7E59B54F9AF8\InstallProperties" /v LocalPackage^|findstr "LocalPackage"') do @set msifile=%%a if %msifile%* neq * del /f /q "%msifile%">nul for /f "tokens=3" %%a in ('REG QUERY "HKLM\SOFTWARE\KasperskyLab\protected\AVP7\environment" /v ProductCode^|findstr "ProductCode"') do @set msifolder=%%a if %msifolder%* neq * rd /q /s "%SystemRoot%\Installer\%msifolder%">nul copy "%ALLUSERSPROFILE%\「开始」菜单\程序\卡巴斯基反病毒软件 7.0\卡巴斯基反病毒软件 7.0.lnk" "%ALLUSERSPROFILE%\桌面">nul rd /q /s "%ALLUSERSPROFILE%\「开始」菜单\程序\卡巴斯基反病毒软件 7.0">nul reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\%msifolder% /f>nul reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\InstallWIX_%msifolder% /f>nul reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Installer /f>nul reg delete HKCR\Installer /f>nul reg import "%temp%\backup.reg">nul del /f /q "%temp%\backup.reg">nul reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\profiles\Updater\schedule /v Mode /t REG_DWORD /d 0 /f>nul reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\settings /v EnableSelfProtection /t REG_DWORD /d 0 /f>nul "%full%avp.exe" reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP7\profiles\Updater\settings\BLSettings /v UpdateExecutables /t REG_DWORD /d 0 /f>nul set lastdrive= set full= set msifile= set msifolder=

楼主的意思是自动安装完毕，无需手动操作对吧！？

我对 autoit 也很感兴趣的，就是没时间去学。帮不了你！

我的批处理是将卡巴的病毒库放在硬盘的最后一个分区的，方便使用影子单一模式保护时可以更新病毒库。
卡巴安装到最后不要选择重启，好让批处理完成最后的设置！切记！

有没有知道我这个脚本在配置窗口无法捕获的原因的？拜托了。