在Skype4Com VB.NET發送好友請求

Question

在Skype的用戶添加嗯，我正在尋找的代碼，但我發現的唯一的事情是：

Imports SKYPE4COMLib 

Public Class frmMain 

    Public WithEvents oSkype As New SKYPE4COMLib.Skype 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     oSkype.Client.OpenAddContactDialog("username") 
    End Sub 
End Class 

，但它不發出任何請求。和oSkype.Friends.Add（新SKYPE4COMLib.User（「用戶名」））不起作用....

幫助PLZ！ 。:(

Answer 1

不能直接與Skype4COM添加好友 您必須（我知道它吮吸）通過打開聯繫人對話框向他們發送的請求 對不起人

Answer 2

只是這樣做：

u.BuddyStatus = TBuddyStatus.budPendingAuthorization 

Answer 3

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) 

Private Sub Command1_Click() 
Skype1.Client.OpenAuthorizationDialog "username_here" 
Set WshShell = CreateObject("WScript.Shell") 
WshShell.SendKeys "{TAB}" 
Sleep 1000 
WshShell.SendKeys "{ENTER}" 
Sleep 1000 


End Sub