社区
VB基础类
帖子详情
谁有VB编的FTP DOWNLOAD的程序?
jing
2000-02-18 01:09:00
...全文
197
4
打赏
收藏
谁有VB编的FTP DOWNLOAD的程序?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
benbenlittle
2000-03-04
打赏
举报
回复
可以试试用winsock控件
jing
2000-02-21
打赏
举报
回复
谢谢各位。littletao快给我吧。My e_mail:jing127@sina.com
thriller
2000-02-21
打赏
举报
回复
MSDN上有VB5完全源代码。
本站好象也有。
littletao
2000-02-21
打赏
举报
回复
有一个半成品的列出ftp下所有文件名的,
要不要?是我一个同学写的,有一些小错误,
他叫我替他看看,不过后来他自己解决了,
给我的是没解决问题之前的版本,但离正确
已经很近了。
VB
代码1000例
vb
ftp
实例
是个压缩文件,如题 声明:
VB
代码1000例 1000s of Visual Basic Source Code examples 由于文件较大所以我分 成了很多部分。
VB
代码1000例第一部分(可单独使用) http://
download
.csdn.net/source/2029561
VB
代码1000例第二部分(可单独使用) http://
download
.csdn.net/source/2029307
VB
代码1000例—第三部分(可单独使用) http://
download
.csdn.net/source/2028511 由于期中
VB
6 and Media很大,所以我又分成了很多部分
VB
and Media部分_第一部分 (不可单独使用) http://
download
.csdn.net/source/2029648
VB
and Media部分_第二部分 (不可单独使用) http://
download
.csdn.net/source/2029683
VB
and Media部分_第三部分 (不可单独使用) http://
download
.csdn.net/source/2029909
VB
and Media 要三个都下载后才能解压压缩包。 注意: 有些需要一些 ***.ocx ****.dll等,它里面附有压缩包包含了一些链接库等,有些事直接安装的。 还有可能有些是不完整的系统,也可能缺少些连接库,这些我也不了解,也只是猜测。 一些实例下载: 网站下载器实例 http://
download
.csdn.net/source/2030032
vb
写
ftp
工具 实例 http://
download
.csdn.net/source/2030021 midi的实例,midi钢琴 很好玩的 http://
download
.csdn.net/source/2029981 有问题就联系我: Email:514403150@qq.com
VB
编
写的网站
FTP
上传自动同步小
程序
VB
编
写的网站
FTP
上传自动同步小
程序
! 值得下载看看!资源免费,大家分享!! 更多免费资源 http://ynsky.
download
.csdn.net/
VB
程序
设计入门基础
VB
入门基础。清楚易懂,适合初学者本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解
VB
FTP
上传下载
'模板: Option Explicit Public 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 Public 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 Public Declare Function
Ftp
GetFile Lib "wininet.dll" Alias "
Ftp
GetFileA" _ (ByVal h
Ftp
Session 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 Public Declare Function
Ftp
PutFile Lib "wininet.dll" Alias "
Ftp
PutFileA" _ (ByVal h
Ftp
Session As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function
Ftp
DeleteFile Lib "wininet.dll" Alias "
Ftp
DeleteFileA" _ (ByVal h
Ftp
Session As Long, ByVal lpszFileName As String) As Boolean Public Declare Function
Ftp
RenameFile Lib "wininet.dll" Alias "
Ftp
RenameFileA" _ (ByVal h
Ftp
Session As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Public Declare Function
Ftp
FindFirstFile Lib "wininet.dll" Alias "
Ftp
FindFirstFileA" _ (ByVal h
Ftp
Session As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _ (ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long Public Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Public Type WIN32_FIND_DATA dwFilAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type '窗体: Private Sub Command1_Click() '
FTP
下载 lnginet = InternetOpen(
vb
NullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vb
NullString,
vb
NullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "posui", "djposui", 1, 0, 0) If lnginetconn Then blnRC =
Ftp
GetFile(lnginetconn, "/load.txt", "c:\load.txt", 0, 0, 1, 0) If blnRC Then MsgBox "
download
ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "
ftp
wrong" End If End Sub Private Sub Command2_Click() '
FTP
上传 lnginet = InternetOpen(
vb
NullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vb
NullString,
vb
NullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "administrator", "vai8888", 1, 0, 0) If lnginetconn Then blnRC =
Ftp
PutFile(lnginetconn, "c:\1.txt", "/1.txt", 0, 0) If blnRC Then MsgBox "
download
ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "
ftp
wrong" End If End Sub 方法2: '部件INET Private Sub Command1_Click() Me.Inet1.Execute Me.Inet1.URL, "send c:\11.txt /1.txt" '保存 End Sub Private Sub Command2_Click() Me.Inet1.Execute Me.Inet1.URL, "get /2.txt c:\2.txt" '下载 End Sub
vb
.net 的
FTP
上传源码
FTP
上传
Ftp
Client,不是我写的,但很好用,我只是想赚够五分去下载http://
download
.csdn.net/source/301453这个页面的支付宝接口示例........
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章