weno voy a explicar todo desde cero para que se entienda
lo que quiero es cerrar un msgbox de un programa ajeno que q es del tipo SI NO lo que quiero hacer es que se presione el boton no paso los datos del msgbox
hwnd : 526962
class : #32770
y los del boton No
hwnd : 264734
type : button
caption : &No
pd: se me cierra el ollydbg =S de donde lo puedo bajar?

es un msgbox lo q tengo q hacer es cerrarlo o presionar el boton no.. tengo su caption (el titulito de la ventana) creo que con findwindow? alguien tiene un ejemplo? gracias

Se puede cerrar el messagebox? jajaja pues dime que yo se como hacerle, pensaba que decias que se tenia que oprimir obligatoriamente el boton aceptar

Si, dices que si, tonces edito este mensaje
saludos

Bueno, prueba esto..

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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Cerrar_Click()
HVentana = FindWindow(vbNullString, Titulo.Text)
If HVentana <> 0 Then SendMessage HVentana, &H10, 0, 0
End Sub
 

Saludos

Intenta en vez de un SendMessage, un PostMessage:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Cerrar_Click()
HVentana = FindWindow(vbNullString, Titulo.Text)
If HVentana <> 0 Then PostMessage HVentana, &H10, 0, 0
End Sub
 

Si no te funciona, avisa sigo mirando que se puede hacer
Saludos