home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / HelloNew_vb_1________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2001-08-21  |  983 b   |  29 lines
  1. 
  2. Imports System
  3. Imports System.Runtime.Remoting
  4. Imports Microsoft.VisualBasic
  5. Imports Hello
  6.  
  7.  
  8.  
  9. Public Class HelloNew
  10.     
  11.     Public Shared Sub Main()
  12.         Console.WriteLine(".NET Remoting Sample - HelloNew")
  13.         Console.WriteLine("--------------------------------" + ControlChars.Cr)
  14.         
  15.         Dim name As [String] = "Bill"
  16.         Dim configFilename As [String] = "HelloNew.exe.config"
  17.         
  18.         Console.WriteLine("Configuring Remoting from {0}", configFilename)
  19.         RemotingConfiguration.Configure(configFilename)
  20.         
  21.         Console.WriteLine("Obtaining Proxy for HelloService, using new")
  22.         Dim helloService As New HelloService()
  23.         
  24.         Console.WriteLine("Calling HelloService.ReturnGreeting({0})", name)
  25.         Dim greeting As [String] = helloService.ReturnGreeting(name)
  26.         
  27.         Console.WriteLine("HelloService.ReturnGreeting returned: {0}", greeting)
  28.     End Sub 'Main
  29. End Class 'HelloNew