IE 界面批处理通讯录.docx

1、IE 界面批处理通讯录1、 不能按【F5】键刷新界面，否则界面内所有按键将会失效，只能点击关闭窗口按键重来；在 IE 界面输入、点击相应按键，IE 界面关闭后，批处理命令从 VBS 脚本获取信息时，有时候下一步的提示反应速度会稍慢，好像是系统的 VBS 脚本 IE 界面与批处理之间的问题。2、 主界面联系人列表暂时不能直接导入输入框内，输入框内输入联系人姓名或电话后可以直接回车查询/新增。3、 主界面内输入纯数字判断为第一手机号码（目前只能判断第一手机号码），数据库内存在该第一手机号码就会显示该联系人资料；输入除纯数字外其他字符时，如果数据库内存在该联系人，自动显示该联系人资料，如果数据库内不

2、存在该联系人，则自动询问是否要新增联系人。4、 回车键默认为：主界面查询/新增；联系人资料返回主界面；所有联系人资料查看下一页联系人资料。5、 目前暂时只有查询/新增联系人、查看全部联系人资料、删除联系人功能；修改联系人资料功能正在完善。功能实现：VBS 建立 IE 窗口内容，“for /f delims= %i in (cscript /nologo %Temp%Temp.vbs) do .”读取 IE 窗口内容给批处理。利用 namejm 版主的查找字典的功能脚本“for /f tokens=1,2,3* delims=: %i in (findstr /nirc:%input% TelT

3、el.db) do .”查找联系人资料。部分模块功能：第一次使用先建立数据库及生成背景图片（electronixtar 的 any2bat.vbs 制作）:MinRun-:Start-最小化命令提示符窗口下面是代码：分割线echo off: Code by zh159 2006-12-16 CMDXP: 出处：- 47楼title IE 通讯录mode con cols=15 lines=1:建立数据库及生成背景图片if not exist Tel md Telnulif not exist TelTel.db call :Tel.dbif exist Telbg.gif goto MinRu

4、nmode con cols=50 lines=5echo.echo. 初次使用 IE 通讯录，建立数据库及生成背景图片。echo.echo. 请稍等. . .&ping -n 1 127.1nulecho str=47494638396101000400800000F0F0F0ECECEC2C0000000001000400000203041205003Bdebug.vbsecho with wscript.stdout:r=vbcrlf:for i=1 to len(str) step 48:.write e+hex(256+(i-1)/2):for j=i to i+46 step 2:

5、.write +mid(str,j,2):next:.write r:nextdebug.vbsecho .write rbx+r+0+r+rcx+r+24+r+n debug.tmp+r+w+r+q+r:end withdebug.vbs&cscript /nologo debug.vbs|debug.exenul&move/y debug.tmp Telbg.gif&del debug.vbsstart %nx0&exit:MinRun:最小化命令提示符窗口if exist Temp.bat goto StartTemp.bat echo start/min %nx0&exitstart/

6、min Temp.bat&exit:Startdel Temp.batnulmode con cols=15 lines=1setlocal EnableDelayedExpansion:Main:配置按键颜色set button=border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);cursor:hand;color:#ffffff;set Pagebutton=border: 1

7、solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2)set Pagedisabled=border: 1 solid #b1b1b1;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f5f5f5,endColorStr=#b1b1b1)set title=IE 界面批处理通讯录 - zh159

8、 制作set ieheight=360set Amount=0for /f skip=3 delims= %i in (TelTel.db) do ( if %i = -End- set /a Amount+=1)call :Event%Temp%Temp.vbs echo with ie.document%Temp%Temp.vbs echo .write IE 界面批处理通讯录 - zh159 制作%Temp%Temp.vbs echo .write .button font: 15px 宋体, Verdana;height:32px;width:100px;%Temp%Temp.vbs

9、echo .write %Temp%Temp.vbs echo .write IE 界面批处理通讯录%Temp%Temp.vbs echo .write %Temp%Temp.vbs echo .write %Temp%Temp.vbs echo .write = 欢迎使用 IE 界面批处理通讯录 =zh159-zh159%Temp%Temp.vbs echo .write 输入后直接回车查询/新增联系人(优先)，也可以从列表选取联系人！输入: %Temp%Temp.vbs echo .write %Amount% 位联系人call :List%Temp%Temp.vbs echo .writ

10、e 列表%Temp%Temp.vbs echo .write %Temp%Temp.vbs echo .write %Temp%Temp.vbs echo .write 今天日期: %Date:0,10%Temp%Temp.vbs echo .write %Temp%Temp.vbs echo .write  注意：不要使用“! & * ”等单字节字符； 不能按【F5】键刷新界面，否则界面内所有按键将会失效！%Temp%Temp.vbs echo .write %Temp%Temp.vbs echo end with%Temp%Temp.vbs echo dim wmi%T

11、emp%Temp.vbs echo set wnd=ie.document.parentwindow%Temp%Temp.vbs echo set id=ie.document.all%Temp%Temp.vbs echo id.find.onclick=getref(find)%Temp%Temp.vbs echo id.All.onclick=getref(All)%Temp%Temp.vbs echo id.SortTel.onclick=getref(SortTel)%Temp%Temp.vbs echo id.help.onclick=getref(help)call :SleepC

12、ancel%Temp%Temp.vbs echo sub All%Temp%Temp.vbs echo ie.quit%Temp%Temp.vbs echo Wscript.Echo All%Temp%Temp.vbs echo end sub%Temp%Temp.vbs echo sub SortTel%Temp%Temp.vbs echo ie.quit%Temp%Temp.vbs echo Wscript.Echo SortTel%Temp%Temp.vbs echo end sub%Temp%Temp.vbs echo sub help%Temp%Temp.vbs echo ie.qu

13、it%Temp%Temp.vbs echo Wscript.Echo help%Temp%Temp.vbs echo end sub%Temp%Temp.vbs echo sub find%Temp%Temp.vbs echo ie.visible=0%Temp%Temp.vbs echo ie.quit%Temp%Temp.vbs echo with id%Temp%Temp.vbs echo if .input.value=点击这里输入联系人姓名或电话 then if not .list.value= then Wscript.Echo .list.value%Temp%Temp.vbs

14、echo if .input.value= then if not .list.value= then Wscript.Echo .list.value%Temp%Temp.vbs echo if .input.value= then Wscript.Echo %Temp%Temp.vbs echo if not .input.value= then if not .input.value=击这里输入联系人姓名或电话 then Wscript.Echo .input.value%Temp%Temp.vbs echo exit sub%Temp%Temp.vbs echo end with%Te

15、mp%Temp.vbs echo end subset input=for /f delims= %i in (cscript /nologo %Temp%Temp.vbs) do ( if %i = exit del %Temp%Temp*.*&exit set input=%i if !input! = All goto All if !input! = SortTel goto SortTel if !input! = help goto help if !input! = 点击这里输入联系人姓名或电话 goto Remind if !input! = (goto Remind) els

16、e goto Info):Remind%Temp%Temp.vbs echo intAnswer = Msgbox(请输入联系人姓名或电话！ , vbExclamation , 提醒！)%Temp%Temp.vbsgoto Main:Addset title=新增联系人set 录入取消=取消新增联系人set 录入确定=确定新增联系人set 记录日期=录入日期set ieheight=550set 姓名=%input%set 照片=set 手机号码 1=set 手机号码 2=set 住宅电话=set 办公室电话=set 传真=set 电子邮件=set 家庭地址=set 修改照片=联系人照片，建议

17、大小: 170*200(px)call :Eventcall :Inputif %input% = exit goto Maincall :Newdbif not %Source% = copy/y %Source% %Photo%nulset input=%Name%:Infoset title=联系人资料set line=for /f tokens=1,2,3* delims=: %i in (findstr /nirc:%input% TelTel.db) do ( if %j = %input% set line=%i if %k = %input% set line=%i)if no

18、t %line% = goto Extractecho %input%|findstr 0-9*$nul &goto NoRecord%Temp%Temp.vbs echo set WshShell = WScript.CreateObject(WScript.Shell)%Temp%Temp.vbs echo intAnswer = MsgBox(没有找到联系人“%input%”的记录！你是否要新增联系人“%input%”？ , vbExclamation + vbYesNo, 查询结果！)%Temp%Temp.vbs echo If intAnswer = vbYes Then%Temp%

19、Temp.vbs echo Wscript.Echo Add%Temp%Temp.vbs echo end if%Temp%Temp.vbs echo If intAnswer = vbNo Then%Temp%Temp.vbs echo Wscript.Echo Main%Temp%Temp.vbs echo end iffor /f delims= %i in (cscript /nologo %Temp%Temp.vbs) do goto %igoto Main:NoRecord%Temp%Temp.vbs echo intAnswer = Msgbox(没有找到 %input% 电话的

20、记录！ , vbExclamation , 查询结果！)%Temp%Temp.vbsgoto Main:Extractcall :Sweepfor /f skip=%line% tokens=1,2* delims=： %i in (TelTel.db) do ( if %i = -End- goto Display set %i=%j):Displayset ieheight=520if not %照片% = (set 照片路径=) else set 照片路径=无照片call :Event%Temp%Temp.vbs echo with ie.document%Temp%Temp.vbs ec