Sub Connect(unused As Byte)
If ethClient.ConnectHost("example.com", 80) = False Then
Log("trying to connect again")
CallSubPlus("Connect", 1000, 0)
Return
End If
Log("Connected to server")
astream.Initialize(ethClient.Stream, "Astream_NewData", "Astream_Error")
Dim eol() As Byte = Array As Byte(13, 10)
astream.Write("GET / HTTP/1.1".GetBytes)
astream.Write(eol)
astream.Write("Host: www.example.com".GetBytes)
astream.Write(eol)
astream.Write("Connection: close".GetBytes)
astream.Write(eol)
astream.Write(eol)
End Sub