相信有很多编程爱好者玩易语言,可是易语言怎样读取系统信息呢?

工具/原料

  • 精易模块
  • 易语言

1.建立结构

  1. 1

    新建Windows窗口程序

  2. 2

    载入精易模块

  3. 3

    建立4个窗口

  4. 4

    加入一个全局变量

    END

2.主窗口(_启动窗口)排版

  1. 1

    一个好的软件一定会有让人喜欢的版式,大家可以根据自己的喜爱来排以下组件:软件名标签,开始扫描按钮,上次扫描时间标签,生成txt文件按钮,截图保存按钮,复制信息按钮,显示系统信息编辑框。(也可以参考下图)

  2. 2

    显示扫描结果编辑框(编辑框1)的参数设置:

    是否允许多行=真

    滚动条=纵向滚动条

    对齐方式=居中 或 左对齐

  3. 3

    软件名标签(标签1)参数设置:

    标题=系统配置扫描器

    字体大小=二号(22)

    END

3.主窗口(_启动窗口)编程

  1. 1

    注意:

     

    主窗口=_启动窗口

     

    按钮1=开始扫描按钮

    按钮2=复制信息按钮

    按钮3=截图保存按钮

    按钮4=生成txt文件按钮

     

    标签1=软件名标签

    标签2=上次扫描时间标签

     

    编辑框1=显示扫描结果编辑框

  2. 2

    在_启动窗口_创建完毕下写代码(复制粘贴就行):

    .版本 2

    .程序集 窗口程序集_启动窗口

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

    .如果 (文件是否存在 (“c:\系统配置扫描器\文件.txt”) = 假)

        标签2.标题 = “(没有扫描过哦)”

        按钮2.禁止 = 真

        按钮3.禁止 = 真

        按钮4.禁止 = 真

    .否则

        标签2.标题 = “(” + “上次扫描:” + 到文本 (取文件时间 (“c:\系统配置扫描器\文件.txt”)) + “)”

        编辑框1.内容 = 到文本 (读入文件 (“c:\系统配置扫描器\文件.txt”))

        按钮2.禁止 = 假

        按钮3.禁止 = 假

        按钮4.禁止 = 假

  3. 3

    在_按钮1_被单击下写代码(复制粘贴就行):

    .版本 2

     

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

     

    .如果 (文件是否存在 (“c:\系统配置扫描器\文件.txt”) = 假)

        按钮1.禁止 = 真

        按钮1.标题 = “正在扫描...”

        延时 (1000)

        创建目录 (“c:\系统配置扫描器”)

        写到文件 (“c:\系统配置扫描器\文件.txt”, 到字节集 (系统_取系统信息1 ()))

        a = 系统_取系统信息1 ()

        延时 (1000)

        标签2.标题 = “(” + “上次扫描:” + 到文本 (取文件时间 (“c:\文件.txt”)) + “)”

        编辑框1.内容 = a

    .否则

        按钮1.禁止 = 真

        按钮1.标题 = “正在扫描...”

        写到文件 (“c:\系统配置扫描器\文件.txt”, 到字节集 (系统_取系统信息1 ()))

        按钮1.禁止 = 真

        按钮1.标题 = “开始扫描”

        标签2.标题 = “(没有扫描过哦)”

        标签2.标题 = “(” + “上次扫描:” + 到文本 (取文件时间 (“c:\系统配置扫描器\文件.txt”)) + “)”

    .如果结束

    按钮2.禁止 = 假

    按钮1.标题 = “开始扫描”

    按钮1.禁止 = 假

    按钮3.禁止 = 假

    按钮4.禁止 = 假

    信息框 (“读取成功”, 0, , )

  4. 4

    在_按钮2_被单击下写代码(复制粘贴就行):

    .版本 2

    剪辑板_置文本 (编辑框1.内容)

    信息框 (“复制成功”, 0, , )

  5. 5

    在_按钮3_被单击下写代码(复制粘贴就行):

    载入 (窗口1, , 假)

  6. 6

    在_按钮4_被单击下写代码(复制粘贴就行):

    载入 (窗口2, , 假)

    END

4.窗口1排版

  1. 1

    放入2个标签,2个编辑框,2个按钮

    END

5.窗口1编程

  1. 1

    注意:

    标签1=欲保存地址标签

    标签2=欲保存文件名标签

     

    编辑框1=欲保存地址编辑框

    编辑框2=欲保存文件名编辑框

     

    按钮1=浏览文件夹(选择保存地址)按钮

    按钮2=保存按钮

  2. 2

    在_按钮1_被单击下写代码(复制粘贴就行):

    .版本 2

    .支持库 shell

     

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

     

    编辑框1.内容 = 浏览文件夹 (“请选择欲保存的目录”, )

  3. 3

    在_按钮2_被单击下写代码(复制粘贴就行):

    .版本 2

     

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

    .局部变量 ac, 文本型

    .局部变量 b, 文本型

     

    .如果 (编辑框1.内容 = “”)

        信息框 (“请选择文件夹”, 0, , )

    .否则

        ac = “真”

    .如果结束

    .如果 (编辑框2.内容 = “”)

        信息框 (“请输入文件名”, 0, , )

    .否则

        b = “真”

    .如果结束

    .如果 (ac = “真” 且 b = “真”)

        载入 (窗口3, , 假)

    END

6.窗口2排版

  1. 1

    在窗口2放入2个标签,2个编辑框,2个按钮

    END

7.窗口2编程

  1. 1

    注意:

    标签1=欲保存地址标签

    标签2=欲保存文件名标签

     

    编辑框1=欲保存地址编辑框

    编辑框2=欲保存文件名编辑框

     

    按钮1=浏览文件夹(选择保存地址)按钮

    按钮2=保存按钮

  2. 2

    在_按钮1_被单击下写代码(复制粘贴就行):

    .版本 2

    .支持库 shell

     

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

     

    编辑框1.内容 = 浏览文件夹 (“请选择欲保存的目录”, )

  3. 3

    在_按钮2_被单击下写代码(复制粘贴就行):

    .版本 2

     

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

    .局部变量 ac, 文本型

    .局部变量 b, 文本型

     

    .如果 (编辑框1.内容 = “”)

        信息框 (“请选择文件夹”, 0, , )

    .否则

        ac= “真”

    .如果结束

    .如果 (编辑框2.内容 = “”)

        信息框 (“请输入文件名”, 0, , )

    .否则

        b = “真”

    .如果结束

    .如果 (ac = “真” 且 b = “真”)

     

        写到文件 (编辑框1.内容 + “\” + 编辑框2.内容 + “.txt”, 到字节集 (_启动窗口.编辑框1.内容))

    .否则

     

    .如果结束

    .如果 (写到文件 (编辑框1.内容 + “\” + 编辑框2.内容 + “.txt”, 到字节集 (_启动窗口.编辑框1.内容)) = 真)

        信息框 (“保存成功,已保存在” + 编辑框1.内容, 0, , )

    .否则

        信息框 (“保存失败,请检查信息是否填写正确”, 0, , )

    END

8.窗口3排版

  1. 1

    窗口3比较特殊,窗口3是用来截图拍照的,为了显软件专业一点。

  2. 2

    在窗口3加入

    一个图片框(用来放图标的,不想放图标也可以不用加入)

    二个透明标签

    一个编辑框(拉长一点)

    一个按钮

    END

9.窗口3编程

  1. 1

    在_窗口3_创建完毕下写代码(复制粘贴就行):

    .版本 2

     

    .子程序 _窗口3_创建完毕

     

    编辑框1.内容 = _启动窗口.编辑框1.内容

  2. 2

    在_按钮1_被单击下面写代码(复制粘贴就行):

    .版本 2

     

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

     

    写到文件 (窗口1.编辑框1.内容 + “\” + 窗口1.编辑框2.内容 + “.jpg”, 快照 (分组框1.取窗口句柄 (), 分组框1.宽度, 分组框1.高度))

    .如果 (写到文件 (窗口1.编辑框1.内容 + “\” + 窗口1.编辑框2.内容 + “.jpg”, 快照 (分组框1.取窗口句柄 (), 分组框1.宽度, 分组框1.高度)) = 真)

        信息框 (“保存成功,已保存在” + 窗口1.编辑框1.内容, 0, , )

        窗口3.销毁 ()

    .否则

        信息框 (“保存失败,请检查信息是否填写正确”, 0, , )

        窗口3.销毁 ()

    END

10.结束

  1. 1

    这样一个系统配置扫描器就编好了

    END

注意事项

  • 本代码可能某些地方有bug,望各路大神多多指教
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。