Question

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

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

我注册了COM对象，当我去添加引用时可以看到WinSCPNet类型库。但是，当我在对象浏览器中查看库时，我无法看到类的属性/方法。此外，此代码失败，它没有到达第3个MsgBox（＆＃34;在SendWinSCP4＆＃34;），它从该点的函数返回，我认为因为属性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 & "!")

Answer 1

见上文，使用On Error Resume Next让我超越错误。

从VB6引用WinSCP COM库

1 个答案: