Отправить запрос на дружбу в 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 Вы должны (И я знаю, что это отстой) Отправьте им запрос, открыв Контакты Dialog Sorry человек

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