最新消息:

FTP文件上传下载器

autoit 永恒心锁 1083浏览 0评论
#Region 
#AutoIt3Wrapper_icon=d:\My Documents\icon\favicon.ico
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=要面包不要版权
#AutoIt3Wrapper_Res_Description=通过FTP上传下载文件
#AutoIt3Wrapper_Res_Fileversion=2.1.505
#AutoIt3Wrapper_Res_LegalCopyright=zeebit@hotmail.com Qme:1415020
#EndRegion
 
#cs 
----------------------------------------------------------------------------------------
在教学中,学生的作业需要保存
但保存在各自的计算机中不怎么安全,可能会被其他班的学生恶意修改甚至删除
 实现功能1:将文件拖动到本窗口的文本框中,点击上就传按钮可以上传
 实现功能2:将文件名写到文本框中,点击下载就可以将已经上传过的文件下载到桌面
2008-4-28
1、没有选择文件,就点击“上传”或“下载”,此时服务器仍会响应,所以加了个判断跳过
2、指定下载文件到桌面
3、加入“状态行”背景颜色
4、修改帮助信息
2008-5-5
判断配置文件是否存在
----------------------------------------------------------------------------------------
#CE
 
 
#NoTrayIcon
#include <GUIConstants.au3>
#include "ftp.au3"
#include <file.au3>
$z_ver = "V2.1.505"
$title = "FTP文件上传下载器 " & $z_ver
Global $ftpserverinfo = "ftp.ini"
If( Not FileExists($ftpserverinfo) ) Then
 MsgBox(48,"ERROR","配置文件 "&$ftpserverinfo&" 丢失!")
 Exit
EndIf
Dim $ftp_ip = IniRead($ftpserverinfo, "serverinfo", "ip", "")
Dim $ftp_name = IniRead($ftpserverinfo, "serverinfo", "name", "")
Dim $ftp_pass = IniRead($ftpserverinfo, "serverinfo", "pass", "")
Dim $ftp_ctrlport = IniRead($ftpserverinfo, "serverinfo", "ctrlport", "")
Dim $ftp_dataport = IniRead($ftpserverinfo, "serverinfo", "dataport", "")
 
$gui_main = GUICreate($title, 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1, 0x00000018); WS_EX_ACCEPTFILES
;~ $Dummy1 = GUICtrlCreateDummy()
$Label_txt = GUICtrlCreateLabel("请将要上传的文件拖动到下面的文本框中", 11, 13, 220, 17)
$input_file = GUICtrlCreateInput ( "", 10, 35, 300, 20)
GUICtrlSetState(-1,$GUI_DROPACCEPTED)
GUICtrlCreateLabel("FTP服务器:" & $ftp_ip, 11, 78, 220, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Powered by zeebit", 210, 116, 180, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$btn_upload = GUICtrlCreateButton ("上传", 160, 75, 49, 20)
$btn_download = GUICtrlCreateButton ("下载", 210, 75, 49, 20)
$btn_help = GUICtrlCreateButton ("帮助", 260, 75, 49, 20)
$Graphic1 = GUICtrlCreateGraphic(0, 98, 320, 18)
GUICtrlSetBkColor(-1, 0xD4D0C8)
$Label_stat = GUICtrlCreateLabel("欢迎使用 "&$title, 11, 101, 320, 14)
GUICtrlSetBkColor(-1, 0xD4D0C8)
GUISetState () 
 
$gui_help = GUICreate($title, 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1, 0x00000018); WS_EX_ACCEPTFILES
;~ $Icon = GUICtrlCreateIcon("d:\My Documents\icon\favicon.ico", 0, 288, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
;~ $Label_h0 = GUICtrlCreateLabel("注意:", 11, 13, 320, 17)
$Label_h1 = GUICtrlCreateLabel("1、正被打开着的文件,上传时可能会失败。", 12, 13, 270, 17)
$Label_h2 = GUICtrlCreateLabel("2、在文本框中输入完整准确的文件名,再点“下载”,可以从FTP服务器下载指定文件到桌面。", 12, 33, 300, 34)
$Label_h3 = GUICtrlCreateLabel("3、如果提示连接FTP服务器出错,请确定网络畅通且服务器运行正常。", 12, 66, 310, 27)
$btn_back = GUICtrlCreateButton ("返回", 250, 95, 60, 20)
GUICtrlCreateLabel("Powered by zeebit", 210, 116, 180, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_HIDE, $gui_help)
 
Local $nMsg
While 1
 $nMsg = GUIGetMsg()
 Select 
 Case $nMsg = $GUI_EVENT_CLOSE
 Exit
 Case $nMsg = $btn_help
 GUISetState(@SW_HIDE, $gui_main)
 GUISetState(@SW_SHOW, $gui_help)
 Case $nMsg = $btn_back
 GUISetState(@SW_HIDE, $gui_help)
 GUISetState(@SW_SHOW, $gui_main)
 Case $nMsg = $btn_download
 $full_path = GUICtrlRead($input_file)
 If($full_path=="") Then 
 GUICtrlSetData($Label_stat,"请输入要下载的文件名!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 ContinueLoop
 EndIf
 GUICtrlSetState($btn_download, $GUI_DISABLE)
 $array_filename = StringSplit($full_path,"\")
 $file_name = $array_filename[$array_filename[0]] 
 $error_i = 0
 $dllhandle = DllOpen( 'wininet.dll' )
 if @error then
 GUICtrlSetData($Label_stat,"DllOpen wininet.dll Failed")
 EndIf
 $z_ftpOpen = _FTPOpen('MyFTP_Control')
 if @error then
 GUICtrlSetData($Label_stat,"打开FTP会话出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf 
 $z_ftpConn = _FTPConnect($z_ftpOpen, $ftp_ip, $ftp_name, $ftp_pass, $ftp_ctrlport)
 if @error then
 GUICtrlSetData($Label_stat,"连接FTP服务器出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 $error_i = $error_i+1
;~ ContinueLoop 
 EndIf 
 If($error_i==0) Then
 $z_ftpPut = _FtpGetFile($z_ftpConn, '/'&$file_name, @DesktopDir & '\' & $file_name,1,0)
 if @error then
 GUICtrlSetData($Label_stat,"从FTP服务器下载文件时出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 $error_i = $error_i+1
 EndIf 
 EndIf
 $z_ftpColse = _FTPClose($z_ftpOpen)
 if @error then
 GUICtrlSetData($Label_stat,"结束FTP会话出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf 
 DllClose($dllhandle)
 if @error then
 GUICtrlSetData($Label_stat,"DllClose wininet.dll Failed")
 EndIf
 GUICtrlSetData($input_file,"")
 If($error_i ==0) then 
 GUICtrlSetData($Label_stat,"“"&$file_name&"”成功下载到桌面!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf
 $error_i = 0
 GUICtrlSetState($btn_download, $GUI_ENABLE)
 Case $nMsg = $btn_upload
 $full_path = GUICtrlRead($input_file)
 If($full_path=="") Then 
 GUICtrlSetData($Label_stat,"请选择要上传的文件!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 ContinueLoop
 EndIf
 GUICtrlSetState($btn_upload, $GUI_DISABLE)
 $array_filename = StringSplit($full_path,"\")
 $file_name = $array_filename[$array_filename[0]] 
 $error_i = 0
 $dllhandle = DllOpen( 'wininet.dll' )
 if @error then
 GUICtrlSetData($Label_stat,"DllOpen wininet.dll Failed")
 EndIf
 $z_ftpOpen = _FTPOpen('MyFTP_Control')
 if @error then
 GUICtrlSetData($Label_stat,"打开FTP会话出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf 
 $z_ftpConn = _FTPConnect($z_ftpOpen, $ftp_ip, $ftp_name, $ftp_pass, $ftp_ctrlport)
 if @error then
 GUICtrlSetData($Label_stat,"连接FTP服务器出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 $error_i = $error_i+1
;~ ContinueLoop 
 EndIf 
 If($error_i==0) Then
 $z_ftpPut = _FtpPutFile($z_ftpConn, $full_path, '/'&$file_name)
 if @error then
 GUICtrlSetData($Label_stat,"上传文件到FTP服务器时出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 $error_i = $error_i+1
 EndIf 
 EndIf
 $z_ftpColse = _FTPClose($z_ftpOpen)
 if @error then
 GUICtrlSetData($Label_stat,"结束FTP会话出错!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf 
 DllClose($dllhandle)
 if @error then
 GUICtrlSetData($Label_stat,"DllClose wininet.dll Failed")
 EndIf
 GUICtrlSetData($input_file,"")
 If($error_i ==0) then 
 GUICtrlSetData($Label_stat,"“"&$file_name&"”上传成功!")
 GUICtrlSetBkColor(-1, 0xD4D0C8)
 EndIf
 $error_i = 0
 GUICtrlSetState($btn_upload, $GUI_ENABLE)
 EndSelect
WEnd

ftp.ini配置文件内容

[serverinfo]
ip="127.0.0.1"----------------这个根据实际情况修改
name="ftp"
pass="ftp"
ctrlport="21"---------------这个暂时没用到
dataport="22"------------------这个暂时没用到
永恒心锁,版权所有丨如未注明,均为转载丨本网站采用BY-NC-SA协议进行授权

转载请注明:永恒心锁-分享互联网 » FTP文件上传下载器

您必须 登录 才能发表评论!