请问论坛里前辈，我最近在写一个程序，要点击第三方程序的对话框。在VB里调试时，一点问题都没有，对话框和按钮句柄都找到，也能点击。
但我一生成EXE文件，就点击不了。经研究，对话框句柄仍然是对的，但按钮句柄就不对了。可是调试时总是对的。

b=findwindowex(a,0,"button","否(&)")  '按钮句柄有类名有标题，调试时一直正确，生成EXE就不正确。

不知道什么原因，望前辈们赐教！

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal Hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal WParam As Long, lParam As Any) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByRef lParam As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Const BM_CLICK = &HF5
Const WM_GETTEXT = &HD
Dim gg_2, m

Sub Main()
m = 1
time1 = Now + TimeValue("00:00:10")
Do Until gg_2 <> 0 Or Now >= time1
If EnumWindows(AddressOf EnumProc1, 0) = 0 Then
Else
End If
DoEvents
Loop

End Sub


Public Function EnumProc1(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean
Dim s As String
s = String(255, 0)
GetClassName app_hwnd, s, Len(s)
If s Like "*32770*" Then
      If EnumChildWindows(app_hwnd, AddressOf EnumchildProc2, 0) = 0 Then
         gg_2 = FindWindowEx(app_hwnd, 0, "Button", "否(&N)")
         If gg_2 <> 0 Then SendMessage gg_2, BM_CLICK, 0, 0
         'SetFocus (gg_2)
         If gg_2 <> 0 Then EnumProc1 = False Else EnumProc1 = True
      Else
         EnumProc1 = True
      End If
      'End If
Else
EnumProc1 = True
End If

End Function


Public Function EnumchildProc2(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean
Dim s As String
s = String(255, 0)
SendMessage app_hwnd, WM_GETTEXT, 255, ByVal s
If s Like "*请问您真的要这样操作*" Then
Open "d:\" & m & ".txt" For Output As #1          '这一段和m是为了检测错误加进去的。当调试时，只找到一次s,只有一个m文件，然后可以点击按钮。当生产EXE文件后，同样的s能找到2000次，能生成2000个m文件，并且内容是一样的。。最后按钮也没点到。
Print #1, GetParent(app_hwnd)
Print #1, app_hwnd
Print #1, s
Close #1
m = m + 1
    EnumchildProc2 = False
    Else
    EnumchildProc2 = True
    End If
End Function

谢谢版主，但是我还想讲下，
1，EnumWindows和EnumChildWindows我一直都用得很好，就是在这个对话框上运行不正常。
2，“EnumWindows的返回值为0时表示调用失败"不太理解。我一直认为，返回值为0表示调用成功并枚举到了符合条件的句柄，未枚举到了符合条件的句柄返回-1，调用失败没遇到过，我理解的调用失败是除非桌面上一个窗体都没有，EnumWindows才会出现调用失败。
3，上述例子中，即使按钮句柄找对了，即gg_2没问题，但回到main程序gg_2会=0（在生成EXE情况下，调试状态没问题），无法实现全局变量的功能。程序会反复执行直到10秒。这也解释了上述例子为什么m会有2000个，因为我发现，不管gg_2找对没有，到main程序gg_2会=0，程序反复执行。

麻烦版主和各位前辈重点帮我看看3

我昨天测试了下，在EnumProc1下面gg_2<>0，然后EnumProc1 = False，但回到main程序gg_2会=0

谢谢版主！