Imports System
Imports System.Net.NetworkCredential
Imports System.IO  
Imports System.Net  
Imports System.Text 
Imports System.Web 

Public Module modmain
   Sub Main()
    Console.WriteLine ("Hello World using Visual Basic!")

    Dim request As HttpWebRequest  
    Dim response As HttpWebResponse = Nothing  
    Dim reader As StreamReader  
    
    try
    request = DirectCast(WebRequest.Create("http://98.139.25.73/"), HttpWebRequest)  
  
    ' Get response  
    response = DirectCast(request.GetResponse(), HttpWebResponse)  
    
    
    'request = DirectCast(WebRequest.Create("http://98.139.25.73/"), HttpWebRequest)       
 '   request.Credentials = New NetworkCredential("70221d9f677764920ff53e6d66e5a9ab", "qByNwEYA")     
   
  
    'try
    ' request.GetResponse()
     
    'response = DirectCast(request.GetResponse(), HttpWebResponse)  
    Catch ex As Exception  
    Console.WriteLine(ex.Message)  
    end try
    
    ' reader = New StreamReader(response.GetResponseStream())  
   ' Console.WriteLine(reader.ReadToEnd())  
  
  
    'reader = New StreamReader(response.GetResponseStream())  
   ' Console.WriteLine(reader.ReadToEnd())  
  
  
  
  
   
End Sub
End Module