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

20 lines
383 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://www.example.com/unknownUrl")
Print h&
Print _StatusCode(h&)
System
errorhand:
PRINT ERR; ERL
RESUME NEXT