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


さやか  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画面起動しています。
とでてしまいます。

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加