ie 界面批处理通讯录.bat

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

>>%Temp%\Temp.vbs echo .write "<style type='text/css' id='css'>.index a:hover{color:#FFDD64;text-decoration: none;}"
>>%Temp%\Temp.vbs echo .write ".button {font: 15px 宋体, Verdana;border: 1px solid #698cc2;height: 24px;width:60%%;}</style>"
>>%Temp%\Temp.vbs echo .write "<table align=center style='font-family:楷体_gb2312;font-size:24px;'><td>联系人 %姓名% 资料</td></table>"
>>%Temp%\Temp.vbs echo .write "<table width=550 align=center border=1 cellSpacing=2 cellpadding=5 borderColor=#698cc2 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>"
>>%Temp%\Temp.vbs echo .write "<table width=550><td align=right><input id=Del type=button value='删除' title='删除本联系人' style='font-size:13px;width:42;height:18;%button%'></td></table>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write "<input id=Modify type=button value='修 改' title='修改本联系人的资料' style='font-size:18px;%button%'>　　<input type=submit 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.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 "修改照片=&nbsp;<img src='%cd:\=/%/%照片:\=/%' height=220 border=1><br>如需修改则浏览选取照片<br>") else set "修改照片=无照片<br><br>"
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 "<html><title>所有联系人资料</title>"
>>%Temp%\Temp.vbs echo .write "<body background='%cd:\=/%/Tel/bg.gif' bgcolor=#e3e5da style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<style type='text/css' id='css'>.index a:hover{color:#FFDD64;text-decoration: none;}"
>>%Temp%\Temp.vbs echo .write ".button {font: 15px 宋体, Verdana;border: 1px solid #698cc2;height: 24px;width:60%%;}</style>"
>>%Temp%\Temp.vbs echo .write "<table align=center style='font-family:楷体_gb2312;font-size:24px;'><td>所有联系人资料(%start%-%cease$%/%Amount%)</td></table>"

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 "<table align=center><td><input id=Up type=button value='上一页' title='查看上一页内容' style='font-size:18px;color:#ffffff;%Upbutton%' %Updisabled%>　　<input type=button onClick='opener=null;window.close()' value='返 回' title='返回主界面（默认回车）' style='font-size:18px;%button%'>　　<input id=Down type=submit value='下一页' title='查看下一页内容' style='font-size:18px;color:#ffffff;%Dobutton%' %Dodisabled%></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.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 "<option value='%%n'>!NumN! - %%n"))
goto :eof

:Tel.db
>Tel\Tel.db echo ::电话本数据库
>>Tel\Tel.db echo --------------------------------------------------
>>Tel\Tel.db echo.
goto :eof

:Event
>%Temp%\Temp.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_") 
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=600
>>%Temp%\Temp.vbs echo ie.height=%ieheight%
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1
goto :eof

:Input
>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>%title%</title><body background='%cd:\=/%/Tel/bg.gif' bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<style type='text/css' id='css'>"
>>%Temp%\Temp.vbs echo .write ".button {font: 15px 宋体, Verdana;border: 1px solid #698cc2;height: 24px;width:65%%;FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=#f8f8fa,endColorStr=#dee8f4)}</style>"
>>%Temp%\Temp.vbs echo .write "<table align=center style='font-family:楷体_gb2312;font-size:24px;'><td>%title%</td></table>"
>>%Temp%\Temp.vbs echo .write "<table width=550 align=center border=1 cellSpacing=2 cellpadding=4 borderColor=#698cc2 style='font-size:15px;border:#698cc2 2px solid;'>"