中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]新写了一个 AUTOIT 卡巴脚本 安装中断的问题
作者:
标题: [求助]新写了一个 AUTOIT 卡巴脚本 安装中断的问题 上一主题 | 下一主题
huludao100
新手上路





积分 16
发帖 7
注册 2008-2-9
状态 离线
『楼 主』:  [求助]新写了一个 AUTOIT 卡巴脚本 安装中断的问题

开始安装阶段良好，到安装完成后一切正常，但是安装后隔十几秒种弹出来“配置卡巴”的步骤，试写了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")



2008-4-30 17:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

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

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

2008-5-1 09:10
查看资料  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 3 楼』:  

试试AdlibEnable 能不能捕获？

2008-5-1 11:15
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
huludao100
新手上路





积分 16
发帖 7
注册 2008-2-9
状态 离线
『第 4 楼』:  

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

2008-5-1 15:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 5 楼』:  



  Quote:
启用 Adlib 功能。


AdlibEnable ( "函数名" [, 时间] )




参数

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



返回值

无


注意

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




相关

AdlibDisable, Call


示例


AdlibEnable("myadlib")
;...
Exit

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

.

2008-5-1 16:13
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
chishingchan
银牌会员




积分 1282
发帖 538
注册 2002-11-2
状态 离线
『第 6 楼』:  [原创] 卡巴斯基反病毒软件的安装脚本

脚本所在目录包含的文件:
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=


2008-5-1 21:33
查看资料  发短消息 网志   编辑帖子  回复  引用回复
huludao100
新手上路





积分 16
发帖 7
注册 2008-2-9
状态 离线
『第 7 楼』:  



  Quote:
Originally posted by chishingchan at 2008-5-1 09:33 PM:
脚本所在目录包含的文件:
lic.ppl (20年破解)
peace.lst (20年破解)
.key (激活码)

SETUP.CMD
[code]
@echo off
if "%1" == "hide" goto begin
mshta vbscrip ...

如何把这个做成autoit脚本？可以转换的吧？

2008-5-1 22:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chishingchan
银牌会员




积分 1282
发帖 538
注册 2002-11-2
状态 离线
『第 8 楼』:  

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

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

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

2008-5-1 22:35
查看资料  发短消息 网志   编辑帖子  回复  引用回复
huludao100
新手上路





积分 16
发帖 7
注册 2008-2-9
状态 离线
『第 9 楼』:  

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

2008-5-2 08:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023