home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / FL_EventFireHost_vb________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2002-06-13  |  812 b   |  27 lines
  1. 
  2. Imports System
  3. Imports System.IO
  4. Imports System.Runtime.Remoting
  5. Imports System.Runtime.Remoting.Channels
  6. Imports System.Runtime.Remoting.Channels.Http
  7.  
  8.  
  9.  
  10. Public Class Host
  11.     
  12.     'Entry point which delegates to C-style main Private Function
  13.     Public Shared Sub Main()
  14.         VBMain(System.Environment.GetCommandLineArgs())
  15.     End Sub
  16.     
  17.     Public Shared Sub VBMain(args() As String)
  18.         ' Register the wellknown server type. 
  19.         RemotingConfiguration.Configure("eventfirehost.exe.config")
  20.         
  21.         ' We are done, wait until the user wants to exit
  22.         Console.WriteLine("Host is ready to process remote messages.")
  23.         Console.WriteLine("Press ENTER to exit")
  24.         Dim keyState As [String] = Console.ReadLine()
  25.     End Sub 'Main
  26. End Class 'Host
  27.