ie 界面批处理通讯录.bat

高手lxmxn收集的批处理。包括了批处理教程和他写的几十个很经典的代码。

>>%Temp%\Temp.vbs echo .write "<tr><td align=center bgcolor=#9fbfe3 style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#abc6e3)' colspan=3><b>联系人资料</b></b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td width=370 colspan=2>姓名: 　　　<input class=button id=Name type=test value='%姓名%'><br>%记录日期%: 　<b><u>%Date:~0,10%</u></b></td><td align=center width=180 rowspan=7>%修改照片%<input id=Photo type=file name='attach[]' title='浏览输入联系人的照片' style='font-size:15px;width:200px;height:24px;'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>手机号码 1: <input class=button id=Mobile1 type=test value='%手机号码 1%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>手机号码 2: <input class=button id=Mobile2 type=test value='%手机号码 2%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>住宅电话: 　<input class=button id=Phone type=test value='%住宅电话%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>办公室电话: <input class=button id=Office type=test value='%办公室电话%'</td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>传真: 　　　<input class=button id=Fax type=test value='%传真%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>电子邮件: 　<input class=button id=Email  type=test value='%电子邮件%'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=3>家庭地址: 　<input class=button id=Home type=test value='%家庭地址%' style='width:80%%;'></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td align=center bgcolor=#9fbfe3 style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#abc6e3)' colspan=3>今天日期: %Date:~0,10%</td></tr></table>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value='确 定' title='%录入确定%' style='font-size:18px;%button%'>　　<input type=button onClick='opener=null;window.close()' value='取 消' title='%录入取消%' style='font-size:18px;%button%'>"
>>%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.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 "照片路径=<img src='%cd:\=/%/%照片:\=/%' height=200 border=1>") else set "照片路径=无照片"
>>%Temp%\Temp.vbs echo .write "<table width=530 align=center border=1 cellSpacing=2 cellpadding=5 borderColor=#698cc2 title='直接回车查看下一页' style='font-size:15px;border:#698cc2 2px solid;'>"
>>%Temp%\Temp.vbs echo .write "<tr><td align=center bgcolor=#9fbfe3 style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#abc6e3)' colspan=3><b>联系人 %姓名% 资料</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td width=370 colspan=2>姓名: 　　　<b>%姓名%</b><br>录入日期: 　<b>%录入日期%</b></td><td align=center width=180 rowspan=7>%照片路径%</td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>手机号码 1: <b>%手机号码 1%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>手机号码 2: <b>%手机号码 2%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>住宅电话: 　<b>%住宅电话%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>办公室电话: <b>%办公室电话%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>传真: 　　　<b>%传真%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td colspan=2>电子邮件: 　<b>%电子邮件%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "<tr><td style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#abc6e3)' colspan=3>家庭地址: 　<b>%家庭地址%</b></td></tr>"
>>%Temp%\Temp.vbs echo .write "</table><table align=center>- %Count% -</table><br><br>"
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 "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb_2312-80'>"
>>%Temp%\Temp.vbs echo .write "<title>IE 界面批处理通讯录帮助信息</title><style>em {color: #ffffff;font-style: normal;}</style></head>"
>>%Temp%\Temp.vbs echo .write "<body scroll=no style='FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#5a7dde,endColorStr=#9ab8f6);'>"
>>%Temp%\Temp.vbs echo .write "<table align=center border=0 cellpadding=3 cellspacing=0 width=98%% style='font-family:宋体;font-size:15px;color:#000000;'><td>"
>>%Temp%\Temp.vbs echo .write "<p align=center style='font-size:18px;'><em><b>IE 界面批处理通讯录帮助信息</b></em>"
>>%Temp%\Temp.vbs echo .write "<p><em><b>1、 不能按【F5】键刷新界面，否则界面内所有按键将会失效，只能点击关闭窗口按键重来（好像是系统的 IE 界面与 VBS 脚本之间的问题）！！！"
>>%Temp%\Temp.vbs echo .write "<br>　　在 IE 界面输入、点击相应按键，IE 界面关闭后，批处理命令从 VBS 脚本获取信息时，有时候下一步的提示反应速度会稍慢，好像也是批处理与 VBS 脚本之间的问题。</b></em>"
>>%Temp%\Temp.vbs echo .write "<p>2、 主界面输入框内输入后直接回车<b>[查询/新增]</b>联系人<b>(优先)</b>，也可以从列表选取联系人！"
>>%Temp%\Temp.vbs echo .write "<p>3、 主界面内输入纯数字判断为第一手机号码（目前只能判断第一手机号码），数据库内存在该第一手机号码就会显示该联系人资料；"
>>%Temp%\Temp.vbs echo .write "<br>　　输入除纯数字外其他字符时，如果数据库内存在该联系人，自动显示该联系人资料，如果数据库内不存在该联系人，则自动询问是否要新增联系人。"
>>%Temp%\Temp.vbs echo .write "<p>4、 回车键默认为：<em><b>主界面</b></em>>[查询/新增]；<em><b>联系人资料</b></em>>返回主界面；<em><b>所有联系人资料</b></em>>查看下一页联系人资料。"
>>%Temp%\Temp.vbs echo .write "<p><table width=98%%><td align=right style='font-size:15px;'><em><b>by-zh159</b></em> <input type=submit onClick='opener=null;window.close()' value='关闭' name='button' title='直接回车关闭本帮助信息' style='font-family:宋体;font-size:15px;border: 1 solid #9ab8f6;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#10bfff,endColorStr=#007db2);cursor:hand;color:#ffffff;'></td></table>"
>>%Temp%\Temp.vbs echo .write "</td></table></body>"
>>%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

iexplore.exe %Temp%\Temp.vbs
ping -n 2 127.1>nul
goto :Main