working on freesky online bot

    Public Function HTTPPostRequest(ByVal url As String, _
        ByVal param_names As String, _
        ByVal param_values As String, _
        Optional ByVal authentication As String = "") As ResultInfo

        Dim result As New ResultInfo

        ' build parameters
        Dim params As String
        Dim param_name() As String = param_names.Split(",")
        Dim param_value() As String = param_values.Split(",")

        If param_name.Length <> param_value.Length Then
            result.Result = Nothing
            result.ErrorFound = True
            result.Details = "HTTPGet Parameter name and value count doesn't match"
            result.OnRequest = True

            Return result
        ElseIf param_names.Trim <> String.Empty Then
            For cnt As Int16 = 0 To param_name.Length - 1
                params += param_name(cnt) & "=" & param_value(cnt) & "&"
            Next

            ' remove last ampersand
            params = params.Substring(0, params.Length - 1)
        Else
            ' no parameter given
            params = String.Empty
        End If

        ' for logs / xmldebug
        result.Request = params

        Try
            Dim request As HttpWebRequest

            Try
                ' convert parameters to byte array
                Dim buffer() As Byte
                buffer = Encoding.ASCII.GetBytes(params)

                ' connect to url
                request = WebRequest.Create(url)
                With request
                    .KeepAlive = False              ' fix for timeout
                    .Method = "POST"
                    .ContentType = "application/x-www-form-urlencoded"
                    .ContentLength = buffer.Length
                    .AllowAutoRedirect = False      ' fix for redirected result page
                End With

                ' network authentication
                If authentication <> String.Empty Then
                    request.Headers.Add("Authorization", authentication)
                End If

                ' send data
                Dim requestStream As Stream
                requestStream = request.GetRequestStream()
                With requestStream
                    .Write(buffer, 0, buffer.Length)
                    .Close()
                End With

            Catch ex As Exception
                result.OnRequest = True
                Throw ex
            End Try

            ' obtain response
            Dim response As HttpWebResponse
            response = request.GetResponse()

            ' parse result
            Dim reader As New StreamReader(response.GetResponseStream, Encoding.ASCII)
            Dim xml As String = reader.ReadToEnd
            result.Result = ParseResult(xml, "Result")
            result.Details = xml
            result.ErrorFound = False

        Catch ex As Exception
            result.Result = Nothing
            result.ErrorFound = True
            result.Details = "HTTP Post: " & ex.Message
        End Try

        Return result
    End Function