Autor Tema: Finalizar Una Aplicacion (Leído 1056 veces)

Lightningdd · « **en:** Martes 10 de Octubre de 2006, 12:56 »

Hola chicos

Alguien sabe como puedo finalizar una aplicacion externa, necesito que se ejecute por un cierto tiempo y de ahi terminarla desde vb6.

Gracias.

F_Tanori

Hay un codigo aqui...

http://www.vbsiglo21.net/articulo8.html

....y esto tambien te pudiera ser util....

Código: Text

 
Option Explicit
Private Declare Function FindWindow Lib &#34;user32&#34; Alias &#34;FindWindowA&#34; (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib &#34;user32&#34; Alias &#34;SendMessageA&#34; (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_CLOSE = &H10
 
Function myHandle(Titulo) As Long
Dim winHwnd As Long
    winHwnd = FindWindow(vbNullString, Titulo)
    myHandle = winHwnd
End Function
 
Private Sub Command1_Click()
Dim lHwd As Long
lHwd = myHandle(Me.Text1)
 
  If lHwd &#62; 0 Then
    Call SendMessage(lHwd, WM_CLOSE, 0, ByVal CStr(1))
  End If
End Sub
 
 
 

es para cerrar un programa por el titulo (exacto)

suerte

SoloCodigo

Autor Tema: Finalizar Una Aplicacion (Leído 1056 veces)

Lightningdd

Finalizar Una Aplicacion

F_Tanori

Re: Finalizar Una Aplicacion