mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 00:10:17 +00:00
19 lines
289 B
QBasic
19 lines
289 B
QBasic
|
$Unstable:Http
|
||
|
|
$Console:Only
|
||
|
|
ON ERROR GOTO errorhand
|
||
|
|
|
||
|
|
h& = _OpenHost("TCP/IP:50000")
|
||
|
|
|
||
|
|
' Error, invalid handle type
|
||
|
|
Print _StatusCode(h&)
|
||
|
|
|
||
|
|
' Errors, invalid handle numbers
|
||
|
|
Print _StatusCode(0)
|
||
|
|
Print _StatusCode(20)
|
||
|
|
|
||
|
|
System
|
||
|
|
|
||
|
|
errorhand:
|
||
|
|
PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
|
||
|
|
RESUME NEXT
|