.net - 在 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(New SKYPE4COMLib.User("username"))不起作用..

帮助请！:(

Answer 1

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

Answer 2

只需这样做：

u.BuddyStatus = TBuddyStatus.budPendingAuthorization

Answer 3

您不能直接使用 Skype4COM 添加朋友您必须（而且我知道这很糟糕）通过打开联系人对话框向他们发送请求。对不起。