Private Function SimplePostRequest(ByVal url As String, ByVal data() As _
      Byte) As String
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), _
        HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = data.Length
        req.KeepAlive = False
        Dim out As Stream = req.GetRequestStream()
        out.Write(data, 0, data.Length)
        out.Close()
        Dim resp As WebResponse = req.GetResponse()
        Dim sr As New StreamReader(resp.GetResponseStream())
        Dim res As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()
        Return res
    End Function