易语言 html 服务器,易语言模拟网页Web服务器源代码

.版本 2

.支持库 internet

.子程序 __启动窗口_创建完毕

' 实在是无聊，做了一个WEB服务器，可以把对方的网站拿回来模拟

' 程序运行后在IE地址栏里面打 可以发现网站

' 如果你简直不明白什么含义就算了吧易语言web服务器，祝各位用的开心，新年快乐

' 在常量数据表里可以更改头文件易语言web服务器，也就是网页的开头，自己试试吧

模拟网站 ＝ “”' 要模拟的网站，我就模拟百度啦，网站最后不要加/

服务器1.端口 ＝ 80' 这里可以修改你的端口，默认为80，更改以后，网站地址变成 :端口/

.子程序 _服务器1_数据到达

.局部函数 数据, 文本型

.局部函数 寻找, 整数型

.局部变量 寻找2, 整数型

.局部变量 欲发送数据, 文本型

数据 ＝ 到文本 (服务器1.取回数据 ())

寻找 ＝ 寻找文本 (数据, “GET ”, , 假)

寻找2 ＝ 寻找文本 (数据, “ HTTP/1.1”, 寻找, 假)

.如果真 (寻找 ≠ -1 且 寻找2 ≠ -1)

数据 ＝ 取文本中间 (数据, 寻找 ＋ 4, 寻找2 － 寻找 － 4)

.如果真结束

欲发送数据 ＝ 到文本 (HTTP读文件 (模拟网站 ＋ 数据))

服务器1.发送数据 (服务器1.取回客户 (), 处理代码 (欲发送数据, 模拟网站), )

服务器1.断开用户 (服务器1.取回客户 ())

.子程序 处理代码, 字节集

.参数 欲处理代码, 文本型

.参数 网站, 文本型

.局部函数 临时, 整数型

.局部变量 临时2, 字节集

临时 ＝ 寻找文本 (欲处理代码, “src=” ＋ #引号, , 真)

.判断循环首 (临时 ≠ -1)

.如果真 (取文本后面 (欲处理代码, 临时 ＋ 5, 7) ≠ “”)

欲处理代码 ＝ 文本替换 (欲处理代码, 临时 ＋ 5, 0, 网站 ＋ “/”)

.如果真结束

临时 ＝ 寻找文本 (欲处理代码, “src=” ＋ #引号, 临时 ＋ 1, 真)

.判断循环尾 ()

临时 ＝ 寻找文本 (欲处理代码, “bg=” ＋ #引号, , 真)

.判断循环首 (临时 ≠ -1)

.如果真 (取文本后面 (欲处理代码, 临时 ＋ 5, 7) ≠ “”)

欲处理代码 ＝ 文本替换 (欲处理代码, 临时 ＋ 5, 0, 网站 ＋ “/”)

.如果真结束

临时 ＝ 寻找文本 (欲处理代码, “src=” ＋ #引号, 临时 ＋ 1, 真)

.判断循环尾 ()

临时 ＝ 寻找文本 (欲处理代码, “”, , 真)

.如果真 (临时 ≠ -1)

欲处理代码 ＝ 文本替换 (欲处理代码, 临时 ＋ 6, 0, #换行符 ＋ #头文件)

.如果真结束

临时2 ＝ 到字节集 (欲处理代码)

返回 (临时2)

本文来自电脑杂谈，转载请注明本文网址：

http://www.pc-fly/a/jisuanjixue/article-142842-1.html