sendmessage关闭程序

Question

代码如下：
Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060& '关闭窗体
Public Const NILL = 0&sub closeP()
     Do While -1
       DoEvents
       If CloseValidForm(NewExeFile) Then     'newexefile为文件名
         Exit Do
       End If
     Loop
end subFunction CloseValidForm(Ret As String) As Boolean
  Dim WinWnd As Long
  '搜寻该窗口的句柄
  
  WinWnd = FindWindow(vbNullString, Ret)
  If WinWnd <> 0 Then
    SendMessage WinWnd, WM_SYSCOMMAND, SC_CLOSE, NILL
  End If
  CloseValidForm = True
End Function程序可正常运行，但会出现windows错误报告，要关闭错误报告才会运行程序的下一步。
不知怎么解决，还请高手帮忙！

Answer 1

你换个窗口名称试试看。有的窗口用SendMessage无法结束，而用PostMessage就可以，比如IE。

Answer 2

另外，newexefile不应该是文件名而应该是窗口标题！