Shell.Application.Windows() -- What if a window is hanging?

[Adrian]

Hi there

My VB Code looks something like that:

************************************************** ************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************** ************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

[Cor Ligthert [MVP]]

Adrian,

I would not know and probably most of us don't we use the Process command
for this.

///Internet Explorere
Dim p As New Process
Dim pi As New ProcessStartInfo
pi.FileName = "http://msdn.microsoft.com"
p.StartInfo = pi
p.Start()

I hope this helps,

Cor

"Adrian" <ry***@netdot.chschreef in bericht
news:46********@news.bluewin.ch...

Hi there

My VB Code looks something like that:

************************************************** ************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************** ************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

[Adrian]

Hi Cor

You describe what is todo, to start a new Process. But i would like to
go through all open process (internet explorer windows) and find a
specific one. You know what i mean?

Thank u!

Adrian,

I would not know and probably most of us don't we use the Process command
for this.

///Internet Explorere
Dim p As New Process
Dim pi As New ProcessStartInfo
pi.FileName = "http://msdn.microsoft.com"
p.StartInfo = pi
p.Start()

I hope this helps,

Cor

"Adrian" <ry***@netdot.chschreef in bericht
news:46********@news.bluewin.ch...

>Hi there

My VB Code looks something like that:

************************************************* *************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************* *************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

[Cor Ligthert [MVP]]

Adrian,

You need than interoperatiblility with shdocvw. Hard stuff to work with.
http://support.microsoft.com/kb/176792

I hope this helps a little bit

Cor

"Adrian" <ry***@netdot.chschreef in bericht
news:46**********@news.bluewin.ch...

Hi Cor

You describe what is todo, to start a new Process. But i would like to go
through all open process (internet explorer windows) and find a specific
one. You know what i mean?

Thank u!

>Adrian,

I would not know and probably most of us don't we use the Process command
for this.

///Internet Explorere
Dim p As New Process
Dim pi As New ProcessStartInfo
pi.FileName = "http://msdn.microsoft.com"
p.StartInfo = pi
p.Start()

I hope this helps,

Cor

"Adrian" <ry***@netdot.chschreef in bericht
news:46********@news.bluewin.ch...

>>Hi there

My VB Code looks something like that:

************************************************ **************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************ **************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

[rowe_newsgroups]

On Jun 4, 3:54 pm, Adrian <[e-mail]:

Hi there

My VB Code looks something like that:

************************************************** ************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************** ************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

I believe you could use the SendMessageTimeout API call to see if a
window is hung (it has a flag that aborts the call if the window is
hung as well as a timeout), so perhaps you could it to check if a
window is hung before trying to "do stupid things"

Here's the pinvoke.net pages:

http://www.pinvoke.net/default.aspx/...geTimeout.html
http://www.pinvoke.net/default.aspx/...eoutFlags.html

Thanks,

Seth Rowe

[Adrian]

Hi Seth

That's exactly what i searched for... thanx a lot!

greets

rowe_newsgroups schrieb:

On Jun 4, 3:54 pm, Adrian <[e-mail]:

>Hi there

My VB Code looks something like that:

************************************************* *************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************* *************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

I believe you could use the SendMessageTimeout API call to see if a
window is hung (it has a flag that aborts the call if the window is
hung as well as a timeout), so perhaps you could it to check if a
window is hung before trying to "do stupid things"

Here's the pinvoke.net pages:

http://www.pinvoke.net/default.aspx/...geTimeout.html
http://www.pinvoke.net/default.aspx/...eoutFlags.html

Thanks,

Seth Rowe

[Adrian]

One last question...
Could u write some sample code for me please?
I've no idea how to use this api...

sorry & thanx

rowe_newsgroups schrieb:

On Jun 4, 3:54 pm, Adrian <[e-mail]:

>Hi there

My VB Code looks something like that:

************************************************* *************
Dim oShellApplication = CreateObject("Shell.Application")
Dim objWindow
For Each objWindow In oShellApplication.Windows()
'do stupid things with IE
Next objWindow
************************************************* *************

The most of time, this works fine, but if some of the Window is hanging
(gives no response), the script goes hold on, until all window gives a
response. What can i do, to jump over a hanging window?

thanx a lot!

greets adi

I believe you could use the SendMessageTimeout API call to see if a
window is hung (it has a flag that aborts the call if the window is
hung as well as a timeout), so perhaps you could it to check if a
window is hung before trying to "do stupid things"

Here's the pinvoke.net pages:

http://www.pinvoke.net/default.aspx/...geTimeout.html
http://www.pinvoke.net/default.aspx/...eoutFlags.html

Thanks,

Seth Rowe