bsp; Dim s1 As String Dim i As Integer GetClassName hwnd, s, 255 For i = 1 To 255 If Mid(s, i, 1) <> Chr(0) Then s1 = s1 & Mid(s, i, 1) Else Exit For End If Next i If s1 = "#32770" Then s1 = "" GetWindowText hwnd, s, 255 For i = 1 To 255 If Mid(s, i, 1) <> Chr(0) Then s1 = s1 & Mid(s, i, 1) Else Exit For End If Next i If s1 = "结束程序 - " & g__caption Then TerminateProcessByHWND hwnd TerminateProcessByHWND g__hwnd End If End If EnumProc1 = 1 End Function