VS 应用程序在 Win7 中停止，当使用 Debug 和 Release 二进制文件时

Question

所以，我在 Visual Basic 中制作了迭代的 Hanoi Towers of Hanoi 算法，它在 while 循环中运行（在 VB 中递归很慢）。问题是它编译得很好，它甚至在通过 Visual Studio 启动时运行得很好，但是当启动时生成的 Debug 和 Release 执行动画 stops 并显示以下消息：

过了一会儿，我只看到所有的棋子都移到了目的地，消息消失了。所以说它不是崩溃，因为应用程序仍在后台运行，它只是弹出这条消息，破坏动画。我只想让我的程序像直接从 Visual Studio 启动时一样运行。

经过一番思考... 我开始相信会发生这种情况，因为 Win7 将应用程序在 while 循环中运行的事实视为无响应（河内塔中的 7 件需要一段时间才能重新排列），因此它会尝试关闭它。

我怎样才能让我的应用程序忽略 Window 的广告？

Answer 1

我建议您在应用程序空闲事件中进行计算，就像您在创建 Windows 游戏时一样。这样可以确保消息队列不被阻塞。

Public Class Form1

    Public Sub New()
        Me.InitializeComponent()
        AddHandler Application.Idle, AddressOf Me.OnApplicationIdle
    End Sub

    Private Sub OnApplicationIdle(sender As Object, e As EventArgs)
        Static rnd As New Random()
        Dim message As MSG = Nothing
        Do While (Not PeekMessage(message, IntPtr.Zero, 0, 0, 0))
            '...
            Me.BackColor = Color.FromArgb(rnd.Next(0, 256), rnd.Next(0, 256), rnd.Next(0, 256))
            '...
        Loop
    End Sub

    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Friend Shared Function PeekMessage(<[In](), Out()> ByRef msg As MSG, ByVal hwnd As IntPtr, ByVal msgMin As Integer, ByVal msgMax As Integer, ByVal remove As Integer) As Boolean
    End Function

    <StructLayout(LayoutKind.Sequential)> _
    Friend Structure MSG
        Public hwnd As IntPtr
        Public message As Integer
        Public wParam As IntPtr
        Public lParam As IntPtr
        Public time As Integer
        Public pt_x As Integer
        Public pt_y As Integer
    End Structure

End Class