Ответы на звонки с использованием VB.net

Question

Я пытаюсь использовать VB.net для ответа и завершения вызовов Skype на нажатия кнопок. Я попытался это:

Public Sub oSkype_CallStatus(pCall As SKYPE4COMLib.Call, Status As 
SKYPE4COMLib.TCallStatus) Handles oSkype.CallStatus 
    If Status = SKYPE4COMLib.TCallStatus.clsInProgress Then 
     pCall.Finish() 
    End If 
End Sub 

который прекрасно работает, но я стараюсь, чтобы завершить вызов на нажатие кнопки, а не в зависимости от состояния вызова. Я попытался вызвать этот метод при нажатии кнопки, но я не уверен, что поставить в качестве параметра для pCall.

Answer 1

Skype больше не поддерживает этот API, поэтому утерял некоторые функции. Чтобы завершить и ответить на звонки, я отправляю ключи через C# в Skype, соответствующие горячим клавишам, которые я установил в Skype. Поэтому я установил Alt PGUP для ответа на вызов и в коде, который я отправляю

SendKeys.SendWait("%(PGUP)"); 

Answer 2

Сделайте логическое значение, которое меняет значение при нажатии кнопки. :)

Dim PressedEnd As Boolean = False 

Private Sub ButtonEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnd.Click 
    PressedEnd = True 
End Sub 

Public Sub oSkype_CallStatus(pCall As SKYPE4COMLib.Call, Status As SKYPE4COMLib.TCallStatus) Handles oSkype.CallStatus 
    If Status = SKYPE4COMLib.TCallStatus.clsInProgress AndAlso PressedEnd = True Then 
     PressedEnd = False 
     pCall.Finish() 
    End If 
End Sub 

То же самое касается ответа.