在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.Frients.Add（新SKYPE4COMLib.User（"username"））不起作用。。。。

救命！！：（

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