VB如何连接sftp下载文件?

发布网友 发布时间：2022-05-01 21:51

我来回答

共2个回答

热心网友 时间：2022-06-24 00:27

因为安全原因，需要SFTP协议（sftp是SecureFile Transfer Protocol的缩写，安全文件传送协议。可以为传输文件提供一种安全的加密方法。sftp 与 ftp 有着几乎一样的语法和功能。SFTP 为 SSH的一部份，是一种传输档案至Blogger 伺服器的安全方式。其实在SSH软件包中，已经包含了一个叫作SFTP(Secure File TransferProtocol)的安全文件传输子系统，SFTP本身没有单独的守护进程，它必须使用sshd守护进程（端口号默认是22）来完成相应的连接操作，所以从某种意义上来说，SFTP并不像一个服务器程序，而更像是一个客户端程序。SFTP同样是使用加密传输认证信息和传输的数据，所以，使用SFTP是非常安全的。但是，由于这种传输方式使用了加密/解密技术，所以传输效率比普通的FTP要低得多，如果您对网络安全性要求更高时，可以使用SFTP代替FTP）
准备阶段
　　需要引用第三方类库Tamir.SharpSSH.dll。链接地址（http://www.tamirgal.com/blog/page/SharpSSH.aspx）
我下载的是（Downloadbinaries: SharpSSH-1.1.1.13.bin.zip）DotNetSSH 文件
　　把Tamir.SharpSSH.dll加载到项目中。
实现阶段
　　增加一个类SFTPHelper
1Imports Tamir.SharpSsh.jsch
2
3PublicClass SFTPHelper
4 Private m_session As Session
5 Private m_channel As Channel
6 Private m_sftp As ChannelSftp
7
8 PublicSubNew(ByVal host AsString, ByVal user AsString, ByVal pwd AsString)
9 Dim arr() AsString = host.Split(":")
10 Dim ip AsString = arr(0)
11 Dim port AsInteger = 22
12 If (arr.Length > 1) Then
13 port = Int32.Parse(arr(1))
14 EndIf
15
16 Dim jsch As JSch = New JSch()
17 m_session =jsch.getSession(user, ip, port)
18 Dim ui As MyUserInfo = New MyUserInfo()
19 ui.setPassword(pwd)
20 m_session.setUserInfo(ui)
21 End Sub
22
23 'SFTP获取文件
24 PublicFunction GetInfo(ByVal remotePath AsString, ByVal localPath AsString) AsBoolean
25 Try
26 Dim src As Tamir.SharpSsh.java.String = New Tamir.SharpSsh.java.String(remotePath)
27 Dim dst As Tamir.SharpSsh.java.String = New Tamir.SharpSsh.java.String(localPath)
28 m_sftp.get(src, dst)
29 ReturnTrue
30 Catch
31 ReturnFalse
32 EndTry
33 End Function
34 'SFTP连接状态
35 PublicProperty Connected AsBoolean
36 Get
37 Return m_session.isConnected()
38 EndGet
39 Set(ByVal value AsBoolean)
40
41 EndSet
42 End Property
43
44 '连接SFTP
45 PublicFunction Connect() AsBoolean
46 Dim flag AsBoolean = False
47 Try
48 If (Not Connected()) Then
49 m_session.connect()
50 m_channel =m_session.openChannel("sftp")
51 m_channel.connect()
52 m_sftp = m_channel
53 flag = True
54 EndIf
55 Catch
56 flag = False
57 EndTry
58 Return flag
59 End Function
60
61 '断开SFTP
62 PublicSub Disconnect()
63
64 If (Connected()) Then
65 m_channel.disconnect()
66 m_session.disconnect()
67 EndIf
68 End Sub
69
70 '登录验证信息
71 PublicClass MyUserInfo
72 Implements UserInfo
73
74 Dim passwd AsString
75
76 PublicSub setPassword(ByVal ppasswd AsString)
77 passwd = ppasswd
78 End Sub
79 PublicFunction getPassphrase() AsStringImplementsTamir.SharpSsh.jsch.UserInfo.getPassphrase
80 ReturnNothing
81 End Function
82 PublicFunction getPassword() AsStringImplements Tamir.SharpSsh.jsch.UserInfo.getPassword
83 Return passwd
84 End Function
85
86 PublicFunction promptPassphrase(ByVal message AsString) AsBooleanImplements Tamir.SharpSsh.jsch.UserInfo.promptPassphrase
87 ReturnTrue
88 End Function
89 PublicFunction promptPassword(ByVal message AsString) AsBooleanImplementsTamir.SharpSsh.jsch.UserInfo.promptPassword
90 ReturnTrue
91 End Function
92 PublicFunction promptYesNo(ByVal message AsString) AsBooleanImplements Tamir.SharpSsh.jsch.UserInfo.promptYesNo
93 ReturnTrue
94 End Function
95 PublicSub showMessage(ByVal message AsString) Implements Tamir.SharpSsh.jsch.UserInfo.showMessage
96
97 End Sub
98 End Class
99
100End Class

还有一个最简单的办法
Shell "explorer 下载地址"

热心网友 时间：2022-06-24 00:27

查看协议命令，然后利用winsock来进行通信编程