title: How do I communicate with an HTTPLISTENER that I have created?
body: <p>I've got this code below that creates an HTTPLISTENER that is nicely waiting at listener.GetContext().</p>
  
  <p>How do I communicate with this from another VB app?  I cannot seem to get WebRequest.Create to work with the URI that my HTTPLISTENER example is using.  This line of code from a second app is not working:</p>
  
  <pre><code>Dim request As WebRequest = WebRequest.Create(prefixes(0))
  </code></pre>
  
  <p>Here is the code:</p>
  
  <pre><code>Imports System.Net
  Imports System.Globalization
  
  Public Class Form1
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  
      Dim prefixes() As String = {"http://*:8080/HttpListener/"}
  
      ProcessRequests(prefixes)
  
  End Sub
  
  Private Sub ProcessRequests(ByVal prefixes() As String)
      If Not System.Net.HttpListener.IsSupported Then
          Console.WriteLine( _
              "Windows XP SP2, Server 2003, or higher is required to " &amp; _
              "use the HttpListener class.")
          Exit Sub
      End If
  
      ' URI prefixes are required,
      If prefixes Is Nothing OrElse prefixes.Length = 0 Then
          Throw New ArgumentException("prefixes")
      End If
  
      ' Create a listener and add the prefixes.
      Dim listener As System.Net.HttpListener = _
          New System.Net.HttpListener()
      For Each s As String In prefixes
          listener.Prefixes.Add(s)
      Next
  
      Try
          ' Start the listener to begin listening for requests.
          listener.Start()
          Console.WriteLine("Listening...")
  
          ' Set the number of requests this application will handle.
          Dim numRequestsToBeHandled As Integer = 10
  
          For i As Integer = 0 To numRequestsToBeHandled
              Dim response As HttpListenerResponse = Nothing
              Try
                  ' Note: GetContext blocks while waiting for a request. 
                  Dim context As HttpListenerContext = listener.GetContext()
  
                  ' Create the response.
                  response = context.Response
                  Dim responseString As String = _
                      "&lt;HTML&gt;&lt;BODY&gt;The time is currently " &amp; _
                      DateTime.Now.ToString( _
                      DateTimeFormatInfo.CurrentInfo) &amp; _
                      "&lt;/BODY&gt;&lt;/HTML&gt;"
                  Dim buffer() As Byte = _
                      System.Text.Encoding.UTF8.GetBytes(responseString)
                  response.ContentLength64 = buffer.Length
                  Dim output As System.IO.Stream = response.OutputStream
                  output.Write(buffer, 0, buffer.Length)
  
              Catch ex As HttpListenerException
                  Console.WriteLine(ex.Message)
              Finally
                  If response IsNot Nothing Then
                      response.Close()
                  End If
              End Try
          Next
      Catch ex As HttpListenerException
          Console.WriteLine(ex.Message)
      Finally
          ' Stop listening for requests.
          listener.Close()
          Console.WriteLine("Done Listening...")
      End Try
  End Sub
  
  End Class
  </code></pre>