卓越飞翔博客卓越飞翔博客

卓越飞翔 - 您值得收藏的技术分享站
技术文章1829本站已运行4109

易语言源码 桌面硬件信息显示

.版本 2

.程序集 窗口程序集_窗口1
.程序集变量 a1, 文本型, , "3"
.程序集变量 a2, 整数型
.程序集变量 a3, 整数型
.程序集变量 b1, 文本型, , "3"
.程序集变量 b2, 整数型
.程序集变量 b3, 整数型

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

a2 = 1
a3 = 1
b2 = 1
b3 = 1
顶边 = 16 + _启动窗口.高度
左边 = 取屏幕宽度 () - 宽度 - 8
标签3.标题 = 系统_取CPU型号 ()
标签1.标题 = 系统_取系统版本 (, , 真, 真, 真, 真)
系统_取显卡信息列表 (精易_显卡信息)
标签10.标题 = 精易_显卡信息 [1].显卡名称
系统_取网卡信息_彗星版 (精易_网卡信息_彗星)
标签12.标题 = 系统_取计算机名 ()
标签13.标题 = 系统_取用户名 ()
窗口_嵌入桌面 (窗口1.取窗口句柄 ())


.子程序 _时钟1_周期事件

标签6.标题 = 到文本 (取现行时间 ())
.如果真 (取数组成员数 (精易_网卡信息_彗星) = 1)
    a1 [1] = 精易_网卡信息_彗星 [1].网卡描述
    a1 [2] = 精易_网卡信息_彗星 [1].MAC地址
    a1 [3] = 精易_网卡信息_彗星 [1].IP地址
    标签11.标题 = a1 [a2]
    a2 = a2 + 1
    .如果真 (a2 = 4)
        a2 = 1
    .如果真结束
    返回 ()
.如果真结束


a1 [1] = 精易_网卡信息_彗星 [a3].网卡描述
a1 [2] = 精易_网卡信息_彗星 [a3].MAC地址
a1 [3] = 精易_网卡信息_彗星 [a3].IP地址

标签11.标题 = a1 [a2]
a2 = a2 + 1
.如果真 (a2 = 4)
    a2 = 1
    a3 = a3 + 1
    .如果真 (a3 = 取数组成员数 (精易_网卡信息_彗星))
        a3 = 1

    .如果真结束

.如果真结束

1.zip
1.zip
卓越飞翔博客
上一篇: Python 使用OpenCV识别简单的验证码
下一篇: PHP作的一个有声小说抓取批量下载工具

相关推荐

留言与评论(共有 0 条评论)
   
验证码:
隐藏边栏