使用vb.net通過Skype自動發送文件

Question

我正在創建一個實用程序，通過vb.net中的Skype自動發送備份文件。我已經找到了代碼：

skype.Client.OpenFileTransferDialog（「skypeidtosend」，「d：\備份\」）

但它會先打開對話框，您需要選擇您要發送的文件，我想要的是發送文件而不打開對話框。有什麼辦法嗎？

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執行.. :)