VB.Net中CancellationToken无法取消SAP Gui脚本阻塞Task问题

• .NET的CancellationToken属于协作式取消机制，仅当任务内部主动监听并响应取消信号时才会生效。你当前编写的阻塞函数既没有传入CancellationToken，也没有在循环逻辑中判断取消状态，调用cts.Cancel()根本不会终止正在运行的Task，Task会一直处于运行状态，此时访问Task.Result自然会永久阻塞。
• SAP Gui Scripting的调用属于COM互操作调用，当SAP客户端无响应时，调用会直接卡在非托管代码层面，根本不会回到.NET托管代码的执行逻辑，哪怕你在循环中补充了取消判断，只要卡在SAP调用步骤，取消逻辑也不会执行。

针对这种不可中断的外部阻塞调用，不能依赖常规的协作式取消逻辑，需要调整代码逻辑避免读取未完成任务的Result，调整后的示例如下：

Dim timeout = 5000 'ms
Dim exists As Boolean = False

Dim blockingTask = Task.Run(Function()
    Dim found = False
    While Not found
        '原有和SAP交互的代码，不需要额外处理取消
    End While
    Return found
End Function)

' 等待任务完成或超时，超时后直接走超时逻辑，不要访问Result
If blockingTask.Wait(timeout) Then
    exists = blockingTask.Result
Else
    exists = False
    ' 此处无法终止已经卡住在SAP调用的Task，但你可以正常执行后续逻辑，残留的Task会在SAP恢复后自动结束，或进程退出时销毁
End If

如果需要彻底清理卡住的调用避免残留任务，需要把SAP交互逻辑放到独立的子进程中执行，超时后直接杀死整个子进程，这是唯一能彻底终止卡住的COM调用的方案。

• 永远不要访问未完成的Task的Result属性，这会强制阻塞当前线程直到Task执行完毕，判断超时之后直接走超时分支逻辑即可，不需要再读取Result。
• 调用SAP Gui Scripting前可以先检测SAP客户端进程的响应状态，提前过滤无响应的SAP实例，降低阻塞概率。

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