.版本?2

.支持庫?downlib

.支持庫?spec

.支持庫?edroptarget

.支持庫?EThread

.支持庫?internet

.支持庫?shell

.程序集?窗口程序集_啟動窗口

.程序集變量?全_接受到的文件,?文本型

.程序集變量?FTP,?FTP輔助對象

.程序集變量?下載對象,?下載對象

.程序集變量?任務(wù)參數(shù),?任務(wù)參數(shù)

.程序集變量?傳送常量,?傳送常量

.程序集變量?版本號,?文本型,?,?"2"

.程序集變量?文件號,?整數(shù)型,?,?"2"

.子程序?__啟動窗口_創(chuàng)建完畢

.局部變量?文件大小,?整數(shù)型

文件號?[1]?＝?打開文件?(“C:\Users\Administrator\Desktop\軟件更新案例\版本信息.txt”,?#讀寫,?1)??'?先檢查本地軟件版本

版本號?[1]?＝?讀入一行?(文件號?[1])??'?將讀入本地版本號

調(diào)試輸出?(版本號?[1])

關(guān)閉文件?(文件號?[1])

拖放對象1.注冊拖放控件?(_啟動窗口.取窗口句柄?())??'?用于上傳文件，方便試驗

.如果真?(版本號?[1]?≠?“”)??'?先確定找到本地版本號才運行以下代碼

.如果?(FTP.連接FTP服務(wù)器?(“這里輸入你申請的服務(wù)鏈接”,?“這輸入用戶名！”,?“這里輸入密碼”,?21,?&日志回調(diào),?))??'?登錄服務(wù)器

.如果真?(文件_刪除?(“C:\Users\Administrator\Desktop\軟件更新案例\版本信息.txt”))

啟動線程?(&更新線程2,?,?)

.如果真結(jié)束

_啟動窗口.標(biāo)題?＝?“連接服務(wù)器成功”??'?提示服務(wù)器連接成功

.否則

_啟動窗口.標(biāo)題?＝?“連接服務(wù)器失敗”

.如果結(jié)束

.如果真結(jié)束

.子程序?日志回調(diào)

.參數(shù)?線程信息,?整數(shù)型

.參數(shù)?消息產(chǎn)生的時間,?文本型

.參數(shù)?消息的正文,?文本型

.參數(shù)?消息類型,?整數(shù)型

.參數(shù)?對象信息,?整數(shù)型

調(diào)試輸出?(線程信息)

調(diào)試輸出?(消息產(chǎn)生的時間)

調(diào)試輸出?(消息的正文)

調(diào)試輸出?(消息類型)

調(diào)試輸出?(對象信息)

.子程序?_按鈕1_被單擊

FTP文件上傳?(全_接受到的文件,?“版本信息.txt”,?)

.子程序?_拖放對象1_得到文件

.參數(shù)?接收到的文件路徑,?文本型

全_接受到的文件?＝?接收到的文件路徑

編輯框1.內(nèi)容?＝?接收到的文件路徑

.子程序?更新線程2

任務(wù)參數(shù).類型?＝?#傳送常量.下載

任務(wù)參數(shù).文件地址?＝?“這里輸入你申請的服務(wù)鏈接/版本信息.txt”

'?注意：加ftp服務(wù)器名(編輯框1.內(nèi)容?)

信息框?(任務(wù)參數(shù).文件地址,?0,?,?)

任務(wù)參數(shù).本地文件路徑?＝?“C:\Users\Administrator\Desktop\軟件更新案例\版本信息.txt”

'?任務(wù)參數(shù).日志回調(diào)函數(shù)?＝?&日志回調(diào)

任務(wù)參數(shù).用戶名?＝?“這輸入用戶名！”

任務(wù)參數(shù).用戶密碼?＝?“?這里輸入密碼”

任務(wù)參數(shù).發(fā)送大小?＝?2048

任務(wù)參數(shù).接收大小?＝?20480

任務(wù)參數(shù).發(fā)送超時?＝?20000

'?任務(wù)參數(shù).交互回調(diào)函數(shù)?＝?&交互回調(diào)函數(shù)

任務(wù)參數(shù).下載速度?＝?0

任務(wù)參數(shù).接收超時?＝?20000

任務(wù)參數(shù).傳送類型?＝?1

任務(wù)參數(shù).類型區(qū)分串?＝?“.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”

.如果真?(下載對象.增加新任務(wù)?(任務(wù)參數(shù)))

信息框?(“開始下載咯”,?0,?,?)

'?延時?(300)

文件號?[2]?＝?打開文件?(取特定目錄?(3)?＋?“版本信息.txt”,?#讀寫,?1)??'?讀入服務(wù)器下載下來的版本信息文件

版本號?[2]?＝?讀入一行?(文件號?[2])

調(diào)試輸出?(版本號?[2])

.如果?(版本號?[1]?≠?版本號?[2])??'?判斷本地版本號跟服務(wù)器是否一致，不一致就下載新軟件

.如果?(信息框?(“發(fā)現(xiàn)新版本是否更新？”,?0,?,?)?＝?0)??'?要你確認(rèn)

刪除文件?(取運行目錄?()?＋?“1.0程序”)

任務(wù)參數(shù).文件地址?＝?“這里輸入你申請的服務(wù)鏈接/程序.e”??'?下載咯

任務(wù)參數(shù).類型?＝?#傳送常量.下載

'?注意：加ftp服務(wù)器名(編輯框1.內(nèi)容?)

信息框?(任務(wù)參數(shù).文件地址,?0,?,?)

任務(wù)參數(shù).本地文件路徑?＝?“C:\Users\Administrator\Desktop\軟件更新案例\版本信息.txt”

'?任務(wù)參數(shù).日志回調(diào)函數(shù)?＝?&日志回調(diào)

任務(wù)參數(shù).用戶名?＝?“這輸入用戶名！”

任務(wù)參數(shù).用戶密碼?＝?“?這里輸入密碼”

任務(wù)參數(shù).發(fā)送大小?＝?2048

任務(wù)參數(shù).接收大小?＝?20480

任務(wù)參數(shù).發(fā)送超時?＝?20000

'?任務(wù)參數(shù).交互回調(diào)函數(shù)?＝?&交互回調(diào)函數(shù)

任務(wù)參數(shù).下載速度?＝?0

任務(wù)參數(shù).接收超時?＝?20000

任務(wù)參數(shù).傳送類型?＝?1

任務(wù)參數(shù).類型區(qū)分串?＝?“.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”

下載對象.增加新任務(wù)?(任務(wù)參數(shù))

.否則

_啟動窗口.銷毀?()

.如果結(jié)束

.否則

.如果結(jié)束

.如果真結(jié)束

@weiyongbo

文件下載

解壓密碼：

來源：三葉資源網(wǎng)，歡迎分享，公眾號：iisanye，(三葉資源網(wǎng)⑤群：21414575)

總結(jié)

以上是生活随笔為你收集整理的易语言利用服务器更新,易语言使用FTP服务器更新软件案例的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。