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

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

3 个答案: