eDonkey2000伺服器清單更新程式
:) 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 |
所有時間均為台北時間。現在的時間是 11:41 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *