VB6 question

[JCE3000GT]

I'm in the process of coding an app for a specific use...but I can't seem to find any info on how to detect a program that's "not responding" then to close and reopen that program. Anyone know a good set of API calls (or provide a module for me) that can accomplish this? As this is the main goal of the program is to detect the crash, end the task/terminate the program, and reopen it (this is the easy step I know already). Any help is greatly appreciated.

<P ID="signature"></P>

[SirDaShadow]

> step I know already). Any help is greatly appreciated.
this is not VB, this is in rapidq, but it may give you an idea as the api is called the same way
>
$INCLUDE "RAPIDQ.INC"


'constantes
CONST LVM_FIRST = &H1000
CONST LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
CONST LVEX_GRIDLINES = 1
CONST LVEX_SUBITEMIMAGES = 2
CONST LVEX_CHECKBOXES = 4
CONST LVEX_TRACKSELECT = 8
CONST LVEX_HEADERDRAGDROP = 16
CONST LVEX_FULLROWSELECT = 32
CONST LVEX_ONECLICKACTIVATE = 64
CONST LVEX_TWOCLICKACTIVATE = 128



Const TH32CS_SNAPPROCESS As Long = 2&
Type PROCESSENTRY32
dwSize As DWORD
cntUsage As DWORD
th32ProcessID As DWORD
th32DefaultHeapID As DWORD
th32ModuleID As DWORD
cntThreads As DWORD
th32ParentProcessID As DWORD
pcPriClassBase As Long
dwFlags As DWORD
szexeFile As string*255
End Type


'APIs
Declare Function CreateToolhelpSnapshot Lib "kernel32" _
Alias "CreateToolhelp32Snapshot" _
(ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Declare Function ProcessFirst Lib "kernel32" _
Alias "Process32First" _
(ByVal hSnapshot As Long, uProcess As long) As Long

Declare Function ProcessNext Lib "kernel32" _
Alias "Process32Next" _
(ByVal hSnapshot As Long, uProcess As long) As Long

Declare Sub CloseHandle Lib "kernel32" alias "CloseHandle" (ByVal hPass As Long)



' Copy and paste into your program
DECLARE SUB list (Sender AS QBUTTON)

CREATE Form AS QFORM
Caption = "List des process en cours"
Width =580
Height = 550
Center
CREATE Button1 AS QBUTTON
Caption = "List"
width=200
Left = 0
Top = 50
OnClick = list
END CREATE
CREATE TheList AS QLISTview
Left = 0
Top = 80
Width = 570
Height = 425
TabOrder = 1
ViewStyle = vsReport

AddColumns "PID","Nbr thread","priorité","Nom"
Column(0).Width = 80
Column(1).Width = 80
Column(2).Width = 50

Column(3).Width = 400

HotTrack =true

END CREATE
CREATE edit AS Qedit
Left =0
Top = 0
Width = 100
Height = 20
END CREATE

END CREATE

'Insert your initialization code here
SendMessage(ListView.Handle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, _
LVEX_CHECKBOXES OR LVEX_FULLROWSELECT OR LVEX_GRIDLINES)

Form.ShowModal

'--------- Subroutines ---------

SUB list (Sender AS QBUTTON)
dim x as integer

Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
dim pointeur as long
dim pointeur1 as long
TheList.Clear
x=0
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot = 0 Then
Exit Sub
End If
uProcess.dwSize =sizeof(uProcess)+255
r = ProcessFirst(hSnapshot,uProcess)
While r
'process ID
TheList.AddItems hex$(uProcess.th32ProcessID)
'nbr de thread
TheList.AddSubItem x, str$(uProcess.cntThreads)
'priorité
TheList.AddSubItem x, str$(uProcess.pcPriClassBase)
'chemin
TheList.AddSubItem x, uProcess.szexeFile
x=x+1
r = ProcessNext(hSnapshot, uProcess)
wend
Call CloseHandle(hSnapshot)

edit.text=str$(TheList.itemcount)

END SUB

<P ID="signature"></P>

[Gavin_86]

adding onto what SirDaShadow wrote, you can use this:

<pre>Declare Function GetLastError Lib "kernel32" Alias "GetLastError" () As Long</pre>

to retrieve the last error, but you may want to note that this is on a per Thread basis. Each thread has it's own last error report, instead of one catch all last error.

<P ID="signature"><center>I'm just a Paranoid Android watching through my superb crystal viewing glass

.::http://gavin.panicus.orgGavin.Panicus.org</a> ::.</center></P>

[JCE3000GT]

> Declare Function GetLastError Lib "kernel32" Alias
> "GetLastError" () As Long
>
> to retrieve the last error, but you may want to note that
> this is on a per Thread basis. Each thread has it's own last
> error report, instead of one catch all last error.

Got any examples on how to tell if the application in question isn't responding using this function?

<P ID="signature"></P>

[SirDaShadow]

> Got any examples on how to tell if the application in
> question isn't responding using this function?
Use SendMessageTimeout to send a message to the window. If the message times out after, say, 10 seconds, you can assume the applcation is not responding (the task manager assumes this after 5 seconds).

assume h is the window handle:

if SendMessageTimeout(H, WM_NULL, 0, 0, SMTO_NORMAL, 100, Res) <> 0 then
showmessage("'Responding")
else
showmessage("'Not Responding")
end if


edit: Send MessageTimeout's declaration


<P ID="signature"></P><P ID="edit"><FONT class="small">Edited by SirDaShadow on 10/30/04 09:09 AM.</FONT></P>

[JCE3000GT]

Hmm interesting. I'll give it a whirl. Thanks.

<P ID="signature"></P>

[cipher]

Use 'SendMessageTimeout' with SMTO_ABORTIFHUNG and SMTO_BLOCK as flags. It'll return 0 is the window is not responding. You can use GetWindowThreadProcessId to get the process ID and use TerminateProcess to kill the process. GetModuleFileNameEx should let you get the filename of the application so you can restart it.

<P ID="signature">-----
ciphz0r</P>