怎样用批处理打开规定时间内指定的网页,高手进来！
\u600e\u6837\u7528\u6279\u5904\u7406\u6253\u5f00\u7f51\u9875,\u9ad8\u624b\u8fdb\u6765\uff01@echo off
t.vbs
cscript //nologo t.vbs & del t.vbs
goto :eof
set ierunner = CreateObject("wscript.shell")
ierunner.run "cmd /c start iexplore \u7f51\u9875\u5730\u5740",0
wscript.sleep 3000
ierunner.sendkeys "guest"
ierunner.sendkeys "{TAB}"
ierunner.sendkeys "guest"
ierunner.sendkeys "{TAB}"
os.sendkeys "{ENTER}"
\u7528\u6279\u5904\u7406\u6765\u5199\uff0c\u8fd8\u4e0d\u5982\u7528JS\u5199\uff0c\u628a\u4e0b\u9762\u7684\u4ee3\u7801\u5b58\u4e3a\u4e00\u4e2aHTML\u6587\u4ef6\uff0c\u4f60\u9f20\u6807\u53cc\u51fb\u5728\u6d4f\u89c8\u5668\u91cc\u9762\u6253\u5f00\uff0c\u5c31\u53ef\u4ee5\u6bcf5\u79d2\u6253\u5f00\u4e00\u4e2a\u7f51\u9875\u4e86\uff08\u591a\u4e2a\u7f51\u9875\u8f6e\u6d41\u7684\u8bdd\u4e0d\u65ad\u5f80\u6570\u7ec4\u91cc\u9762\u5199\u5c31\u884c\u4e86\uff09\uff1a
var i=0;
var urls=['http://www.baidu.com','http://zhidao.baidu.com'];
function f(){
ii.location.href=urls[i];
i++;
i%=urls.length;
setTimeout(f,5000);
}
f();
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run(""%0" h",0,false)(window.close)&&exit
rem 调用vbs来达到隐藏界面
:begin
set st=0
set timeup=10:00
set timedown=13:30
rem 设置规定时间上下界
echo wscript.sleep 3000 >%windir%\sl.vbs
echo wscript.sleep 60000 >%windir%\sl2.vbs
rem 生成暂停文件
:run
if %time:~0,2%%time:~3,2% geq %timeup:~0,2%%timeup:~3,2% if %time:~0,2%%time:~3,2% leq %timedown:~0,2%%timedown:~3,2% goto ok
rem 验证时间
set n=20
:runkill
tasklist | find /i "iexplore.exe" >nul && taskkill /f /im iexplore.exe
rem 结束进程
if "%n%"=="0" goto run
set /a n=%n%-1
cscript //nologo %windir%\sl.vbs
:ok
if "%st%"=="0" start iexplore.exe www.baidu.com
set st=1
rem 打开指定网页，并将标记改为1，防止再次打开
cscript //nologo %windir%\sl2.vbs
goto run
此代码有一个缺点，反应时间误差为3秒左右。但还是很实用的。当不是规定时间时，打开网页会自动关闭。
希望多给一些分，这段代码我调试很长时间，还死机了一次。谢谢。
相隔一定时间 运行一次：
@echo off
title BY:独僾祢①亽 QQ:317863452
echo Wscript.Sleep Wscript.Arguments(0) * 1000>5.vbs
color 0b
cls
set /p shijian=请输入您两次连接的间隔时间（秒）：
cls
:kaishi
start http://www.baidu.com
start /w 5.vbs %shijian%
goto :kaishi
绛旓細鐢ㄦ壒澶勭悊鍚э紒灏嗕互涓嬩唬鐮佸鍒跺埌 璁颁簨鏈 涓紝鐒跺悗鍙﹀瓨涓.bat鏂囦欢锛岀劧鍚庡啀灏嗗叾鎷栧埌"寮濮"鑿滃崟鐨"鍚姩"閲岄潰灏監K浜嗭紒echo off set file="e:\a.txt"set year=%date:~0,4 set month=%date:~5,2 set day=%date:~8,2 set now=%year%%month%%day set over=20080808 set /a begin=over-1 i...
绛旓細echo offset "t=%time:~0,2%%time:~3,2%"if %t% geq 2230 goto Aif %t% leq 700 goto Aif %t% geq 800 (if %t% leq 2200 goto B)exit:Acmd /c xxx.exe -t 4exit:Bcmd /c xxx.exe -t 2exit杩欐牱灏辫浜
绛旓細涓嶆竻妤氫綘鐨勫疄闄呮枃浠/鎯呭喌锛屼粎浠ラ棶棰樹腑鐨勮鏄庡強鐚滄祴涓烘嵁锛涗互涓嬩唬鐮佸鍒剁矘璐村埌璁颁簨鏈紝鍙﹀瓨涓簒x.bat锛岀紪鐮侀堿NSI@echo off&cd /d "%~dp0"rem 灏嗙郴缁熸椂闂磋缃负鎸囧畾鏃堕棿锛屽緟鎸囧畾绋嬪簭杩愯寤舵椂涓瀹氭椂闂村悗鎭㈠鍘熸潵鏃堕棿%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c "...
绛旓細\x0d\x0a\x0d\x0a3銆佽嚜鍔ㄨ繍琛鎵瑰鐞鏂囦欢 \x0d\x0a\x0d\x0a濡傛灉鍏徃鐨勬暟鎹甠閲嶈锛岃姹傚湪鎸囧畾鐨鏃ユ湡/鏃堕棿杩涜澶囦唤锛岄偅涔堣繍琛岋細 \x0d\x0a\x0d\x0a鍛戒护锛歛t 1:00AM /Every:Saturday My_BackUp.bat \x0d\x0a\x0d\x0a杩欐牱锛屽湪姣忎釜Saturday锛堝懆鍏級鐨勬棭涓1:00鐐癸紝鐢佃剳瀹氭椂鍚姩M...
绛旓細鍗曞嚮寮濮嬶紝璁剧疆锛屾帶鍒堕潰鐗堬紝鎵惧埌浠诲姟璁″垝锛岄夋嫨娣诲姞鏂颁换鍔★紝鍗曞嚮涓嬩竴姝ワ紝閫夋嫨娴忚锛岄変腑瑕佹墽琛岀殑鎵瑰鐞鏂囦欢锛屼笅涓姝ヤ腑鍐嶉変竴娆℃э紝璋冨ソ鏃堕棿鍗冲彲銆傘
绛旓細鍒犻櫎鏀规垚杩愯鐨勮瘽锛屾妸del /q/f "C:\a.exe" 鐩存帴鏀规垚 c:\a.exe鎴栬 start "" c:\a.exe 鍗抽偅琛屽彉涓猴細if %date:~0,10% geq 2009-06-30 start "" "C:\a.exe"
绛旓細ping -n 60 127.1>nul&start c:\abc.exe 闂琛ュ厖绛斿:浣犱笉濡傝缃竴涓浐瀹鏃堕棿 濡17:00鍚姩銆傘傘傚鏋滆繖鏍风殑璇 鍛戒护灏辨槸 at 17:00 c:\abc.exe
绛旓細瀹炰緥锛氭鍛戒护浼氬湪浠婂ぉ20:10:00杩愯IE娴忚鍣ㄣ::鈺愨晲鈺愨晲鈺愪唬鈺愨晲鈺愮爜鈺愨晲鈺愬紑鈺愨晲鈺愬鈺愨晲鈺愨晲鈺 echo off at 20:10:00 start " " "C:\Program Files\Internet Explorer\iexplore.exe"pause ::鈺愨晲鈺愨晲鈺愪唬鈺愨晲鈺愮爜鈺愨晲鈺愮粨鈺愨晲鈺愭潫鈺愨晲鈺愨晲鈺 ...
绛旓細REM 杩欓噷娴嬭瘯鎵撳紑IE start iexplore.exe REM 寤舵椂10绉 temp%.\sleep$$$.vbs 10 REM 鍏抽棴鍒氭墠鎵撳紑鐨処E taskkill /im iexplore.exe /f REM 鍒犻櫎鑴氭湰锛屾竻鐞嗙幇鍦 for %%f in (%temp%.\sleep$$$.vbs*) do del %%f 涓婅竟鏄竴涓壒澶勭悊鐨勫欢鏃朵緥瀛愶紝鏄啓浜嗕釜VB鑴氭湰鏉ュ疄鐜扮殑锛屼綘鎯鐢ㄦ壒澶勭悊鏈韩涓ユ牸...
绛旓細鎸囧畾瑕佽繍琛岀殑 Windows 2000 鍛戒护銆佺▼搴忥紙.exe 鎴 .com 鏂囦欢锛夋垨鎵瑰鐞绋嬪簭锛.bat 鎴 .cmd 鏂囦欢锛夈傚綋鍛戒护闇瑕佽矾寰勪綔涓哄弬鏁版椂锛岃浣跨敤缁濆璺緞锛屼篃灏辨槸浠庨┍鍔ㄥ櫒鍙峰紑濮嬬殑鏁翠釜璺緞銆傚鏋滃懡浠ゅ湪杩滅▼璁＄畻鏈轰笂锛岃鎸囧畾鏈嶅姟鍣ㄥ拰鍏变韩鍚嶇殑 UNC 绗﹀彿锛岃屼笉鏄繙绋嬮┍鍔ㄥ櫒鍙枫傚鏋滃懡浠や笉鏄彲鎵ц (.exe) 鏂囦欢锛...
