带有计时器和 Skype API 的控制台应用程序

Question

所以我有一个问题，当尝试在计时器上调用 Skype API 时，它什么也没得到，我只是想循环读取消息并将它们显示在我的控制台中，但在计时器滴答时，什么也没有发生。但如果我将计时器滴答代码放在 main 中，它就可以正常工作。这是我的代码：

Imports SKYPE4COMLib
Imports System.Timers.Timer

Module main

Dim oSkype As New SKYPE4COMLib.Skype
Dim aUser = oSkype.User("echo123")
Dim aChat = oSkype.Messages(aUser.Handle)

Dim tmr As New Timers.Timer

Sub Main()

    tmr.AutoReset = True
    tmr.Interval = 1000
    AddHandler tmr.Elapsed, AddressOf tmrTick
    tmr.Enabled = True
    Console.ReadLine()

End Sub

Public Sub tmrTick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)

        For Each aMessages In aChat
            Console.WriteLine(aMessages.FromHandle & ": " & aMessages.Body)
        Next
        Console.WriteLine("")

End Sub
End Module

谢谢， 亚当

Answer 1

计时器吞下异常，您可能会在计时器代码中遇到异常，很可能是跨线程异常。尝试设置 Visual Studio 以中断异常（调试>异常），看看是否得到任何结果。

如果确实遇到跨线程异常，您将无法使用 System.timer 计时器，因为它们在线程池上运行。在这种情况下，您应该使用 ui 友好的计时器，例如 winforms/wpf 中的计时器，或专用线程