IE 界面批处理通讯录.docx
《IE 界面批处理通讯录.docx》由会员分享，可在线阅读，更多相关《IE 界面批处理通讯录.docx（28页珍藏版）》请在冰点文库上搜索。
IE界面批处理通讯录
1、不能按【F5】键刷新界面，否则界面内所有按键将会失效，只能点击关闭窗口按键重来；
在IE界面输入、点击相应按键，IE界面关闭后，批处理命令从VBS脚本获取信息时，
有时候下一步的提示反应速度会稍慢，好像是系统的VBS脚本IE界面与批处理之间的问题。
2、主界面[联系人列表]暂时不能直接导入输入框内，输入框内输入联系人姓名或电话后可以
直接回车[查询/新增]。
3、主界面内输入纯数字判断为第一手机号码（目前只能判断第一手机号码），数据库内存在
该第一手机号码就会显示该联系人资料；输入除纯数字外其他字符时，如果数据库内存在
该联系人，自动显示该联系人资料，如果数据库内不存在该联系人，则自动询问是否要新
增联系人。
4、回车键默认为：
主界面>[查询/新增]；联系人资料>返回主界面；所有联系人资料>查看下
一页联系人资料。
5、目前暂时只有查询/新增联系人、查看全部联系人资料、删除联系人功能；修改联系人资
料功能正在完善。
功能实现：
VBS建立IE窗口内容，“for/f"delims="%%iin（'"cscript//nologo%Temp%\Temp.vbs"'）do...”读取IE窗口内容给批处理。
利用namejm版主的查找字典的功能脚本“for/f"tokens=1,2,3*delims=:
"%%iin（'findstr/nirc:
"%input%"Tel\Tel.db'）do...”查找联系人资料。
部分模块功能：
第一次使用先建立数据库及生成背景图片（electronixtar的any2bat.vbs制作）
:
MinRun-:
Start-最小化命令提示符窗口
下面是代码：
—————————————————分割线———————————————————
@echooff
:
:
Codebyzh1592006-12-16CMD@XP
:
:
出处：
-47楼
titleIE通讯录
modeconcols=15lines=1
:
:
建立数据库及生成背景图片
ifnotexistTel\mdTel>nul
ifnotexistTel\Tel.dbcall:
Tel.db
ifexistTel\bg.gifgotoMinRun
modeconcols=50lines=5
echo.
echo.初次使用IE通讯录，建立数据库及生成背景图片。
echo.
echo.请稍等...&ping-n1127.1>nul
echostr="47494638396101000400800000F0F0F0ECECEC2C0000000001000400000203041205003B">>debug.vbs
echowithwscript.stdout:
r=vbcrlf:
fori=1tolen（str）step48:
.write"e"+hex（256+（i-1）/2）:
forj=itoi+46step2:
.write""+mid（str,j,2）:
next:
.writer:
next>>debug.vbs
echo.write"rbx"+r+"0"+r+"rcx"+r+"24"+r+"ndebug.tmp"+r+"w"+r+"q"+r:
endwith>>debug.vbs&&cscript//nologodebug.vbs|debug.exe>nul&&move/ydebug.tmp"Tel\bg.gif"&deldebug.vbs
start"""%~nx0"&exit
:
MinRun
:
:
最小化命令提示符窗口
ifexist"Temp.bat"gotoStart
>Temp.batechostart/min"""%~nx0"^&exit
start/minTemp.bat&exit
:
Start
del"Temp.bat">nul
modeconcols=15lines=1
setlocalEnableDelayedExpansion
:
Main
:
:
配置按键颜色
set"button=border:
1solid#9ab8f6;FILTER:
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#10bfff,endColorStr=#007db2）;cursor:
hand;color:
#ffffff;"
set"Pagebutton=border:
1solid#9ab8f6;FILTER:
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#10bfff,endColorStr=#007db2）"
set"Pagedisabled=border:
1solid#b1b1b1;FILTER:
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#f5f5f5,endColorStr=#b1b1b1）"
set"title=IE界面批处理通讯录-zh159制作"
setieheight=360
setAmount=0
for/f"skip=3delims="%%iin（Tel\Tel.db）do（
if"%%i"=="-End-"set/aAmount+=1）
call:
Event
>>%Temp%\Temp.vbsechowithie.document
>>%Temp%\Temp.vbsecho.write"
IE界面批处理通讯录-zh159制作">>%Temp%\Temp.vbsecho.write".button{font:
15px宋体,Verdana;height:
32px;width:
100px;}"
>>%Temp%\Temp.vbsecho.write"\=/%/Tel/bg.gif'bgcolor=#e3e5dascroll=nostyle='font-family:
宋体;font-size:
15px;'>"
>>%Temp%\Temp.vbsecho.write"楷体_gb2312;font-size:
24px;'>
IE界面批处理通讯录 | "
>>%Temp%\Temp.vbsecho.write"progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#9ab8f6,endColorStr=#5a7dde）'>1px;'>"
>>%Temp%\Temp.vbsecho.write"15px;border:
#5a7dde1pxsolid;'>"
>>%Temp%\Temp.vbsecho.write"
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#9ab8f6,endColorStr=#5a7dde）'colspan=4>18px;color:
#ffffff;>=欢迎使用IE界面批处理通讯录=
#d0d0d0;>zh159@- zh159@
|
"
>>%Temp%\Temp.vbsecho.write"输入后直接回车[查询/新增]联系人（优先），也可以从列表选取联系人！
输入:
'style='font-family:
Tahoma,宋体;font-size:
15px;border:
1pxsolid#698cc2;width:
300;height:
23;FILTER:
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#f8f8fa,endColorStr=#dee8f4）;color:
#5a7dde'> 15px;border:
1pxsolid#698cc2;'>"
>>%Temp%\Temp.vbsecho.write"%Amount%位联系人"
call:
List
>>%Temp%\Temp.vbsecho.write"列表"
>>%Temp%\Temp.vbsecho.write"楷体_gb2312;font-size:
21px;width=110;%button%'>"
>>%Temp%\Temp.vbsecho.write"楷体_gb2312;font-size:
21px;width=110;%button%'>楷体_gb2312;font-size:
21px;width=110;%button%'>"
>>%Temp%\Temp.vbsecho.write"
progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#d2def2,endColorStr=#9ab8f6）;'colspan=4>今天日期:
%Date:
~0,10%
|
"
>>%Temp%\Temp.vbsecho.write"progid:
DXImageTransform.Microsoft.Gradient（gradientType=0,startColorStr=#5a7dde,endColorStr=#9ab8f6）'>1px;'>"
>>%Temp%\Temp.vbsecho.write"宋体;font-size:
15px;color=f00'> 注意：
不要使用“^!
^&*<>\”等单字节字符；
不能按【F5】键刷新界面，否则界面内所有按键将会失效！
11px;width:
60;height:
18;%button%'>"
>>%Temp%\Temp.vbsecho.write"