📄 ie 界面批处理通讯录.bat
字号:
@echo off
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 "<html><title>IE 界面批处理通讯录 - zh159 制作</title><meta http-equiv='Content-Type' content='text/html; charset=gbk'>"
>>%Temp%\Temp.vbs echo .write "<style type='text/css' id='css'>.button {font: 15px 宋体, Verdana;height:32px;width:100px;}</style>"
>>%Temp%\Temp.vbs echo .write "<body onload=sf() background='%cd:\=/%/Tel/bg.gif' bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<table align=center style='font-family:楷体_gb2312;font-size:24px;'><td><b>IE 界面批处理通讯录</b></td></table>"
>>%Temp%\Temp.vbs echo .write "<table width=550 align=center style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#9ab8f6,endColorStr=#5a7dde)'><td align=left style='font-size:1px;'> </td></table>"
>>%Temp%\Temp.vbs echo .write "<table width=550 align=center borderColor=#698cc2 border=0 cellSpacing=1 cellpadding=8 style='font-size:15px;border:#5a7dde 2px solid;'>"
>>%Temp%\Temp.vbs echo .write "<tr><td align=center bgcolor=#698cc2 style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#9ab8f6,endColorStr=#5a7dde)' colspan=4><b><font style=font-size:18px;color:#ffffff;>= 欢迎使用 IE 界面批处理通讯录 =</font><br><font style=color:#d0d0d0;><a title='中国DOS联盟论坛'>zh159@bbs.cn-dos.net</a> <a title='忧郁的蓝色-手机专业论坛'>zh159@bbs.blueshow.net</a></font></b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr align=left><td colspan=4> <b>输入后直接回车[查询/新增]联系人(优先)，也可以从列表选取联系人！</b><br>输入: <input id=input value='点击这里输入联系人姓名或电话' onclick=this.value='' name='messageField' type=text title='输入联系人或电话[优先于]列表查询！' style='font-family:Tahoma,宋体;font-size:15px;border: 1px solid #698cc2;width:300;height:23;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#dee8f4);color:#5a7dde'> <select id=list name='messagePick' OnChange='messageReveal()' style='font-size:15px;border: 1px solid #698cc2;'>"
>>%Temp%\Temp.vbs echo .write "<option value=''>%Amount% 位联系人"
call :List
>>%Temp%\Temp.vbs echo .write "</select> 列表</td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr align=center><td align=center width=25%%><input id=find type=submit class=button value='查询/新增' title='输入联系人或电话后再[查询人/新增]联系人' style='font-family:楷体_gb2312;font-size:21px;width=110;%button%'></td><td align=center width=25%%><input id=All type=button class=button value='查看全部' title='查看通讯录内所有联系人资料' style='font-family:楷体_gb2312;font-size:21px;width=110;%button%'></td>"
>>%Temp%\Temp.vbs echo .write "<td align=center width=25%%><input id=SortTel type=button class=button value='排序' title='对通讯录数据库按字母顺序进行排序' style='font-family:楷体_gb2312;font-size:21px;width=110;%button%'></td><td align=center width=25%%><input type=button class=button onClick='opener=null;window.close()' value='退出' title='退出程序' style='font-family:楷体_gb2312;font-size:21px;width=110;%button%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td align=center bgcolor=#698cc2 style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#d2def2,endColorStr=#9ab8f6);' colspan=4>今天日期: %Date:~0,10%</td></tr></table>"
>>%Temp%\Temp.vbs echo .write "<table width=550 align=center style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#5a7dde,endColorStr=#9ab8f6)'><td align=left style='font-size:1px;'> </td></table>"
>>%Temp%\Temp.vbs echo .write "<table width=560><td align=left style='font-family:宋体;font-size:15px;color=f00'><b> 注意：不要使用“^! ^& * < > \”等单字节字符；<br> 不能按【F5】键刷新界面，否则界面内所有按键将会失效！</b></td><td align=right><input id=help type=button value='使用帮助' title='查看帮助信息' style='font-size:11px;width:60;height:18;%button%'></td></table>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%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 "修改照片=联系人照片，建议大小: <b>170*200(px)</b><br><br>"
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 "照片路径=<img src='%cd:\=/%/%照片:\=/%' height=220 border=1>") else set "照片路径=无照片"
call :Event
>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>联系人资料</title>"
>>%Temp%\Temp.vbs echo .write "<body background='%cd:\=/%/Tel/bg.gif' bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -