使用VB.net回答和结束Skype调用

时间:2014-11-29 22:19:34

标签: vb.net skype

我正在尝试使用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的参数。

2 个答案:

答案 0 :(得分:0)

创建一个按下按钮时更改值的布尔值。 :)

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

同样可以回答。

答案 1 :(得分:0)

Skype不再支持此API,因此失去了一些功能。为了结束和接听电话,我通过c#向Skype发送密钥,这对应于我在Skype中设置的热键。所以我设置Alt PGUP来接听电话,在代码中我发送

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