Error URGENTE
Publicado por jc (22 intervenciones) el 29/06/2001 14:04:14
Tengo el siguente bucle para cerrar una tarea del administrador de tareas:
do hwnd
HWNDAUX = hwnd
sTitulo = String$(255, " ")
rect = GetWindowText(HWNDAUX, sTitulo, Len(sTitulo))
sTitulo = Mid(sTitulo, 1, rect)
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
bElimina = sTitulo = "Microsoft Excel" Or InStr(sTitulo, sArchivoExcelAbierto) > 0
If bElimina Then
rect = PostMessage(HWNDAUX, WM_DESTROY, 0, 0)
End If
loop
HWNDAUX y hwnd contine la dirección donde se encuentra el Excel
sTitulo contine el titulo de la sesión a cerrar (Excel)
y al utilizar la API PostMessage(HWNDAUX, WM_DESTROY, 0, 0) me da el mensaje:"La aplicación ha realizado una operación errónea"
Alguien podria decirme que estoy haciendo mal o como puedo evitar que me salga el mensaje de Error?
Gracias de antemano.
do hwnd
HWNDAUX = hwnd
sTitulo = String$(255, " ")
rect = GetWindowText(HWNDAUX, sTitulo, Len(sTitulo))
sTitulo = Mid(sTitulo, 1, rect)
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
bElimina = sTitulo = "Microsoft Excel" Or InStr(sTitulo, sArchivoExcelAbierto) > 0
If bElimina Then
rect = PostMessage(HWNDAUX, WM_DESTROY, 0, 0)
End If
loop
HWNDAUX y hwnd contine la dirección donde se encuentra el Excel
sTitulo contine el titulo de la sesión a cerrar (Excel)
y al utilizar la API PostMessage(HWNDAUX, WM_DESTROY, 0, 0) me da el mensaje:"La aplicación ha realizado una operación errónea"
Alguien podria decirme que estoy haciendo mal o como puedo evitar que me salga el mensaje de Error?
Gracias de antemano.
Valora esta pregunta
0