Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim httpReq As System.Net.HttpWebRequest
Try
Dim httpURL As New System.Uri("http://www.java2java.com/index.htm?key=value")
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
If httpReq.MediaType <> Nothing Then
Console.WriteLine("MediaType: " & httpReq.MediaType.ToString)
End If
Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class
|