易语言源码修改

神奇的哆啦A梦

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
HttpServer	整数型
mServer	IHttpServer

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
temp	编辑框
key	文本型
val	文本型

temp ＝ 取事件组件 ()
key ＝ “b” ＋ temp.标记
val ＝ temp.内容
写入ini (key, val)

子程序名	返回值类型	公开	备 注
start

变量名	类 型	静态	数组	备 注
port	整数型
str	文本型

HttpServer ＝ mServer.Create (假)
mServer.OnBody (&OnBody)
str ＝ 读出ini (“b2”, “90”)
port ＝ 到整数 (str)
如果 (取反 (mServer.Start (HttpServer, “0.0.0.0”, port)))
状态条1.置文本 (0, “端口占用,服务启动失败.”)
状态条1.置文本 (0, “服务启动成功”)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
temp	编辑框
i	整数型
val	文本型
key	文本型

计次循环首 (2, i)
temp ＝ 取标记组件 (i)
key ＝ “b” ＋ temp.标记
val ＝ 读出ini (key, “”)
temp.内容 ＝ val
如果真 (i ＝ 2)
事件转移 (temp, 编辑框1)
如果真 (val ＝ “”)
temp.内容 ＝ “90”


计次循环尾 ()
start ()

子程序名	返回值类型	公开	备 注
OnBody	整数型
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型
pData	整数型
iLength	整数型

变量名	类 型	静态	数组	备 注
str	文本型

str ＝ 编辑框1.内容
mServer.SendResponse (pSender, dwConnID, 200, , , 到字节集 (str))
返回 ( #HR_OK )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
k	整数型

k ＝ 信息框 (“重启生效，是否马上重启？”, 36, “重启提示”, )
如果真 (k ＝ 5)
程序_重启 (, )
调试输出 (k)

子程序名	返回值类型	公开	备 注
写入ini
参数名	类 型	参考	可空	数组	备 注
str	文本型
val	文本型

变量名	类 型	静态	数组	备 注
path	文本型

path ＝ 取运行目录 () ＋ “\config.ini”
写配置项 (path, “set”, str, 编码_BASE64编码 (到字节集 (val)))

子程序名	返回值类型	公开	备 注
读出ini	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
daufult	文本型

变量名	类 型	静态	数组	备 注
path	文本型
ret	文本型
str1	文本型

如果 (是否为空 (daufult))
str1 ＝ “”
str1 ＝ daufult
path ＝ 取运行目录 () ＋ “\config.ini”
ret ＝ 读配置项 (path, “set”, str, str1)
如果真 (ret ＝ str1)
返回 (ret)
ret ＝ 到文本 (编码_BASE64解码 (ret, ))
返回 (ret)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 HttpServer, 整数型<br /> .程序集变量 mServer, IHttpServer<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 temp, 编辑框<br /> .局部变量 key, 文本型<br /> .局部变量 val, 文本型<br /> <br /> temp ＝ 取事件组件 ()<br /> key ＝ “b” ＋ temp.标记<br /> val ＝ temp.内容<br /> 写入ini (key, val)<br /> <br /> .子程序 start<br /> .局部变量 port, 整数型<br /> .局部变量 str, 文本型<br /> <br /> HttpServer ＝ mServer.Create (假)<br /> mServer.OnBody (&OnBody)<br /> str ＝ 读出ini (“b2”, “90”)<br /> port ＝ 到整数 (str)<br /> .如果 (取反 (mServer.Start (HttpServer, “0.0.0.0”, port)))<br />     状态条1.置文本 (0, “端口占用,服务启动失败.”)<br /> .否则<br />     状态条1.置文本 (0, “服务启动成功”)<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 temp, 编辑框<br /> .局部变量 i, 整数型<br /> .局部变量 val, 文本型<br /> .局部变量 key, 文本型<br /> <br /> .计次循环首 (2, i)<br />     temp ＝ 取标记组件 (i)<br />     key ＝ “b” ＋ temp.标记<br />     val ＝ 读出ini (key, “”)<br />     temp.内容 ＝ val<br />     .如果真 (i ＝ 2)<br />         事件转移 (temp, 编辑框1)<br />         .如果真 (val ＝ “”)<br />             temp.内容 ＝ “90”<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> start ()<br /> <br /> .子程序 OnBody, 整数型<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 pData, 整数型<br /> .参数 iLength, 整数型<br /> .局部变量 str, 文本型<br /> <br /> str ＝ 编辑框1.内容<br /> mServer.SendResponse (pSender, dwConnID, 200, , , 到字节集 (str))<br /> 返回 (#HR_OK)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 k, 整数型<br /> <br /> k ＝ 信息框 (“重启生效，是否马上重启？”, 36, “重启提示”, )<br /> .如果真 (k ＝ 5)<br />     程序_重启 (, )<br /> .如果真结束<br /> 调试输出 (k)<br /> <br /> .子程序 写入ini<br /> .参数 str, 文本型<br /> .参数 val, 文本型<br /> .局部变量 path, 文本型<br /> <br /> path ＝ 取运行目录 () ＋ “\config.ini”<br /> 写配置项 (path, “set”, str, 编码_BASE64编码 (到字节集 (val)))<br /> <br /> <br /> .子程序 读出ini, 文本型<br /> .参数 str, 文本型<br /> .参数 daufult, 文本型, 可空<br /> .局部变量 path, 文本型<br /> .局部变量 ret, 文本型<br /> .局部变量 str1, 文本型<br /> <br /> .如果 (是否为空 (daufult))<br />     str1 ＝ “”<br /> .否则<br />     str1 ＝ daufult<br /> .如果结束<br /> path ＝ 取运行目录 () ＋ “\config.ini”<br /> ret ＝ 读配置项 (path, “set”, str, str1)<br /> .如果真 (ret ＝ str1)<br />     返回 (ret)<br /> .如果真结束<br /> ret ＝ 到文本 (编码_BASE64解码 (ret, ))<br /> 返回 (ret)

以上是源码 我想让他改成




补充内容 (2025-2-25 11:16):
我想让他多个编辑框  多个端口的  没改明白  感谢各位大佬帮忙给下 谢谢

补充内容 (2025-2-25 11:20):
祝各位蛇年 开心 开心 开心    蹲帖中

8386559

上传一下附件