Anyone using PayPal IPN with .NET?

[Greg]

I have code (below) that was working a year ago that I'm trying to use again
and it's now not working. The response is always invalid. Anyone know why?

Code:

Function GetPayPal() As Boolean
Dim myRequest As HttpWebRequest =
CType(HttpWebRe quest.Create("h ttps://www.paypal.com/cgi-bin/webscr"),
HttpWebRequest)
Dim strToSend As String
myRequest.Allow AutoRedirect = False
myRequest.Metho d = "POST"
myRequest.Conte ntType = "applicatio n/x-www-form-urlencoded"

strToSend = Request.Form.To String()
'Create the string to post back to PayPal system to validate
strToSend &= "&cmd=_noti fy-validate"

'Create post stream
Dim RequestStream As Stream = myRequest.GetRe questStream()
Dim SomeBytes() As Byte = Encoding.UTF8.G etBytes(strToSe nd)

RequestStream.W rite(SomeBytes, 0, SomeBytes.Lengt h)
RequestStream.C lose()

'Send request and get response
Dim myResponse As HttpWebResponse = CType(myRequest .GetResponse(),
HttpWebResponse )

If myResponse.Stat usCode = HttpStatusCode. OK Then
'Obtain a 'Stream' object associated with the response object.
Dim ReceiveStream As Stream = myResponse.GetR esponseStream()
Dim encode As Encoding =
System.Text.Enc oding.GetEncodi ng("utf-8")

'Pipe the stream to a higher level stream reader with the
required encoding format.
Dim readStream As StreamReader = New StreamReader(Re ceiveStream,
encode)

'Read result
Dim Result As String = readStream.Read Line()

'For testing purposes
Response.Write( Result)
Response.End()
End If
End Function

[Ken Tucker [MVP]]

Hi,

There is a free pay pal control from componentone in the vb.net and
the asp.net resource kits.

http://msdn.microsoft.com/asp.net/asprk/default.aspx
http://msdn.microsoft.com/vbasic/vbrkit/default.aspx
Ken
---------------------
"Greg" <no****@nospam. com> wrote in message
news:uX******** ******@TK2MSFTN GP09.phx.gbl...

I have code (below) that was working a year ago that I'm trying to use
again
and it's now not working. The response is always invalid. Anyone know
why?

Code:

Function GetPayPal() As Boolean
Dim myRequest As HttpWebRequest =
CType(HttpWebRe quest.Create("h ttps://www.paypal.com/cgi-bin/webscr"),
HttpWebRequest)
Dim strToSend As String
myRequest.Allow AutoRedirect = False
myRequest.Metho d = "POST"
myRequest.Conte ntType = "applicatio n/x-www-form-urlencoded"

strToSend = Request.Form.To String()
'Create the string to post back to PayPal system to validate
strToSend &= "&cmd=_noti fy-validate"

'Create post stream
Dim RequestStream As Stream = myRequest.GetRe questStream()
Dim SomeBytes() As Byte = Encoding.UTF8.G etBytes(strToSe nd)

RequestStream.W rite(SomeBytes, 0, SomeBytes.Lengt h)
RequestStream.C lose()

'Send request and get response
Dim myResponse As HttpWebResponse = CType(myRequest .GetResponse(),
HttpWebResponse )

If myResponse.Stat usCode = HttpStatusCode. OK Then
'Obtain a 'Stream' object associated with the response object.
Dim ReceiveStream As Stream = myResponse.GetR esponseStream()
Dim encode As Encoding =
System.Text.Enc oding.GetEncodi ng("utf-8")

'Pipe the stream to a higher level stream reader with the
required encoding format.
Dim readStream As StreamReader = New
StreamReader(Re ceiveStream,
encode)

'Read result
Dim Result As String = readStream.Read Line()

'For testing purposes
Response.Write( Result)
Response.End()
End If
End Function