易语言TCP读HTTP文件源码

源码调用了易语言客户组件，演示了TCP方式访问网络的过程。

@客户端

.版本 2

.程序集 窗口程序集1
.程序集变量 计时

.子程序 _按钮1_被单击

.如果真 (客户1.连接 (“www.pctowap.com”, 80))
    .如果真 (客户1.发送数据 (#常量1))
        计时 ＝ 取启动时间 ()
        返回 ()
    .如果真结束

.如果真结束
信息框 (“网络连接失败”, 0, “”)

.子程序 _客户1_数据到达
.局部变量 数据, 文本型

数据 ＝ 到文本 (客户1.取回数据 ())
编辑框1.加入文本 (数据)
.如果真 (寻找文本 (数据, “0” ＋ #换行符 ＋ #换行符, , 假) ≠ -1)
    客户1.断开连接 ()
    标题 ＝ “ok  耗时-” ＋ 到文本 (取启动时间 () － 计时) ＋ “毫秒”
.如果真结束