使用vb.net通过skype自动发送文件

Question

我正在创建一个实用程序，通过vb.net中的skype自动发送备份文件。我找到了一个代码：

skype.Client.OpenFileTransferDialog（“skypeidtosend”，“D：\ Backup \”）

但是它会首先打开对话框，你需要选择要发送的文件，我想要的是发送文件而不打开对话框。有什么办法吗？

Answer 1

试试这个：

Dim DataObject As New DataObject
Dim file As String = "<path to file>"
DataObject.SetData(DataFormats.FileDrop, True, file)
My.Computer.Clipboard.SetDataObject(DataObject)
SkypeClient.Client.OpenMessageDialog(UserToSendTo)
SkypeClient.Client.Focus()
SendKeys.Send("^(V){ENTER}")

Answer 2

我已经解决了，我用了这个代码：

 refSkype.Client.OpenMessageDialog(UserToSenTo)
 refSkype.Client.Focus()
 SendKeys.Send("+^(F)PathOfFileYouWantToSend%(O)")

使用SendKeys.Send发送shorcut SHIFT + CTRL + F并放置文件的路径，然后按ALT + O执行..：）