18 lines
421 B
Plaintext
18 lines
421 B
Plaintext
OPTION TLS TRUE
|
|
|
|
website$ = "website.com"
|
|
username$ = "nobody"
|
|
password$ = "ignore"
|
|
|
|
OPEN website$ & ":443" FOR NETWORK AS conn
|
|
SEND "GET / HTTP/1.1\r\nHost: " & website$ & "\r\nAuthorization: Basic " & B64ENC$(username$ & ":" & password$) & "\r\n\r\n" TO conn
|
|
|
|
WHILE WAIT(conn, 2000)
|
|
RECEIVE data$ FROM conn
|
|
total$ = total$ & data$
|
|
IF INSTR(data$, "</html>") THEN BREAK
|
|
WEND
|
|
CLOSE NETWORK conn
|
|
|
|
PRINT total$
|