Question

VB 怎么用一个变量来获取发送的返回值，然后根据返回值成功再去shell

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private 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
Private Const BM_CLICK = &HF5
Const ts = "关闭提示"
Const an = "是(&Y)"

Private Sub Timer1_Timer()
pk = FindWindow(vbNullString, ts)
pp = FindWindowEx(pk, ByVal 0&, "Button", an)
SendMessage pp, BM_CLICK, 0, 0
End Sub

以上代码发送按键后提示并打开指定程序
例如以上代码按键发送成功后
msgbox“正在打开程序”
shell“D:\运行的程序.exe”
求大神改下以上代码，谢谢啦

Answer 1

Private Sub Timer1_Timer()
   pk = FindWindow(vbNullString, ts)
   If pk <> 0 Then   'pk不等于0说明已经找到了指定的窗口
      pp = FindWindowEx(pk, ByVal 0&, "Button", an)
      If pp <> 0 Then   '同样，pp不等于0说明找到了指定的按钮
         SendMessage pp, BM_CLICK, 0, 0   'SendMessage是同步执行的，所以它运行结束就说明按键命令已成功发送
         Shell "D:\运行的程序.exe"    '这时候就可以运行指定的程序了。但不要用MsgBox来显示提示信息，因为它会使程序挂起的，只有点了按钮才会继续执行。可以在其他地方来显示提示信息，比如窗口的标题栏或状态栏。
      End If
   End If
End Sub