.netアプリとvb6アプリをお互いに話をするには？

Question

私は、お互いに依存する2つのアプリケーションを持っています。 1つは堅牢なvb6アプリケーションです。もう一つは私の熱心に期待されているステルス技術を採用しており、おそらくオスカーの.net（2.0）システムトレイアプリケーションです。 vb6アプリはシステムトレイアプリを起動します。そしてVB6アプリケーションがシャットダウンされた場合、他の作業がないと仮定すると、シストレイアプリケーションは自動的にシャットダウンします（文書をデータベースに保存する作業です）。

唯一残っているのは、システムトレイアプリがクラッシュしたり、致命的なエラーが発生して作業を実行できない場合です。この状態の可能性の高い結果は、モーダルダイアログをポップアップして、ユーザーに「ドキュメントをもう保存できないため、サポートにすぐ連絡する」ことを伝えます。

ここで最悪のシナリオは、ドキュメントがvb6アプリで処理されるたびに（すなわち、ユーザーがドキュメントを完成し、コンポーネントが圧縮されてローカルに保存されると）、チェックしてシステムトレイアプリが動作しているかどうかを確認してください。私は知らない、少し面倒なようです。より洗練されたアプローチはありますか？私のvb6アプリを「信号」することができる/私のvb6アプリにそのような信号を聞くことができる何らかの方法はありますか？

Answer 1

私が過去に行ったことは、COMオブジェクトとして公開された.NETのクラスライブラリです（アセンブリ情報ではComVisible属性をtrueに設定します）。

VB6からこの方法で、.NETクラスライブラリとC＃からエクスポートしたメソッドを呼び出すことができます。このコードでは、状況を処理するために必要なすべてのコードを持つことができます。私たちはより良い例外ようにlog4netのとのようなフレームワークをログに記録する、（のtry-catch-最終的に）扱うの利益を得ることができるC＃でVB6とよりが少ないコードを書く。このように

...

これが働いています今のところ私のために非常に良い。

Answer 2

私の最初の推測では、両者の相互通信が導入されるでしょう。 VB6アプリケーションに定義された間隔でPING要求を送信させます。その後、VB6アプリケーションが応答を受信しないか、要求がタイムアウトする場合は、必要な処理を行います。

Answer 3

あなたは、それはのようなコードを使用することによって非常に簡単に実行しているかどうかをチェックするためにWMIを使用することができます。

dim foundIt 
For Each Process in GetObject("winmgmts://.").InstancesOf("win32_process") 
    If UCase(Process.name) = "MYDOTNET.EXE" Then 
     foundIt = true 
    End If 
Next 
if not foundIt then 
    msgbox("It's not running, so start the process") 
end if 

は注意してください、VBスクリプト、上記のように書きましたが、私は思っているだろうVB6のコードとして動作するはずです。

Answer 4

私は細かいことはありませんが、過去にWM_NULLを送信するためにメッセージングを使用しました。それはpingメッセージに相当します。したがって、VB6アプリケーションは、システムトレイアプリケーションに定期的なpingを送信します。 systrayアプリが適時にpingに応答しない場合、VB6アプリはそれがハングしているか、動作していないことを知っています。

Answer 5

私はタイマーで以下の機能のようなものを使用することをお勧めし

：

'declaration for FindWindow API 
Private Declare Function FindWindow _ 
     Lib "user32" _ 
     Alias "FindWindowA" _ 
     (ByVal lpClassName As String, _ 
     ByVal lpWindowName As String) As Long 



'Call the following on a timer with the Tray icon form caption 
'when it goes False unleash hell 
Private Function IsWindowLoaded(ByVal strWindowCaption As String) As Boolean 
    Dim lHwnd As Long 
    lHwnd = FindWindow(strWindowCaption, vbNullString) 
    If lHwnd <> 0 Then 
     IsWindowLoaded = True 
    Else 
     IsWindowLoaded = False 
    End If 
End Function