首页
社区
课程
招聘
[旧帖] [原创]自己写的一个检测卡巴的批处理 0.00雪花
发表于: 2010-3-17 16:49 2070

[旧帖] [原创]自己写的一个检测卡巴的批处理 0.00雪花

2010-3-17 16:49
2070
曾在某网站混,与朋友一起研究了一段时间的卡巴授权文件的导入,他研究软件导入工具,由于本人对编程不是很了解,就没搞,导入key之前得确定卡巴的版本等等的信息,于是自己写了个批处理来解决此问题,代码如下

@echo off
setlocal enabledelayedexpansion
color 0a
echo 冰蚕温馨提示:操作正在执行,请稍等......
@echo off

:loop
for /f "usebackq skip=1 tokens=3 delims=\" %%i in (`reg query
"HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab"`) do set reg_id=%%i
cls
If not "%reg_id%"=="KasperskyLab" Goto exit
for /f "usebackq skip=1 tokens=5 delims=\" %%i in (`reg query
"HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected"`) do set reg_id=%%i
goto a1

:a1
If "%reg_id%"=="KasperskyLab" Goto b1
goto c1

:b1
set "reg_path=HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\avp6\environment"
goto start

:c1
for /f "usebackq skip=1 tokens=5 delims=\" %%i in (`reg query
"HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected"`) do set reg_id=%%i
set "reg_path=HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected\%reg_id%\environment"
goto start

:start
reg export "%reg_path%" temp.reg
cls
for /f "skip=2 tokens=2 delims==" %%i in ('find /i "ProductName" temp.reg') do set a=%%i
set a=%a:"=%
del temp.reg
for /f "skip=4 tokens=3*" %%i in ('reg query "%reg_path%" /v "CompanyName"') do set b=%%i
for /f "skip=4 tokens=3*" %%i in ('reg query "%reg_path%" /v "ProductVersion"') do set c=%%i
for /f "skip=4 tokens=3*" %%i in ('reg query "%reg_path%" /v "Localization"') do set d=%%i
for /f "skip=4 tokens=3*" %%i in ('reg query "%reg_path%" /v "ProductType"') do set e=%%i
for /f "skip=4 tokens=1* delims=:" %%i in ('reg query "%reg_path%" /v "ProductRoot"') do (
    set aa=%%i
    set bb=%%j
    set "bb=!bb:"=!"
    if not "!bb:~-1!"=="=" echo.
)
set keyType=%e%%c%
set keyType=%keyType:~0,4%
echo 您安装的卡巴斯基信息如下:
echo         您安装的杀毒软件为: %a%
Echo.
echo         杀毒软件发布公司为: %b%
Echo.
echo         您安装的软件版本为: %c%
Echo.
echo         您安装的软件语言为: %d%
Echo.
echo         您安装的软件类型为: %e%
Echo.
echo         您卡巴斯基安装路径: !aa:~-1!:!bb!
Echo.
echo         应该选用的key 类型: %keyType%
pause
exit

:exit
echo 您没有安装卡巴斯基
pause

代码有点乱,我就不解释了~~只是和大家分享一下的
效果图如下

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

上传的附件:
收藏
免费 0
支持
分享
最新回复 (13)
雪    币: 727
活跃值: (14)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
来顶一下!!!!!
2010-3-21 17:56
0
雪    币: 4
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
路过支持一下,飘去~~
2010-3-21 17:59
0
雪    币: 34
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
ddddddddddddd
2010-3-24 18:57
0
雪    币: 8
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
大哥是高手啊,我们要向您多多请交啊!
2010-3-24 23:16
0
雪    币: 32
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
学习下
2010-3-25 07:50
0
雪    币: 317
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
8
嗯,写的挺好的,继续学习中。
2010-3-25 08:46
0
雪    币: 5
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
很有用,感谢分享
2010-3-25 09:37
0
雪    币: 1418
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
裸奔的飘过~~
2010-3-25 12:16
0
雪    币: 6257
活跃值: (137)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
写的挺好的,继续学习中。
2010-3-25 14:58
0
雪    币: 5
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
这个批处理也是很有趣的
2010-3-25 23:00
0
雪    币: 132
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
挺有用的,学习一下,谢谢分享
2010-3-26 14:32
0
雪    币: 22
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
这个批处理写的挺有意思的哈。
2010-3-27 23:49
0
雪    币: 116
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
学习, 楼主乃传说中的强人。
2010-3-28 10:12
0
游客
登录 | 注册 方可回帖
返回
//