habaax

eDonkey2000伺服器清單更新程式
把下面存成 *.bat 執刑即可!!!!!!!!!!!!!!!
偶而更新一下,就不必煩惱伺服器清單過舊,不能連!!!!!!!!!!!
用用看!!!!!!!!


@echo off
set debug="false"
set met=server
set nocheck="true"
set timeout=5

goto start


:finish
if %nocheck%=="true" goto nocheckmet
if %met%==伺服器清單 ren %met%.met server.met
ed2k_slist -T%timeout%
del server.met.備份的檔案
if %met%==伺服器清單 ren server.met %met.met
:nocheckmet
if %met%==伺服器清單 goto server
echo 完成下載新的伺服器清單，啟動 eDonkey 2000 中 ...
start /max gdonkey.exe
exit
goto end
:server
echo 完成下載新的伺服器清單，啟動 eDonkey 伺服器中 ...
if exist Donkey.exe Donkey.exe
goto end
start dserver.exe
exit

goto end

:error_noprogram

echo 錯誤，找不到 eDonkey 2000 伺服器或客戶端程式，請將更新程式放在程式資料夾內！

goto end

:error

echo 錯誤，找不到伺服器！

goto end

:download

echo 現在將嘗試下載 %met%.met
url2file "http://ocbmaurice.no-ip.org/pl/slist.pl?download" %met%.met -a AUTOUPDATE -o 20 -r AUTOUPDATE > nul
if exist %met%.met goto finish

echo 第一次嘗試未成功, 現在將再重試
url2file "http://ocbmaurice.dyns.net/pl/slist.pl?download" %met%.met -a AUTOUPDATE -o 20 -r AUTOUPDATE > nul
if exist %met%.met goto finish

echo 第二次嘗試未成功, 現在將做最後重試
url2file "http://ed2k-met.hopto.org" %met%.met -a AUTOUPDATE -o 20 -r AUTOUPDATE > nul
if exist %met%.met goto finish

echo 無法下載新的 %met% ，也許是網路中斷 !!

if not exist %met%.bck goto error

if %debug%=="true" echo 回存伺服器清單備份
copy %met%.bck %met%.met > nul

if %debug%=="true" echo 移除舊的伺服器清單備份
del %met%.bck > nul

goto end

:start

if exist dserver.exe goto update_server
if exist gdonkey.exe goto update_client

goto error_noprogram

:update_server

set met=伺服器清單

goto update

:update_client

:update
if not exist %met%.met goto download

if exist %met%.bck if %debug%=="true" echo 移除舊的伺服器清單備份
if exist %met%.bck del %met%.bck > nul

if %debug%=="true" echo 製作 %met%.met 備份檔
copy %met%.met %met%.bck > nul

if %debug%=="true" echo 刪除舊的 %met%.met
del %met%.met > nul

goto download

:end
exit
echo.
echo.更新結束，將要離開
echo.

EXIT