史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 軟體應用問題討論區
忘記密碼?
論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2003-01-03, 01:03 PM   #1
habaax
榮譽勳章

勳章總數
UID -
在線等級:
文章: n/a
精華:
Thumbs up 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
 
送花文章: 0, 收花文章: 0 篇, 收花: 0 次
回覆時引用此帖
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
全面分析E-mail收發失敗的原因 psac 繪圖軟體應用技術文件 1 2004-09-04 08:31 PM
Microsoft群集解決方案 psac 網路軟硬體架設技術文件 0 2003-12-13 06:52 PM
FTP傳輸協定對防火牆安全性的挑戰 psac 應用軟體使用技術文件 0 2003-11-13 03:32 AM
Windows Server 2003無碟終端網組建 psac 網路軟硬體架設技術文件 0 2003-07-17 11:50 AM
來自Microsoft官方的Terminal Services資料 psac 多媒體影音轉檔燒錄技術文件 0 2003-07-07 09:02 PM


所有時間均為台北時間。現在的時間是 10:59 PM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2021, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1