detect app not responding

[vbbit]

Under task manager, if the application freezes, it says not responding. Is there a way or an API that can detect which process name that is not responding?

[4x2y]

Read this article http://support.microsoft.com/kb/304991, it is use C# but it is simple enough to convert to VB.

[Nightwalker83]

Not sure if posts #12 and #13 here will be of use or not?

[Bonnie West]

You could also try the IsHungAppWindow function.

[vbbit]

Thanks, all. Is there a way to force the IE to stop responding so that I can test whether or not the code works?

[Bonnie West]

You can use SuspendThread.

[vbbit]

That is c++, is there a vb one?

[Bonnie West]

Here are the VB declares for the abovementioned APIs:

Private Declare Function IsHungAppWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long

[vbbit]

Thanks Bonnie, I'll try that. Does anyone know how to convert this to vb? It's from this site.
http://support.microsoft.com/kb/304991

procs = Process.GetProcessesByName("IEXPLORE");

[vbbit]

Bonnie, how do I get the thread handle of an application?

[4x2y]

Here is an auto converted of the code at http://support.microsoft.com/kb/304991

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports SHDocVw
Imports System.Diagnostics
Namespace appStoppedresponding_cs
  Public Class Form1
	  Inherits System.Windows.Forms.Form
	Private WithEvents btnStart As System.Windows.Forms.Button
	Private WithEvents btnCheck As System.Windows.Forms.Button
	Private WithEvents btnClose As System.Windows.Forms.Button

	Private components As System.ComponentModel.Container = Nothing

	Private Browser As InternetExplorer
	Protected procs() As Process

	Public Sub New()
	  InitializeComponent()
	End Sub

	Protected Overrides Overloads Sub Dispose(ByVal disposing As Boolean)
	  If disposing Then
		If components IsNot Nothing Then
		  components.Dispose()
		End If
	  End If
	  MyBase.Dispose(disposing)
	End Sub

	#Region "Windows Form Designer generated code"

	Private Sub InitializeComponent()
	  Me.btnCheck = New System.Windows.Forms.Button()
	  Me.btnStart = New System.Windows.Forms.Button()
	  Me.btnClose = New System.Windows.Forms.Button()
	  Me.SuspendLayout()
	  ' 
	  ' btnCheck
	  ' 
	  Me.btnCheck.Location = New System.Drawing.Point(66, 122)
	  Me.btnCheck.Name = "btnCheck"
	  Me.btnCheck.Size = New System.Drawing.Size(152, 23)
	  Me.btnCheck.TabIndex = 1
	  Me.btnCheck.Text = "Check Internet Explorer"
'	  Me.btnCheck.Click += New System.EventHandler(Me.btnCheck_Click)
	  ' 
	  ' btnStart
	  ' 
	  Me.btnStart.Location = New System.Drawing.Point(66, 74)
	  Me.btnStart.Name = "btnStart"
	  Me.btnStart.Size = New System.Drawing.Size(152, 23)
	  Me.btnStart.TabIndex = 0
	  Me.btnStart.Text = "Start Internet Explorer"
'	  Me.btnStart.Click += New System.EventHandler(Me.btnStart_Click)
	  ' 
	  ' btnClose
	  ' 
	  Me.btnClose.Location = New System.Drawing.Point(66, 170)
	  Me.btnClose.Name = "btnClose"
	  Me.btnClose.Size = New System.Drawing.Size(152, 23)
	  Me.btnClose.TabIndex = 2
	  Me.btnClose.Text = "Close Internet Explorer"
'	  Me.btnClose.Click += New System.EventHandler(Me.btnClose_Click)
	  ' 
	  ' Form1
	  ' 
	  Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
	  Me.ClientSize = New System.Drawing.Size(292, 266)
	  Me.Controls.AddRange(New System.Windows.Forms.Control() { Me.btnClose, Me.btnCheck, Me.btnStart})
	  Me.Name = "Form1"
	  Me.Text = "Form1"
'	  Me.Closing += New System.ComponentModel.CancelEventHandler(Me.Form1_Closing)
'	  Me.Load += New System.EventHandler(Me.Form1_Load)
	  Me.ResumeLayout(False)

	End Sub
	#End Region

	'example code
	''' The main entry point for the application.
	<STAThread>
	Shared Sub Main()
	  Application.Run(New Form1())
	End Sub

	Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click
	  Browser = New InternetExplorer()
	  Browser.Visible = True
	  Browser.GoHome()
	  procs = Process.GetProcessesByName("IEXPLORE")
	  'Build event delegate to catch browser close event.
	  Dim oDelegate As New SHDocVw.DWebBrowserEvents2_OnQuitEventHandler(AddressOf Browser_OnQuit)
		   Browser.OnQuit += oDelegate
	End Sub

	Private Sub btnCheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCheck.Click
	  If Browser IsNot Nothing Then

		If procs(0).Responding Then
		  MessageBox.Show("IEXPLORE is Responding")
		Else
		  MessageBox.Show("IEXPLORE is Not Responding")
		End If
	  Else
		MessageBox.Show("IEXPLORE is Not Running")
	  End If

	End Sub

	Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
	  Me.closeBrowser()
	End Sub

	Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
	  If Browser IsNot Nothing Then
		Me.closeBrowser()
	  End If
	End Sub
	Private Sub closeBrowser()
	  Try
		If procs(0).Responding Then
		  procs(0).CloseMainWindow()
		Else
		  procs(0).Kill()
		End If
		'Destroy object reference and array.
		Me.cleanUp()
	  Catch
		MessageBox.Show("Could Not Find the IEXPLORE Process")
	  End Try
	End Sub
	Private Sub Browser_OnQuit()
	  Me.cleanUp()
	End Sub
	Private Sub cleanUp()
	  Browser = Nothing
	  procs=Nothing
	End Sub

	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
	End Sub
  End Class

End Namespace

[Nightwalker83]

@4x2y,

That is .Net the op wants vb6 code.

[4x2y]

@4x2y,

That is .Net the op wants vb6 code.

Sorry, i misunderstood his question!