Visual Basic - Cerrar aplicaciones

Life is soft - evento anual de software empresarial
   
Vista:

Cerrar aplicaciones

Publicado por Nieves (27 intervenciones) el 24/04/2008 09:23:08
Hola a todos, a ver si me pueden ayudar, quisiera saber como cierro una aplicación abierta con shell, yo abro el programa de la siguiente manera:

stprograma = "" & App.Path & "calc.exe"
ventana = ShellExecute(Me.hwnd, vbNullString, stprograma, vbNullString, App.Path, 3)

he probado a cerrarlo así:
AppActivate ventana
SendKeys "%{F4}", True
pero no me funciona, si me pudieran decir alguna otra manera de cerralo o decirme que es lo que hago mal.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cerrar aplicaciones

Publicado por kdlc (225 intervenciones) el 25/04/2008 22:58:08
Las puedes cerrar utilizando API ... crea un nuevo formulario y pega el sgte codigo:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_QUIT = &H12
Private Sub Command1_Click()
Dim sTitle As String
Dim iHwnd As Long
Dim ihTask As Long
Dim iReturn As Long
sTitle = "Calculator"
iHwnd = FindWindow(0&, sTitle)
iReturn = PostMessage(iHwnd, WM_QUIT, 0&, 0&)
MsgBox "Calculadora ha sido cerrada ... "
End Sub

suerte ....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar