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.TransferEncoding <> Nothing Then
Console.WriteLine("TransferEncoding: " & httpReq.TransferEncoding.ToString)
End If
If httpReq.UserAgent <> Nothing Then
Console.WriteLine("UserAgent: " & httpReq.UserAgent.ToString)
End If
Catch ex As Exception
Console.WriteLine(ex.StackTrace.ToString())
End Try
End Sub
End Class
|