 Autor
|
Tema: [VB6] KillProcess By Window Name (Leído 5,120 veces)
|
scapula
 Desconectado
Mensajes: 10
|
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Private Declare Function TerminateProcess Lib "Kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Function KillProcessByWindowName(Window As String) Dim lnghProcess As Long Dim lngReturn As Long Dim lpProc As Long Dim gtWnd As Long gtWnd = FindWindow(vbNullString, Window) Call GetWindowThreadProcessId(gtWnd, lpProc) WindowToProcessId = lpProc lnghProcess = OpenProcess(1&, -1&, WindowToProcessId) lngReturn = TerminateProcess(lnghProcess, 0&) End Function Private Sub Command1_Click() Call KillProcessByWindowName(App.Title) End Sub
|
|
|
|
« Última modificación: 6 Noviembre 2011, 07:56 am por scapula »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
use Option Explicit Public Function terminateProcessByWindowName(ByRef sName As String) As Boolean Dim dwProcId As Long Call GetWindowThreadProcessId(FindWindow(vbNullString, sName), dwProcId) terminateProcessByWindowName = Not (TerminateProcess(OpenProcess(1&, -1&, dwProcId), 0&) = &H0) End Function
No es recomendable usar las lineas asi... hay que verificar los retornos y demas cosillas... como por ejemplo si TerminateProcess no se ejecuto o termino erroneamente el APP entonces realizar un CloseHandle... Temibles Lunas!¡.
|
|
|
|
« Última modificación: 6 Noviembre 2011, 08:10 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
scapula
Desconectado
Mensajes: 10
|
Thanks BlackZeroX but i am not spanish it is difficult for me to decrypt you |
|
|
|
« Última modificación: 6 Noviembre 2011, 08:15 am por scapula »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
It is recommended to use the lines as well ... you should check the returns and other little things ... TerminateProcess such as whether the term is not implemented or wrongly the APP then do a CloseHandle ... power by: Google TranslateDulces Lunas!¡. |
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
It is recommended to use the lines as well No es recomendable usar las lineas asi... Google translate fails a lot :S The spanish line said: Its NOT recommended to use the lines like that. Powered by: 8 fucking years studying inglish 
|
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Powered by: 8 fucking years studying inglish Jajajajajaja... 8 Años? y escribes INGLISH
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
 un desliz
|
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
scapula
Desconectado
Mensajes: 10
|
not work on Win 7 64x
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
vb6 genera ejecutables para 32 bits... puede que esto sea lo que interfiere en todo esto... igual no te recomiendo que ejecutes nada de vb6 en una arquitectura de 64bits.
Dulces Lunas!¡.
|
|
|
|
« Última modificación: 14 Noviembre 2011, 19:31 pm por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
scapula
Desconectado
Mensajes: 10
|
ok i have test on Win 7 32 and 64 bit with notepad and not work
|
|
|
|
« Última modificación: 14 Noviembre 2011, 20:00 pm por scapula »
|
En línea
|
|
|
|
|
 |
