Skype4Com自动拒绝来电vb.net

Question

嘿，我不知道是否有人知道如何自动带skype4com上vb.net拒绝对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 

从这里就可以修改这个拒绝来自某个用户的呼叫，允许某些用户等，但你可以科幻指出你自己。