用户名  找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 863|回复: 2

[教程源码] 界面配置保存到服务器

[复制链接]
  • 打卡等级:初涉江湖

4

主题

4

回帖

12

积分

按键手机班学员

鲜花
2
猫粮
42
发表于 2024-5-22 15:55:21 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×

界面例子


[按键精灵] 纯文本查看 复制代码
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
界面1:
{
    标签页1:
    {
        水平布局:
        {
            文字框:{名称:"文字框1",显示内容:"配置文件名"},
            输入框:{名称:"配置文件名",提示内容:"配置文件名",初始文本:"设置一"},
        },
        水平布局:
        {
            按钮:{名称:"按钮1",显示内容:"上传配置",点击响应:"保存配置"},
            按钮:{名称:"按钮2",显示内容:"下载配置",点击响应:"读取配置"},
             
         
        },
         
        文字框:{名称:"文字框测试输出",显示内容:""},    
         
        水平布局:
        {
            多选框:{名称:"多选框1",提示内容:"功能选择一",点击响应:"函数名1",选中:false},
            多选框:{名称:"多选框2",提示内容:"功能选择二",点击响应:"函数名1",选中:false},
        },
        水平布局:
        {
            下拉框:{名称:"下拉框1",选择响应:"函数名1",选项:["选项1","选项2","选项3"],初始选项:0},
            下拉框:{名称:"下拉框2",选择响应:"函数名1",选项:["选项1","选项2","选项3"],初始选项:0},
        },
        输入框:{名称:"输入框1",提示内容:"------------",初始文本:"123"},
        输入框:{名称:"输入框2",提示内容:"------------",初始文本:"456"},
    },
}



代码
[按键精灵] 纯文本查看 复制代码
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
Function 保存配置()
    Dim 包名="com.chunqiuchuanqimayi"//打包的报名
    Dim 路径= "/data/data/"&包名&"/files/script.cfg"
    Dim 数据=File.Read(路径)
    dim 配置文件名=uip.GetAttribute("配置文件名")
    zm.NetDataInit "http://IP:80/sql.php", 配置文件名["初始文本"], "QQ密匙"//IP改成你自己无服务IP
    zm.NetDataSet "配置数据", 数据
    UIP.SetAttribute "文字框测试输出", {"显示内容":"上传配置成功"}
End Function
Function 读取配置()
    dim 配置文件名=uip.GetAttribute("配置文件名")
    zm.NetDataInit "http://IP:80/sql.php", 配置文件名["初始文本"], "QQ密匙"
    dim 数据=zm.NetDataGet("配置数据")
    dim 表 = Encode.JsonToTable(数据)
    For Each k , v In
        dim 当前数据=uip.GetAttribute(k)
        If 当前数据["提示内容"] <> null  Then
            UIP.SetAttribute k, {"选中":v}
        ElseIf 当前数据["初始选项"]<> null Then
            UIP.SetAttribute k, {"初始选项":v} 
        ElseIf 当前数据["初始文本"] <> null Then
            UIP.SetAttribute k, {"初始文本":v}
        End If
    Next
    UIP.SetAttribute "文字框测试输出", {"显示内容":"读取配置成功"}
End Function





拿走不谢

评分

参与人数 1鲜花 +2 收起 理由
紫猫 + 2 非常感谢,紫猫学园因你而精彩.

查看全部评分

楼主热帖
  • 打卡等级:武林至尊

1090

主题

2149

回帖

4349

积分

院长

鲜花
12
猫粮
7955
QQ
发表于 2024-5-23 16:03:58 | 显示全部楼层
欢迎分享
  • 打卡等级:游历四方

2

主题

11

回帖

15

积分

按键电脑&手机班学员

鲜花
0
猫粮
299
发表于 2024-5-23 18:30:16 | 显示全部楼层
(^_^)/\(^_^)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2025-3-28 00:04

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表