如何通过按键设置标志位，让脚本完成当前函数后停止循环？

从你给出的代码语法来看，应该是VBS（VBScript）环境，下面提供两种可行的方案来实现按键设置标志位，让脚本完成当前MainFN后停止的需求：

方案一：调用Windows API检测按键 #

和你在C++里用GetAsyncKeyState的思路一致，VBS可以通过声明Windows的user32.dll中的GetAsyncKeyState函数来实现非阻塞式按键检测，在循环或MainFN的间隙判断按键状态，设置Active变量。

示例代码 #

' 声明Windows API：检测按键状态
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Dim Active
Active = True

Do While Active = True
    ' 检测F12按键（键码123），按下则设置停止标志
    If GetAsyncKeyState(123) <> 0 Then
        Active = False
        WScript.Echo "已触发停止指令，将完成当前任务后退出"
    End If
    ' 执行主任务流程
    Call MainFN
Loop

Sub MainFN
    ' 这里是你的长耗时任务逻辑
    ' 如果任务本身耗时极长（比如30分钟），建议在任务内部的关键节点插入按键检测
    ' 例如：
    ' If GetAsyncKeyState(123) <> 0 Then
    '     Active = False
    ' End If
End Sub

关键说明 #

• 键码可自行替换：比如ESC键是27，Ctrl键是17，C键是67，若要检测组合键可同时判断多个键的状态
• GetAsyncKeyState返回值非0表示按键被按下，若要区分“单次按下”和“持续按住”，可判断返回值的最高位（GetAsyncKeyState(vKey) And &H8000）是否为1

方案二：文件标志位（无API调用限制） #

如果你的脚本环境禁止调用Windows API，可以用文件存在性作为停止标志：手动创建一个特定文件（比如stop_flag.txt），脚本每次循环前检查该文件，存在则设置Active = False，完成当前任务后退出。

示例代码 #

Dim Active, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Active = True

Do While Active = True
    ' 检查停止标志文件是否存在
    If fso.FileExists("stop_flag.txt") Then
        Active = False
        fso.DeleteFile "stop_flag.txt" ' 删除标志文件，方便下次运行
        WScript.Echo "检测到停止标志，将完成当前任务后退出"
    End If
    Call MainFN
Loop

Sub MainFN
    ' 你的长耗时任务逻辑
End Sub

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