Skype4Com自动拒绝调用vb.net

Question

嘿，我想知道有没有人知道如何用vb.net上的skype4com自动拒绝skype上的来电，如果有人能帮我的话将不胜感激

Answer 1

如果你还想知道，它是这样做的：

注册oSkype时，将其设置为"WithEvents"：

Public WithEvents oSkype As New SKYPE4COMLib.Skype

然后，一旦它有了事件，就需要处理CallStatus事件：

Private Sub oSkype_CallStatus(pCall As SKYPE4COMLib.Call, Status As SKYPE4COMLib.TCallStatus) Handles oSkype.CallStatus

End Sub

然后，在此处理程序中，您需要检查状态是否为振铃：

If Status = SKYPE4COMLib.TCallStatus.clsRinging Then

End If

最后，如果是这样，您需要结束调用：

pCall.Finish()

所以，总的来说，你的代码应该是：

Public Class Form1
Public WithEvents oSkype As New SKYPE4COMLib.Skype
Private Sub oSkype_CallStatus(pCall As SKYPE4COMLib.Call, Status As SKYPE4COMLib.TCallStatus) Handles oSkype.CallStatus
    If Status = SKYPE4COMLib.TCallStatus.clsRinging Then
        pCall.Finish()
    End If
End Sub
End Class

从这里你可以修改它来拒绝来自某个用户的呼叫，允许某些用户等等，但是你可以自己弄清楚。