.版本?2

.支持庫?downlib

.支持庫?spec

.支持庫?edroptarget

.支持庫?EThread

.支持庫?internet

.支持庫?shell

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

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

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

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

.程序集變量?任務參數,?任務參數

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

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

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

.子程序?__啟動窗口_創建完畢

.局部變量?文件大小,?整數型

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

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

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

關閉文件?(文件號?[1])

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

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

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

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

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

.如果真結束

_啟動窗口.標題?＝?“連接服務器成功”??'?提示服務器連接成功

.否則

_啟動窗口.標題?＝?“連接服務器失敗”

.如果結束

.如果真結束

.子程序?日志回調

.參數?線程信息,?整數型

.參數?消息產生的時間,?文本型

.參數?消息的正文,?文本型

.參數?消息類型,?整數型

.參數?對象信息,?整數型

調試輸出?(線程信息)

調試輸出?(消息產生的時間)

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

調試輸出?(消息類型)

調試輸出?(對象信息)

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

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

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

.參數?接收到的文件路徑,?文本型

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

編輯框1.內容?＝?接收到的文件路徑

.子程序?更新線程2

任務參數.類型?＝?#傳送常量.下載

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

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

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

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

'?任務參數.日志回調函數?＝?&日志回調

任務參數.用戶名?＝?“這輸入用戶名！”

任務參數.用戶密碼?＝?“?這里輸入密碼”

任務參數.發送大小?＝?2048

任務參數.接收大小?＝?20480

任務參數.發送超時?＝?20000

'?任務參數.交互回調函數?＝?&交互回調函數

任務參數.下載速度?＝?0

任務參數.接收超時?＝?20000

任務參數.傳送類型?＝?1

任務參數.類型區分串?＝?“.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”

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

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

'?延時?(300)

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

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

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

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

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

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

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

任務參數.類型?＝?#傳送常量.下載

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

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

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

'?任務參數.日志回調函數?＝?&日志回調

任務參數.用戶名?＝?“這輸入用戶名！”

任務參數.用戶密碼?＝?“?這里輸入密碼”

任務參數.發送大小?＝?2048

任務參數.接收大小?＝?20480

任務參數.發送超時?＝?20000

'?任務參數.交互回調函數?＝?&交互回調函數

任務參數.下載速度?＝?0

任務參數.接收超時?＝?20000

任務參數.傳送類型?＝?1

任務參數.類型區分串?＝?“.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”

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

.否則

_啟動窗口.銷毀?()

.如果結束

.否則

.如果結束

.如果真結束

@weiyongbo

文件下載

解壓密碼：

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。