自己制作的软件选择安装器

lxq845

优化菜单，修正已知错误，增加适合本公司使用的新功能，加入BI大xx系统子菜单，加入超文本浏览器功能，实现不用打开浏览器浏览公司特别网页，实现网页自动适应窗口功能，更新时间2020.02.14

修复一些已错误，优化调整菜单及选项，加入新菜单，更新时间2020.02.13

加入公司两种v*n网页访问和客户Duan安装功能，自动创建【远程桌面连接】快捷方式，增加本机系统信息检查功能，更新时间2020.02.11。

更新的代码
BI大xx部分代码：
.版本 2

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

载入 (域用户窗口, , 真)


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

载入 (电脑检查窗口, , 真)

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

载入 (AF人员窗口, , 真)

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

载入 (v*n用户窗口, , 真)

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

载入 (WIFI用户窗口, , 真)


各子窗口代码(包含自适应代码)：
.版本 2
.支持库 HtmlView

.程序集 窗口程序集_电脑检查窗口

.子程序 _电脑检查窗口_创建完毕

电脑检查窗口.宽度 ＝ 取屏幕宽度 () － 50
电脑检查窗口.高度 ＝ 取屏幕高度 () － 80
电脑检查浏览框.宽度 ＝ 电脑检查窗口.宽度 － 30
电脑检查浏览框.高度 ＝ 电脑检查窗口.高度 － 40



.子程序 _电脑检查窗口_尺寸被改变

电脑检查浏览框.宽度 ＝ 电脑检查窗口.宽度 － 30
电脑检查浏览框.高度 ＝ 电脑检查窗口.高度 － 40
纵向滚动条1.左边 ＝ 电脑检查窗口.宽度 － 30
纵向滚动条1.高度 ＝ 电脑检查窗口.高度 － 40
横向滚动条1.顶边 ＝ 电脑检查窗口.高度 － 55
横向滚动条1.宽度 ＝ 电脑检查窗口.宽度 － 24


.子程序 _纵向滚动条1_位置被改变

纵向滚动条1.左边 ＝ 电脑检查窗口.宽度 － 30
纵向滚动条1.高度 ＝ 电脑检查窗口.高度 － 40
电脑检查浏览框.顶边 ＝ －纵向滚动条1.位置

.子程序 _横向滚动条1_位置被改变

横向滚动条1.顶边 ＝ 电脑检查窗口.高度 － 55
横向滚动条1.宽度 ＝ 电脑检查窗口.宽度 － 40
电脑检查浏览框.左边 ＝ －横向滚动条1.位置

IP窗口代码：
.版本 2
.支持库 sock

.程序集 窗口程序集_ip1

.子程序 _ip1_创建完毕
.局部变量 ip, 文本型, , "0"
.局部变量 n, 整数型


ip ＝ 取本机IP ()
.计次循环首 (取数组成员数 (ip), n)
    编辑框2.加入文本 (ip [n] ＋ #换行符)
.计次循环尾 ()
编辑框1.内容 ＝ 网页_取wai网IP ()

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

销毁 ()

IP主窗口加载代码：
.版本 2

.子程序 _本机ip地址_被选择

载入 (ip1, , 真)

tyler998

正好需要试试看看效果

70805

正好需要试试看看效果

lxq845

重新设计界面，PS重新设计图标，设计效果，鼠标停留效果，点击效果，安装效果，安装完成提示，3秒恢复原图标。
效果见GIF图片，学习不易，小弟从零开始到现在，如果你觉得我做的不好，麻烦手下留情。
全套图标源代码已加载到压缩包，有需要的下载，

lxq845

加入图片轮播功能，点击不同轮播图片时访问不同的指定网站功能，更新时间2020.01.18。
更新代码：
时钟周期设置为3000，也就是3秒一张。图片1-4加入资源表中。
.版本 2

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

时钟1.可视 ＝ 假
.如果真 (图片框1.标记 ＝ “”)
    图片框1.图片 ＝ #轮播1
    图片框1.标记 ＝ “1”
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “1”)
    图片框1.图片 ＝ #轮播1
    图片框1.标记 ＝ “2”
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “2”)
    图片框1.图片 ＝ #轮播2
    图片框1.标记 ＝ “3”
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “3”)
    图片框1.图片 ＝ #轮播3
    图片框1.标记 ＝ “4”
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “4”)
    图片框1.图片 ＝ #轮播4
    图片框1.标记 ＝ “”
    返回 ()


更新代码2：
.版本 2
.支持库 eAPI

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (图片框1.标记 ＝ “1”)
    打开指定网址 (“https://www.qq.com”)
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “2”)
    打开指定网址 (“https://www.baidu.com”)
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “3”)
    打开指定网址 (“https://www.sina.com”)
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “4”)
    打开指定网址 (“https://www.jd.com”)
    返回 ()
.如果真结束
.如果真 (图片框1.标记 ＝ “”)
    打开指定网址 (“https://www.taobao.com”)
    返回 ()
.如果真结束

lxq845

软件工作原理很简单，程序也没有很复杂，运行E语言里（运行控制台命令），执行指定位置的程序及加上运行参数，即可实现点击后自动安装。有些软件不支持静默安装参数，需要特殊处理后才能实现一键安装。
更改安装成功提示，取消原来窗口3秒提示，更改为直接菜单显示安装状态，安装完成后自动恢复原菜单名称。修复已知一些错误安装参数。更新代码：
.版本 2
.支持库 eAPI

.子程序 _按钮43_被单击
.局部变量 进程列表, 进程信息, , "0"
.局部变量 计次, 整数型
.局部变量 存在进程, 逻辑型
.局部变量 要判断的程序名, 文本型

按钮43.标题 ＝ “正在运行。。。”
运行控制台程序 (“\\192.168.0.254\软件共享目录\Tools\DriverGenius.exe”, , , )
进程列表 ＝ 取系统进程列表 ()
要判断的程序名 ＝ “DriverGenius.exe”
.计次循环首 (取数组成员数 (进程列表), 计次)
    .如果 (进程列表 [计次].进程名称 ＝ 要判断的程序名)
        存在进程 ＝ 真
        跳出循环 ()
    .否则
        存在进程 ＝ 假
    .如果结束

.计次循环尾 ()
.判断开始 (存在进程 ＝ 真)
    信息框 (“程序正在运行中: ” ＋ 要判断的程序名, 0, , )
.默认

.判断结束
按钮43.标题 ＝ “24.运行驱动精灵”

逍遥啊

支持开源，很方便

lxq845

补充下程序其它代码和窗口截图。

wuqingg

试试看。。。

pengtusheng

用了支持库  哪就算了