如何防止Windows终止耗时极长的VB.NET Framework 4程序进程？

核心原因 #

Windows判定程序“停止工作”的本质是UI主线程长时间未处理Windows消息循环（默认阈值一般是5秒左右，你的情况15分钟才触发可能是系统超时设置不同，但核心逻辑一致）。如果你的线程/异步方案没解决问题，大概率是不小心阻塞了主线程，或者没有让主线程持续处理消息。

可行解决方案 #

1. 正确使用Async/Await（推荐，Framework 4支持） #

不要用Task.Wait()或Task.Result阻塞主线程，改用Await让主线程在后台任务执行期间继续处理消息。示例代码：

Private Async Sub btnExecuteLongTask_Click(sender As Object, e As EventArgs) Handles btnExecuteLongTask.Click
    ' 禁用按钮防止重复触发
    btnExecuteLongTask.Enabled = False
    
    Try
        ' 将耗时的服务器调用放到后台线程执行
        Await Task.Run(Sub()
                          ' 替换为你的服务器耗时函数
                          CallYourServerLongFunction()
                      End Sub)
        MessageBox.Show("操作完成")
    Catch ex As Exception
        MessageBox.Show($"出错：{ex.Message}")
    Finally
        btnExecuteLongTask.Enabled = True
    End Try
End Sub

注意：Framework 4需要确保项目引用了System.Threading.Tasks组件，VS2012及以上版本原生支持这种写法。

2. 使用BackgroundWorker组件（WinForm传统方案） #

这是Framework时代WinForm处理后台任务的标准组件，自带线程安全的UI更新回调：

1. 从工具箱拖一个BackgroundWorker到窗体
2. 开启WorkerReportsProgress和WorkerSupportsCancellation（按需）
3. 绑定以下事件：

Private Sub btnStartTask_Click(sender As Object, e As EventArgs) Handles btnStartTask.Click
    If Not backgroundWorker1.IsBusy Then
        btnStartTask.Enabled = False
        backgroundWorker1.RunWorkerAsync()
    End If
End Sub

' 后台执行耗时操作（不能在这里操作UI）
Private Sub backgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
    CallYourServerLongFunction()
End Sub

' 任务完成后更新UI
Private Sub backgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted
    btnStartTask.Enabled = True
    If e.Error IsNot Nothing Then
        MessageBox.Show($"操作失败：{e.Error.Message}")
    Else
        MessageBox.Show("操作完成")
    End If
End Sub

3. 排查你之前方案的问题 #

如果之前的线程/异步方案无效，检查以下常见坑：

• 是否用了Thread.Join()、Task.Wait()、Task.Result这类阻塞主线程的代码？这些会直接导致UI卡死
• 是否在后台线程中直接操作UI控件？这会触发跨线程异常，可能间接导致程序异常退出（但你描述的是被Windows判定冻结，所以更可能是主线程阻塞）

4. 系统级超时调整（不推荐） #

如果以上代码方案都无法实施，可临时修改Windows的无响应超时设置（全局生效，不建议长期使用）：

1. 打开注册表编辑器，定位到HKEY_CURRENT_USER\Control Panel\Desktop
2. 修改HungAppTimeout（程序无响应判定超时）和WaitToKillAppTimeout（强制关闭前等待时间）的值，单位为毫秒。比如设为1200000（20分钟）
3. 修改后重启电脑生效

内容的提问来源于stack exchange，提问作者CaptnKebec