VB与FTP编程
2009-12-19 17:22
225 查看
Option Explicit Private Const INTERNET_OPEN_TYPE_DIRECT = 1 Private Const scuseragent = "vb wininet" Private Const INTERNET_FLAG_PASSIVE = &H8000000 '调用设置环境 Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long '连接服务器 Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long '上传涵数 Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Dim hOpen As Long Dim hConnection As Long '上传文件模块 Public Function UpLoadFile(IP As String, FileName As String, UserName As String, PassWord As String) As Boolean Dim ShortName As String Dim ret As Boolean ShortName = GetShortName(FileName) hOpen = TestServer If hOpen <> 0 Then hConnection = InterConnection(IP, UserName, PassWord) If hConnection <> 0 Then ret = FtpPutFile(hConnection, FileName, ShortName, 2, 0) UpLoadFile = ret Else UpLoadFile = False End If Else UpLoadFile = False End If InternetCloseHandle hConnection InternetCloseHandle hOpen End Function 'FTP下载文件 Public Function DownLoadFile(IP As String, FileName As String, LocalFileName As String, UserName As String, PassWord As String) Dim ret As Boolean hOpen = TestServer If hOpen <> 0 Then hConnection = InterConnection(IP, UserName, PassWord) If hConnection <> 0 Then ret = FtpGetFile(hConnection, FileName, LocalFileName, 0, 0, 1, 0) DownLoadFile = ret Else DownLoadFile = False End If Else DownLoadFile = False End If InternetCloseHandle hConnection InternetCloseHandle hOpen End Function '调用设置环境 Private Function TestServer() As Long Dim i As Long ' i = InternetOpen(scuseragent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) i = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) TestServer = i End Function '连接服务器 Private Function InterConnection(IP As String, UserName As String, PassWord As String) As Long Dim i As Long i = InternetConnect(hOpen, IP, 0, UserName, PassWord, 1, INTERNET_FLAG_PASSIVE, 0) InterConnection = i End Function '得到文件的短文件名 Private Function GetShortName(FileName As String) As String Dim stemp() As String stemp = Split(FileName, "/") If UBound(stemp) > 0 Then GetShortName = stemp(UBound(stemp)) Else GetShortName = "" End If End Function
http://zhidao.baidu.com/question/76959855.html
相关文章推荐
- VB程序员的FTP编程指南1.4-下载或上传文件
- VB程序员的FTP编程指南1.5-其它的ftp支持命令
- VB程序员的FTP编程指南1.5-其它的ftp支持命令
- VB程序员的FTP编程指南1.4-下载或上传文件
- VB程序员的FTP编程指南1.6-服务器反馈
- VB程序员的FTP编程指南1.2-使用Windows的ftp程序
- VB程序员的FTP编程指南1.7-用VB实现FTP的一个例子(大结局)
- VB程序员的FTP编程指南1.2-使用Windows的ftp程序
- VB程序员的FTP编程指南1.3-列出、改变目录
- VB程序员的FTP编程指南1.1-文件传输协议FTP概述
- VB程序员的FTP编程指南1.1-文件传输协议FTP概述
- VB程序员的FTP编程指南1.3-列出、改变目录
- VB程序员的FTP编程指南1.6-服务器反馈
- VS2010环境下使用VB开发网络编程(WinHttp)
- VB 编程中 SendKeys 语句的妙用
- 渗透测试Python编程之Scan Webservices for FTP
- VB 串口编程 开发心得
- VB编程实验报告
- 【转】VB编程的八个优良习惯
- vb.net 教程 3-6 窗体编程 打印