控制WinForms應用程序從Web應用程序

Question

類似的問題已經被here

問...但我的不同的事實，我只需要從網頁（不是雙向的）控制WinForms應用程序。我只需要告訴winforms應用程序打開窗口等，當用戶點擊Web應用程序內的鏈接。

這一切都在一個安全的企業環境中，所以不需要擔心安全問題。

我看到2個可能的解決方案：

1）創建ActiveX「中間層」，它可以很容易地嵌入在網頁中

2）主辦的WinForms應用程序偵聽（REST WCF服務-ful類型）命令

有沒有一個簡單的解決方案，我失蹤了？任何其他的選擇？

Answer 1

2）的WinForms託管WCF服務 應用程序，偵聽（REST-FUL型） 命令

這是死簡單......我會選擇這種

Answer 2

根據可從網頁發送到WinForms應用程序的「命令」的複雜性，您可以簡單地將自定義URI方案與調用應用程序的Web瀏覽器一起註冊。例如，mailto:就會調用您的電子郵件程序，或itms:調用iTunes音樂商店。

然後，您的應用程序會識別出它的一個實例已經在運行並將參數傳遞給正在運行的實例。

Answer 3

我會爲程序註冊一個擴展名。你知道，當你敲擊一個xls文件時，它會以xls文件的url作爲參數，並且如果你敲擊一個播放列表文件，它會啓動你的mediaplayer。

您可以註冊（.exe）「.fro」文件的擴展名，該擴展名以.fro文件作爲參數打開您的程序。

如果你的程序已經在運行，它會得到參數，否則它啓動程序並傳遞參數。您的程序將讀取該文件並按照文件中的命令進行操作。例如，如果您的網絡應用程序中有一個鏈接應該讓您的winform程序打開一個客戶並顯示客戶詳細信息，那麼您可以讓您的Web應用程序有一個鏈接<a href="opencustomer.fro">Open customer</a>，文件opencustomer .fro可以是動態創建的或靜態的。

1. 註冊文件擴展名「.fro」打開您的.Net程序。 （示例如下）

2. 使網站創建帶有命令的.fro文件。

3. 按照本教程（http://visualstudiomagazine.com/articles/2007/11/01/simplify-application-instancing.aspx）將您的.Net程序轉換爲單實例應用程序。因此，如果第二個實例啓動，它將通過命名管道將命令$發送給第一個實例。

4. 讓您的.Net程序下載.fro文件並解釋文件中的命令。這可能很簡單，只需包含一個打開的客戶編號即可。

我發現這個vb。有關注冊文件類型淨例如，它不應該是很難轉換或它的谷歌C＃-version：http://bytes.com/topic/net/answers/519230-vb-net-associate-file-program

Public Class Example 

    Public Sub RegisterType() 
     Dim fileReg As New FileTypeRegistrar 

     With fileReg 
      .FullPath = Path_To_Executable 
      .FileExtension = Extension_To_Register 
      .ContentType = "application/" & Your_Description 
      .IconIndex = Icon_Index_In_Application 
      .IconPath = Path_To_Executable 
      .ProperName = Name_Of_Executable 
      .CreateType() 
     End With 

    End Sub 

End Class 

Public Class FileTypeRegistrar 

#Region "Properties & Property Variables" 
    Private _ProperName As String 
    Public Property ProperName() As String 
     Get 
      Return _ProperName 
     End Get 
     Set(ByVal Value As String) 
      _ProperName = Value 
     End Set 
    End Property 

    Private _ContentType As String 
    Public Property ContentType() As String 
     Get 
      Return _ContentType 
     End Get 
     Set(ByVal Value As String) 
      _ContentType = Value 
     End Set 
    End Property 

    Private _FullPath As String 
    Public Property FullPath() As String 
     Get 
      Return _FullPath 
     End Get 
     Set(ByVal Value As String) 
      _FullPath = Value 
     End Set 
    End Property 

    Private _FileExtension As String 
    Public Property FileExtension() As String 
     Get 
      Return _FileExtension 
     End Get 
     Set(ByVal Value As String) 
      _FileExtension = Value.Replace(".", "") 
     End Set 
    End Property 

    Private _IconPath As String 
    Public Property IconPath() As String 
     Get 
      Return _IconPath 
     End Get 
     Set(ByVal Value As String) 
      _IconPath = Value 
     End Set 
    End Property 

    Private _IconIndex As Integer 
    Public Property IconIndex() As Integer 
     Get 
      Return _IconIndex 
     End Get 
     Set(ByVal Value As Integer) 
      _IconIndex = Value 
     End Set 
    End Property 
#End Region 

#Region "Public Methods" 
    Public Sub CreateType() 
     Dim fileName As String = Path.GetFileNameWithoutExtension(FullPath) 
     Dim Ext As String = "." & FileExtension.ToLower 
     Dim extKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(Ext) 

     extKey.SetValue("", fileName) 
     extKey.SetValue("Content Type", ContentType) 
     extKey.Close() 

     Dim mainKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(fileName) 
     Dim defIconKey As RegistryKey = mainKey.CreateSubKey("DefaultIcon") 

     defIconKey.SetValue("", IconPath & ", " & IconIndex) 
     defIconKey.Close() 

     Dim shellKey As RegistryKey = mainKey.CreateSubKey("shell") 
     Dim OpenKey As RegistryKey = shellKey.CreateSubKey("Open") 
     Dim cmdKey As RegistryKey = OpenKey.CreateSubKey("command") 

     cmdKey.SetValue("", """" & FullPath & " %1""") 
     cmdKey.Close() 
     OpenKey.Close() 
     shellKey.Close() 
     mainKey.Close() 

    End Sub 

    Public Sub DeleteType() 
     Dim fileName As String = Path.GetFileNameWithoutExtension(FullPath) 
     Dim Ext As String = "." & FileExtension.ToLower 

     Registry.ClassesRoot.DeleteSubKey(Ext) 
     Registry.ClassesRoot.DeleteSubKey(fileName) 

    End Sub 
#End Region 

End Class 

Answer 4

另一種方式來CONTROLL winformclients是添加網站上的Web服務，讓您的客戶輪詢webservice每2-4秒查看是否存在等待命令來執行特定客戶端。

一個表添加到數據庫 的clientid，命令，ClientDone

當一個登錄的用戶單擊Web應用程序的鏈接，應控制好了winformclient，在表中的客戶端ID和添加一行條命令。

如果客戶端在winform程序中登錄，winform程序將輪詢webservice以查找該客戶端新存儲的命令。當客戶端執行命令標記爲已完成（或只是從數據庫中刪除行）

這將假定登錄網站的用戶在登錄winform程序時具有相同的clientid/userid。

Answer 5

由於您處於企業環境中，因此可能使用的瀏覽器範圍非常接近。你有沒有想過編寫一個纖薄的Firefox插件，與你的網站接口並將所有的命令轉發到你的WinForms應用程序？