@echo off :: Code by zh159 2006-12-16 CMD@XP :: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=25112 47楼 title IE 通讯录 mode con cols=15 lines=1 ::建立数据库及生成背景图片 if not exist Tel\ md Tel>nul if not exist Tel\Tel.db call :Tel.db if exist Tel\bg.gif goto MinRun mode con cols=50 lines=5 echo. echo. 初次使用 IE 通讯录，建立数据库及生成背景图片。 echo. echo. 请稍等. . .&ping -n 1 127.1>nul echo str="47494638396101000400800000F0F0F0ECECEC2C0000000001000400000203041205003B">>debug.vbs echo 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:.write " "+mid(str,j,2):next:.write r:next>>debug.vbs echo .write "rbx"+r+"0"+r+"rcx"+r+"24"+r+"n debug.tmp"+r+"w"+r+"q"+r:end with>>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&move/y debug.tmp "Tel\bg.gif"&del debug.vbs start "" "%~nx0"&exit :MinRun ::最小化命令提示符窗口 if exist "Temp.bat" goto Start >Temp.bat echo start/min "" "%~nx0"^&exit start/min Temp.bat&exit :Start del "Temp.bat">nul mode con cols=15 lines=1 setlocal 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 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 制作" set ieheight=360 set Amount=0 for /f "skip=3 delims=" %%i in (Tel\Tel.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 "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
IE 界面批处理通讯录
" >>%Temp%\Temp.vbs echo .write "
" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
= 欢迎使用 IE 界面批处理通讯录 =
zh159@bbs.cn-dos.net　　zh159@bbs.blueshow.net
输入后直接回车[查询/新增]联系人(优先)，也可以从列表选取联系人！
输入: 　 列表
今天日期: %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 >>%Temp%\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 :SleepCancel >>%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.quit >>%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 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 >>%Temp%\Temp.vbs echo end sub set 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) else goto Info) :Remind >%Temp%\Temp.vbs echo intAnswer = Msgbox("请输入联系人姓名或电话！ ", vbExclamation , "提醒！") %Temp%\Temp.vbs goto Main :Add set "title=新增联系人" set 录入取消=取消新增联系人 set 录入确定=确定新增联系人 set 记录日期=录入日期 set ieheight=550 set "姓名=%input%" set "照片=" set "手机号码 1=" set "手机号码 2=" set "住宅电话=" set "办公室电话=" set "传真=" set "电子邮件=" set "家庭地址=" set "修改照片=联系人照片，建议大小: 170*200(px)

" call :Event call :Input if "%input%" == "exit" goto Main call :Newdb if not "%Source%" == "" copy/y "%Source%" "%Photo%">nul set input=%Name% :Info set "title=联系人资料" set line= for /f "tokens=1,2,3* delims=:" %%i in ('findstr /nirc:"%input%" Tel\Tel.db') do ( if "%%j" == "%input%" set line=%%i if "%%k" == "%input%" set line=%%i) if not "%line%" == "" goto Extract echo %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%\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 if for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do goto %%i goto Main :NoRecord >%Temp%\Temp.vbs echo intAnswer = Msgbox("没有找到 %input% 电话的记录！ ", vbExclamation , "查询结果！") %Temp%\Temp.vbs goto Main :Extract call :Sweep for /f "skip=%line% tokens=1,2* delims=：　[]" %%i in (Tel\Tel.db) do ( if "%%i" == "-End-" goto Display set "%%i=%%j") :Display set ieheight=520 if not "%照片%" == "" (set "照片路径=") else set "照片路径=无照片" call :Event >>%Temp%\Temp.vbs echo with ie.document >>%Temp%\Temp.vbs echo .write "联系人资料" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
联系人 %姓名% 资料
" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
联系人资料
姓名: 　　　%姓名%
录入日期: 　%录入日期%		%照片路径%
手机号码 1: %手机号码 1%
手机号码 2: %手机号码 2%
住宅电话: 　%住宅电话%
办公室电话: %办公室电话%
传真: 　　　%传真%
电子邮件: 　%电子邮件%
家庭地址: 　%家庭地址%
" >>%Temp%\Temp.vbs echo .write "
" >>%Temp%\Temp.vbs echo .write "

" >>%Temp%\Temp.vbs echo .write "　　" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo end with >>%Temp%\Temp.vbs echo dim wmi >>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow >>%Temp%\Temp.vbs echo set id=ie.document.all >>%Temp%\Temp.vbs echo id.Modify.onclick=getref("Modify") >>%Temp%\Temp.vbs echo id.Del.onclick=getref("Del") call :SleepCancel >>%Temp%\Temp.vbs echo sub Modify >>%Temp%\Temp.vbs echo ie.quit >>%Temp%\Temp.vbs echo Wscript.Echo "Modify" >>%Temp%\Temp.vbs echo end sub >>%Temp%\Temp.vbs echo sub Del >>%Temp%\Temp.vbs echo ie.quit >>%Temp%\Temp.vbs echo Wscript.Echo "Del" >>%Temp%\Temp.vbs echo end sub for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do ( if "%%i" == "exit" goto Main goto %%i) goto Main :Del >%Temp%\Temp.vbs echo set WshShell = WScript.CreateObject("WScript.Shell") >>%Temp%\Temp.vbs echo intAnswer = MsgBox("您确定删除联系人: %姓名% ？ ", vbExclamation + vbYesNo, "警告！") >>%Temp%\Temp.vbs echo If intAnswer = vbYes Then >>%Temp%\Temp.vbs echo end if >>%Temp%\Temp.vbs echo If intAnswer = vbNo Then >>%Temp%\Temp.vbs echo Wscript.Echo "Info" >>%Temp%\Temp.vbs echo end if for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do if not "%%i" == "" goto %%i call :Deldb if exist "%照片%" del/q "%照片%" >%Temp%\Temp.vbs echo intAnswer = Msgbox("联系人 %姓名% 已删除！ ", vbExclamation , "删除！") %Temp%\Temp.vbs goto Main :Modify set "title=修改联系人 %姓名% 资料" set 录入取消=取消对本联系人资料的修改 set 录入确定=确定对本联系人资料的修改 set 记录日期=修改日期 set ieheight=550 set "手机号码 1=%手机号码 1:无=%" set "手机号码 2=%手机号码 2:无=%" set "住宅电话=%住宅电话:无=%" set "办公室电话=%办公室电话:无=%" set "传真=%传真:无=%" set "电子邮件=%电子邮件:无=%" set "家庭地址=%家庭地址:无=%" if not "%照片%" == "" (set "修改照片= 
如需修改则浏览选取照片
") else set "修改照片=无照片

" set AddN=No set ModifyN=1 call :Event call :Input if "%input%" == "exit" set "input=%姓名%"&goto Info if "%Source%" == "" (set "Photo=%照片%") else copy/y "%Source%" "%Photo%">nul call :Deldb call :Newdb set "input=%Name%" goto Info :All set "title=所有联系人资料" set ieheight=720 set start=1 set cease=20 set Page=0 :AllPage set Count=1 set /a start=%start%+(%Page%) set /a cease=%cease%+(%Page%) call :Event if %cease% LEQ 20 (set Updisabled=disabled&set "Upbutton=%Pagedisabled%") else set Updisabled=&set "Upbutton=%Pagebutton%" if %cease% GTR %Amount% (set cease$=%Amount%) else set cease$=%cease% >>%Temp%\Temp.vbs echo with ie.document >>%Temp%\Temp.vbs echo .write "所有联系人资料" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
所有联系人资料(%start%-%cease$%/%Amount%)
" for /f "skip=3 tokens=1,2* delims=：　[]" %%i in (Tel\Tel.db) do ( set List=%%i if !Count! GEQ %start% if !Count! LEQ %cease% if "!List:~-2!" == "::" call :Sweep set "%%i=%%j" if !Count! GEQ %start% if !Count! LEQ %cease% if "%%i" == "-End-" call :Indi if "%%i" == "-End-" set /a Count+=1 if %Amount% GEQ !Count! (set Dodisabled=&set "Dobutton=%Pagebutton%") else set Dodisabled=disabled&set "Dobutton=%Pagedisabled%" if !Count! GTR %cease% goto AllAfter) :AllAfter >>%Temp%\Temp.vbs echo .write "
　　　　
" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo end with >>%Temp%\Temp.vbs echo dim wmi >>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow >>%Temp%\Temp.vbs echo set id=ie.document.all >>%Temp%\Temp.vbs echo id.Up.onclick=getref("Up") >>%Temp%\Temp.vbs echo id.Down.onclick=getref("Down") >>%Temp%\Temp.vbs echo sub Up >>%Temp%\Temp.vbs echo ie.quit >>%Temp%\Temp.vbs echo Wscript.Echo "-20" >>%Temp%\Temp.vbs echo end sub >>%Temp%\Temp.vbs echo sub Down >>%Temp%\Temp.vbs echo ie.quit >>%Temp%\Temp.vbs echo Wscript.Echo "20" >>%Temp%\Temp.vbs echo end sub call :SleepCancel for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do ( if "%%i" == "exit" goto Main set Page=%%i&goto AllPage) :List set NumN= for /f "skip=3 delims=" %%i in (Tel\Tel.db) do ( set NameEnd=%%i for /f "tokens=1,2* delims=:" %%n in ("%%i") do ( if "!NameEnd:~-2!" == "::" set /a NumN+=1&&>>%Temp%\Temp.VBS echo .write "

" >>%Temp%\Temp.vbs echo .write "　　" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo end with >>%Temp%\Temp.vbs echo dim wmi >>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow >>%Temp%\Temp.vbs echo set id=ie.document.all >>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm") call :SleepCancel >>%Temp%\Temp.vbs echo sub confirm >>%Temp%\Temp.vbs echo ie.visible=0 >>%Temp%\Temp.vbs echo ie.quit >>%Temp%\Temp.vbs echo with id >>%Temp%\Temp.vbs echo if not .Name.value="" then Wscript.Echo "Name&",.Name.value >>%Temp%\Temp.vbs echo if not .Photo.value="" then Wscript.Echo "Photo&",.Photo.value >>%Temp%\Temp.vbs echo if not .Mobile1.value="" then Wscript.Echo "Mobile1&",.Mobile1.value >>%Temp%\Temp.vbs echo if not .Mobile2.value="" then Wscript.Echo "Mobile2&",.Mobile2.value >>%Temp%\Temp.vbs echo if not .Phone.value="" then Wscript.Echo "Phone&",.Phone.value >>%Temp%\Temp.vbs echo if not .Office.value="" then Wscript.Echo "Office&",.Office.value >>%Temp%\Temp.vbs echo if not .Fax.value="" then Wscript.Echo "Fax&",.Fax.value >>%Temp%\Temp.vbs echo if not .Email.value="" then Wscript.Echo "Email&",.Email.value >>%Temp%\Temp.vbs echo if not .Home.value="" then Wscript.Echo "Home&",.Home.value >>%Temp%\Temp.vbs echo exit sub >>%Temp%\Temp.vbs echo end with >>%Temp%\Temp.vbs echo end sub set input=&set Num=&set Name=&set Source=&set Photo=&set Mobile1=&set Mobile2=&set Phone=&set Office=&set Fax=&set Email=&set Home= for /f "tokens=1,2* delims=&" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do ( set /a Num+=1 if "!Num!" == "1" if "%%i" == "exit" set input=%%i&goto :eof set "input=%%j"&&set "input=!input:~1!" if not "%%i" == "Photo" (set "%%i=!input!") else set "Source=!input!"&&set "Photo=Tel\!Name!%%~xj") set input= goto :eof :SleepCancel >>%Temp%\Temp.vbs echo do while true >>%Temp%\Temp.vbs echo wscript.sleep 500 >>%Temp%\Temp.vbs echo WshShell.AppActivate ("%title% - Microsoft Internet Explorer") >>%Temp%\Temp.vbs echo loop >>%Temp%\Temp.vbs echo sub event_onquit >>%Temp%\Temp.vbs echo Wscript.Echo "exit" >>%Temp%\Temp.vbs echo wscript.quit >>%Temp%\Temp.vbs echo end sub goto :eof :Newdb >>Tel\Tel.db echo.%Name%:%Mobile1%:: if not "%Name%" == "" >>Tel\Tel.db echo.姓名：　　　[%Name%] if not "%Photo%" == "" >>Tel\Tel.db echo.照片：　　　[%Photo%] if not "%Mobile1%" == "" >>Tel\Tel.db echo.手机号码 1：[%Mobile1%] if not "%Mobile2%" == "" >>Tel\Tel.db echo.手机号码 2：[%Mobile2%] if not "%Phone%" == "" >>Tel\Tel.db echo.住宅电话：　[%Phone%] if not "%Office%" == "" >>Tel\Tel.db echo.办公室电话：[%Office%] if not "%Fax%" == "" >>Tel\Tel.db echo.传真：　　　[%Fax%] if not "%Email%" == "" >>Tel\Tel.db echo.电子邮件：　[%Email%] if not "%Home%" == "" >>Tel\Tel.db echo.家庭地址：　[%Home%] >>Tel\Tel.db echo.录入日期：　[%Date:~0,10%] >>Tel\Tel.db echo.-End- >>Tel\Tel.db echo. goto :eof :Deldb move/y Tel\Tel.db Tel\TelBak.db call :Tel.db set Delete=echo for /f "skip=3 delims=" %%i in (Tel\TelBak.db) do ( for /f "tokens=1* delims=:" %%n in ("%%i") do ( if "%%n" == "%姓名%" set Delete=rem >>Tel\Tel.db !Delete! %%i if "%%i" == "-End-" >>Tel\Tel.db !Delete!.&&set Delete=echo)) goto :eof :Sweep set "姓名=" set "照片=" set "手机号码 1=无" set "手机号码 2=无" set "住宅电话=无" set "办公室电话=无" set "传真=无" set "电子邮件=无" set "家庭地址=无" goto :eof :Indi if not "%照片%" == "" (set "照片路径=") else set "照片路径=无照片" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
联系人 %姓名% 资料
姓名: 　　　%姓名%
录入日期: 　%录入日期%		%照片路径%
手机号码 1: %手机号码 1%
手机号码 2: %手机号码 2%
住宅电话: 　%住宅电话%
办公室电话: %办公室电话%
传真: 　　　%传真%
电子邮件: 　%电子邮件%
家庭地址: 　%家庭地址%
- %Count% -


" goto :eof :SortTel >%Temp%\Temp.vbs echo set WshShell = WScript.CreateObject("WScript.Shell") >>%Temp%\Temp.vbs echo intAnswer = MsgBox("是否要对通讯录数据库进行排序？ ", vbExclamation + vbYesNo, "警告！") >>%Temp%\Temp.vbs echo If intAnswer = vbYes Then >>%Temp%\Temp.vbs echo Wscript.Echo "SortTemp" >>%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 if for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do goto %%i goto Main :SortTemp move/y Tel\Tel.db Tel\SortTel.db for /f "skip=3 delims=" %%i in (Tel\SortTel.db) do ( set NameEnd=%%i if "!NameEnd:~-2!" == "::" for /f "tokens=1,2* delims=:" %%n in ("%%i") do set $%%n=$) call :Tel.db for /f "delims=$=" %%i in ('set $^|Sort') do ( set input=%%i call :ExecuteSort) >%Temp%\Temp.vbs echo intAnswer = Msgbox("通讯录数据库排序完毕！ ", vbExclamation , "完成！") %Temp%\Temp.vbs goto Main :ExecuteSort set line= for /f "tokens=1,2* delims=:" %%i in ('findstr /nirc:"%input%" Tel\SortTel.db') do ( if "%%j" == "%input%" set /a line=%%i-1) if "%line%" == "" goto :eof for /f "skip=%line% delims=" %%i in (Tel\SortTel.db) do ( >>Tel\Tel.db echo %%i if "%%i" == "-End-" >>Tel\Tel.db echo.&goto :eof) :Help set ieheight=500 call :Event >>%Temp%\Temp.vbs echo with ie.document >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "IE 界面批处理通讯录帮助信息" >>%Temp%\Temp.vbs echo .write "" >>%Temp%\Temp.vbs echo .write "
" >>%Temp%\Temp.vbs echo .write "

IE 界面批处理通讯录帮助信息" >>%Temp%\Temp.vbs echo .write "

1、 不能按【F5】键刷新界面，否则界面内所有按键将会失效，只能点击关闭窗口按键重来（好像是系统的 IE 界面与 VBS 脚本之间的问题）！！！" >>%Temp%\Temp.vbs echo .write "
　　在 IE 界面输入、点击相应按键，IE 界面关闭后，批处理命令从 VBS 脚本获取信息时，有时候下一步的提示反应速度会稍慢，好像也是批处理与 VBS 脚本之间的问题。" >>%Temp%\Temp.vbs echo .write "

2、 主界面输入框内输入后直接回车[查询/新增]联系人(优先)，也可以从列表选取联系人！" >>%Temp%\Temp.vbs echo .write "

3、 主界面内输入纯数字判断为第一手机号码（目前只能判断第一手机号码），数据库内存在该第一手机号码就会显示该联系人资料；" >>%Temp%\Temp.vbs echo .write "
　　输入除纯数字外其他字符时，如果数据库内存在该联系人，自动显示该联系人资料，如果数据库内不存在该联系人，则自动询问是否要新增联系人。" >>%Temp%\Temp.vbs echo .write "

4、 回车键默认为：主界面>[查询/新增]；联系人资料>返回主界面；所有联系人资料>查看下一页联系人资料。" >>%Temp%\Temp.vbs echo .write "

by-zh159
" >>%Temp%\Temp.vbs echo .write "

" >>%Temp%\Temp.vbs echo end with >>%Temp%\Temp.vbs echo dim wmi >>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow >>%Temp%\Temp.vbs echo set id=ie.document.all >>%Temp%\Temp.vbs echo sub event_onquit >>%Temp%\Temp.vbs echo wscript.quit >>%Temp%\Temp.vbs echo end sub start %Temp%\Temp.vbs ping -n 2 127.1>nul goto :Main