1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-20 09:04:43 +00:00
QB64-PE/tests/compile_tests/http/http_error.bas

20 lines
405 B
QBasic
Raw Normal View History

$Unstable:Http
$Console:Only
ON ERROR GOTO errorhand
' This domain isn't valid at all, an error is triggered
h& = _OpenClient("https://thisisabaddomain")
Print h&
' This gives back a 404, but the connection is still successful in that
' situation.
h& = _OpenClient("https://qb64phoenix.com/fake")
Print h&
Print _StatusCode(h&)
System
errorhand:
PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
RESUME NEXT