mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-08-04 15:20:24 +00:00
19 lines
361 B
QBasic
19 lines
361 B
QBasic
|
$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&
|
||
|
|
||
|
System
|
||
|
|
||
|
errorhand:
|
||
|
PRINT ERR; ERL
|
||
|
RESUME NEXT
|