vb.net - 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

然后，在此处理程序中，您需要检查 Status 是否为 Ringing：

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

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