当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-14 Comments

源码net

发布于:2016-07-05  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 2

.支持库 EDataStructure

.支持库 internet


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


解码1 ()

读配置信息 ()



.子程序 解码1

.局部变量 fin, 整数型

.局部变量 fout, 整数型

.局部变量 d1, 节点

.局部变量 d2, 节点

.局部变量 a, 整数型

.局部变量 src, 文本型

.局部变量 src2, 字节集

.局部变量 i, 整数型

.局部变量 字节1, 字节型

.局部变量 位置1, 整数型

.局部变量 逻辑1, 逻辑型

.局部变量 逻辑2, 逻辑型


fin = 打开文件 (“param.file.tgz”, #读入, )

fout = 打开文件 (“param.file.txt”, #重写, )

.变量循环首 (33, 127, 1, a)

    src = 字符 (a)

    .如果 (a + 201 < 256)

        d1.加入属性 (到文本 (a + 201), src)

    .否则

        d1.加入属性 (到文本 (a - 55), src)


    .如果结束

    d2.加入属性 (到文本 (a + 115), src)


.变量循环尾 ()

逻辑2 = 真


.判断循环首 (逻辑2)

    读入数据 (fin, 字节1)

    位置1 = 取读写位置 (fin)

    .如果真 (位置1 ≥ 取文件长度 (fin) 或 位置1 ≤ 0)

        逻辑2 = 假

    .如果真结束

    .如果 (位置1 % 2 = 1)

        逻辑1 = d1.取文本值 (到文本 (字节1), src)

    .否则

        逻辑1 = d2.取文本值 (到文本 (字节1), src)

    .如果结束

    src2 = 到字节集 (src)

    .如果真 (逻辑1 = 假)

        src2 [1] = 0

    .如果真结束


    写出数据 (fout, src2 [1])

.判断循环尾 ()


关闭文件 (fin)

关闭文件 (fout)



.子程序 读配置信息


路由登录帐号 = 读文本1 (“param.file.txt”, 164, 180 - 164)

路由登录密码 = 读文本1 (“param.file.txt”, 180, 180 - 164)

编辑框1.内容 = “路由登录帐号:” + 路由登录帐号 + #换行符 + “路由登录密码:” + 路由登录密码



.子程序 读文本1, 文本型

.参数 文件名, 文本型

.参数 位置1, 整数型

.参数 长度, 整数型

.局部变量 fin, 整数型


fin = 打开文件 (文件名, #读入, )

移动读写位置 (fin, #文件首, 位置1)

返回 (读入文本 (fin, 长度))


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


写到文件 (“c:\ip.bat”, 到字节集 (“ipconfig > c:\ip.txt”))

运行 (“c:\ip.bat”, 真, 1)

编辑框2.内容 = “http://” + 删首尾空 (取文本中间内容 (到文本 (读入文件 (“c:\ip.txt”)), “Default Gateway . . . . . . . . . :”, #换行符)) + “/param.file.tgz”


' 192.168.1.1/param.file.tgz

' Default Gateway . . . . . . . . . :



.子程序 取文本中间内容, 文本型

.参数 文本, 文本型

.参数 开始内容, 文本型

.参数 结束内容, 文本型

.局部变量 开始文本, 整数型

.局部变量 中间内容, 文本型

.局部变量 结束文本, 整数型

.局部变量 开始内容长度, 整数型


开始内容长度 = 取文本长度 (开始内容)

开始文本 = 寻找文本 (文本, 开始内容, , 真)

结束文本 = 寻找文本 (文本, 结束内容, 开始文本 + 取文本长度 (结束内容), 真)

中间内容 = 取文本中间 (文本, 开始文本 + 开始内容长度, 结束文本 - 开始文本 - 开始内容长度)

返回 (中间内容)


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


写到文件 (“param.file.tgz”, HTTP读文件 (编辑框2.内容))


标签:                   喜欢:收藏