在Skype4Com VB.NET中发送友谊请求

我在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.AddNew SKYPE4COMLib.UserUserUserName不起作用

---

救命啊！！：

您不能直接使用Skype4COM添加好友 你一定知道，我知道这很糟糕。打开“联系人”对话框向他们发送请求。 对不起，伙计。

就这么做：

u.BuddyStatus = TBuddyStatus.budPendingAuthorization

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