Vbscript Skype4com自动接受联系请求

我正在使用VBScript自动接受Skype传入的联系人请求：

Public Sub Skype_UserAuthorizationRequestReceived(ByVal pUser)
    pUser.IsAuthorized = true 
End Sub

这是可行的，但有没有办法防止Skype通过托盘提醒我

我已删除联系人请求的通知：

Public Sub Skype_UserAuthorizationRequestReceived(ByVal pUser)
    pUser.IsAuthorized = true 
End Sub

但它仍然出现

这也给了我一个奇怪的错误：

Skype4COM.Skype.1:为ISAUTHORIZED/ISBLOCKED提供的值无效（代码：80020009）

我尝试了另一种使用

oSkype.Client.OpenAuthorizationDialog(pUser.Handle)

---

但它给出了一个“开放用户已授权”错误。

我有一个可能对您有所帮助的示例

    Private Sub FRAccept(pUser As User)
    If FlatToggle1.Checked = True And pUser.IsAuthorized = False Then
        pUser.IsAuthorized = True
    End If
End Sub

---

'pUser.IsAuthorized=False'修复了'OPEN User ready authorized'。FlatToggle1部件出现错误“需要对象：”FlatToggle1“。在这之前我还有别的事要做吗？我对VBS了解不多。很抱歉反应太晚，我很确定如果您删除“FlatToggle1.Checked=True”部分，它将解决问题