Darkorbit Toolsearcher

 Public Function WebRGET(ByVal sUrl As String, Optional ByRef cookies As CookieContainer = Nothing) As String

        Dim Request As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
        Request.Method = "GET"
        Request.CookieContainer = cookies
        Request.ContentType = "application/x-www-form-urlencoded"

        Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
        Dim DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        Return ServerResponse

    End Function

#Region "http"
    Public Function WebRPOST(ByVal sUrl As String, ByVal sPost As String, ByVal cookies As CookieContainer) As String

        Dim nRequest As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
        nRequest.Method = "POST"
        nRequest.CookieContainer = cookies
        nRequest.ContentType = "application/x-www-form-urlencoded"

        Dim nbyteArray() As Byte = Encoding.Default.GetBytes(sPost)
        nRequest.ContentLength = nbyteArray.Length
        Dim nDataStream As Stream = nRequest.GetRequestStream()
        nDataStream.Write(nbyteArray, 0, nbyteArray.Length)
        nDataStream.Close()

        Dim nResponse As HttpWebResponse = nRequest.GetResponse()
        nDataStream = nResponse.GetResponseStream()
        Dim nreader As New StreamReader(nDataStream)
        Dim nServerResponse As String = nreader.ReadToEnd()
        nreader.Close()
        nDataStream.Close()
        nResponse.Close()

        Return nServerResponse
    End Function

    Public Function WebRGET(ByVal sUrl As String, Optional ByRef cookies As CookieContainer = Nothing) As String

        Dim Request As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest)
        Request.Method = "GET"
        Request.CookieContainer = cookies
        Request.ContentType = "application/x-www-form-urlencoded"

        Dim Response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
        Dim DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        Return ServerResponse

    End Function
#End Region