起動中の全てのウィンドウ名を取得するには？

さやか 2007-11-09 22:21:15 No: 144068

VB.net上でクライアントPCのアクセスしているサイト名と数を取得するようなPGを組みたいのですが、どのようにすれば宜しいでしょうか？
例としてはIEで3画面起動していたとして
Yahoo Japan!
Yahoo Japan!
Google
「Yahoo Japan!」は2画面起動しています。
「Google」は1画面起動しています。
といった感じで作りたいのです。
Process.GetProcessを利用してみましたが、
Dim nPrompt As String = ""
cnt1 = 0
cnt2 = 0
For Each hProcess As Process In Process.GetProcesses()
if "Yahoo Japan!" =nPrompt = hProcess.ProcessName then
cnt1 = cnt1 + 1
elseif "Google" =nPrompt = hProcess.ProcessName then
cnt2 = cnt2 + 1
end if
Next hProcess
MessageBox.Show("「Yahoo Japan!」は" & cnt1 & "画面起動しています。")
MessageBox.Show("「Google」は" & cnt2 & "画面起動しています。")

とした場合に、「Yahoo Japan!」は1画面起動しています。
とでてしまいます。

タスクマネージャのアプリケーションでは見えてますし、
どうにかして取りたいと思うのですが、
どなたかご存知の方いらっしゃいませんでしょうか？