Ok, stumped, I'm completely stumped. This code doesn't crash but the response does not work or match the same response you get when you go directly to the url with your browser. Does anyone know why?
https://www.moneybookers.com/app/email_check.pl?email=demo@moneybookers.com&cust_id=4444597&password=098f6bcd4621d373cade4e832627b4f6
'Process button event for Email Check
Dim ErrMsg As String = ""
Dim FinalResponse As String
Dim postData As String
postData =
"?email=demo@moneybookers.com&cust_id=4444597&password=098f6bcd4621d373cade4e832627b4f6"
'Tests ok https://www.moneybookers.com/app/email_check.pl?email=demo@moneybookers.com&cust_id=4444597&password=098f6bcd4621d373cade4e832627b4f6
'Also Tests ok
'https://www.moneybookers.com/app/email_check.pl?email=support@comcity.com&cust_id=12769592&password=bdbaff4c39ec8f3127bc6ce8f36cf1ee
Dim CheckURL As String = "https://www.moneybookers.com/app/email_check.pl"
'Check if Domain is registered and active
'Basic check to see if domain is active and registered
Dim XmlHttp As HttpWebRequestTry
XmlHttp = WebRequest.Create(
ErrMsg =
String.Format(CheckURL, postData))Catch ex As Exception"Failed " & Err.Number & ", " & Err.Description & "<p>HTTPWebRequest Failed on Create, Email Check.<br> "
ErrMsg = ErrMsg &
"Print this page out and contact SalesCart for more information @ support.salescart.com."
ErrorOut(ErrMsg)
Exit Sub
End Try
'Set the Method, contenttype, and contentlength of the GetRequestStream
XmlHttp.Method =
"GET"
'Handle Response
Dim MyResponse As HttpWebResponse = CType(XmlHttp.GetResponse(), HttpWebResponse)'Now, we read the response (the string), and output it.
Response.Write(_Answer.ReadToEnd())
Response.End()
Dim Answer As Stream = MyResponse.GetResponseStreamDim _Answer As StreamReader = New StreamReader(Answer)