Autor
|
Tema: se puede? (Leído 3,391 veces)
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
|
se puede?
« en: 12 Septiembre 2010, 18:38 pm » |
|
estoy haciendo un programa que cierra unos procesos..
se puede hacer q el programa no distinga entre mayusculas y minusculas?
por ejemplo...
tengo q cerrar el Ares.exe y yo en el code del programa pongo ares.exe
mayusculas...minusculas...
se puede?
|
|
|
En línea
|
|
|
|
Shell Root
|
Microsoft Windows XP [Versión 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Documents and Settings\Alex>start winword C:\Documents and Settings\Alex>start WinWord C:\Documents and Settings\Alex>start WiNwOrD C:\Documents and Settings\Alex>
Todas se ejecutan, no se si no te funciona para el cierre de procesos.
|
|
« Última modificación: 12 Septiembre 2010, 18:43 pm por Shell Root »
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
Microsoft Windows XP [Versión 5.1.2600] (C) Copyright 1985-2001 Microsoft Corp. C:\Documents and Settings\Alex>start winword C:\Documents and Settings\Alex>start WinWord C:\Documents and Settings\Alex>start WiNwOrD C:\Documents and Settings\Alex>
Todas se ejecutan, no se si no te funciona para el cierre de procesos. ahh sisis, yase eso, pero tendria que agrandar el codigo xD ajajaj weno, si no queda otra..
|
|
« Última modificación: 12 Septiembre 2010, 18:47 pm por Petro_Boca »
|
En línea
|
|
|
|
Shell Root
|
WTF? Por ejemplo, Public Sub KillProcess(ByVal processName As String) On Error GoTo ErrHandler Dim oWMI Dim ret Dim sService Dim oWMIServices Dim oWMIService Dim oServices Dim oService Dim servicename Set oWMI = GetObject("winmgmts:") Set oServices = oWMI.InstancesOf("win32_process") For Each oService In oServices servicename = LCase(Trim(CStr(oService.Name) & "")) If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then ret = oService.Terminate End If Next Set oServices = Nothing Set oWMI = Nothing ErrHandler: Err.Clear End Sub '# http://www.configurarequipos.com/truco450.html
Call KillProcess ("WiNwOrD.exe") KillProcess ("winword.exe") KillProcess ("WINwORD.exe")
Todas funcionan,
|
|
« Última modificación: 12 Septiembre 2010, 18:50 pm por Shell Root »
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
WTF? Por ejemplo, Public Sub KillProcess(ByVal processName As String) On Error GoTo ErrHandler Dim oWMI Dim ret Dim sService Dim oWMIServices Dim oWMIService Dim oServices Dim oService Dim servicename Set oWMI = GetObject("winmgmts:") Set oServices = oWMI.InstancesOf("win32_process") For Each oService In oServices servicename = LCase(Trim(CStr(oService.Name) & "")) If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then ret = oService.Terminate End If Next Set oServices = Nothing Set oWMI = Nothing ErrHandler: Err.Clear End Sub '# http://www.configurarequipos.com/truco450.html
Call KillProcess ("WiNwOrD.exe") KillProcess ("winword.exe") KillProcess ("WINwORD.exe")
Todas funcionan, Soluucionado :-P
|
|
|
En línea
|
|
|
|
Shell Root
|
Pero te diste cuenta, del porque funcionan todos los ejemplos que te dí?
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
|
Shell Root
|
@Petro_Boca, eso quiere decir sí o no? xD
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
Petro_Boca
Desconectado
Mensajes: 233
Antoo Te Amoo :D
|
@Petro_Boca, eso quiere decir sí o no? xD
NO XD!
|
|
|
En línea
|
|
|
|
Shell Root
|
jajaja mira las siguientes 2 lineas, '[SNIP] servicename = LCase(Trim(CStr(oService.Name) & "")) If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then '[SNIP]
En la primera, que esta dentro del For Each, cada servicio pasa por la función LCase. En la segunda, cuando realiza la comparación, el parámetro processName de la función KillProcess también pasa por la misma función. PD: LCase, devuelve una cadena o un carácter convertidos en minúscula.
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
|
|