Estou realizando uma integração entre um servidor e meu código VB, e como resposta utilizo o próprio cabeçalho:
http_response_code(200)
Porém, também lanço exceções por meio do mesmo método, retornando por exemplo:
500 Internal Error
Porém, quando a resposta chega no VB, o compilador lança a exceção, exceto quando a resposta é 200...
Public Function Registrar(Nome As String, Usuario As String, Senha As String, Fone As String) As Boolean
Dim _dataGET As String = "nome=" & Nome & "&usuario=" & Usuario & "&senha=" & Senha & "&fone=" & Fone
Dim Request As WebRequest = WebRequest.Create("http://localhost/private/beta/php/cliente_registro.php?" + _dataGET)
Request.Credentials = CredentialCache.DefaultCredentials
Request.Method = "GET"
Request.ContentType = "text/plain"
Dim Response As WebResponse = Request.GetResponse()
Dim Status = CType(Response, HttpWebResponse).StatusCode
Return True
End Function
Gostaria de manter o código e verificar o status da minha requisição através do HttpWebResponse, porém mesmo com o Try, ou On error - a exceção continuar a ser lançada
