0

我正在尝试在我拥有的旧 VB6 项目上使用 WinSCP COM 库（它是一个生成 OCX 文件的遗留应用程序，我认为我们必须为此使用 VB6，但不能 100% 确定）。

无论如何，我们想实现 SFTP，WinSCP 可以轻松实现。

我注册了COM对象，去添加引用的时候可以看到WinSCPNet类型库。但是，当我在对象浏览器中查看库时，我看不到类的属性/方法。此外，此代码失败，它没有到达第 3 个 MsgBox（“In SendWinSCP4”），它从那时的函数返回，我认为是因为属性 UserName 没有公开。

MsgBox ("in SendWinSCP")

Dim session As WinSCPnet.session
Dim sessionOptions As WinSCPnet.sessionOptions
Dim transferOptions As WinSCPnet.transferOptions
Set session = New WinSCPnet.session
Set sessionOptions = New WinSCPnet.sessionOptions
Set transferOptions = New WinSCPnet.transferOptions

MsgBox ("in SendWinSCP3")

sessionOptions.Protocol = Protocol_Sftp
sessionOptions.HostName = "example.com"
sessionOptions.UserName = "user"
sessionOptions.Password = "example.com"
sessionOptions.SshHostKeyFingerprint = "ssh-rsa 2048 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"

MsgBox ("in SendWinSCP4 " & sessionOptions.HostName & "!")
4

1 回答 1

0

见上文，使用 On Error Resume Next 让我摆脱了错误。

于 2014-10-14T17:40:36.210 回答