IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] 分享自己做的简单的程序启动小工具

[复制链接]
fantuan830 发表于 2018-11-26 10:53:03 | 显示全部楼层 |阅读模式

本帖最后由 fantuan830 于 2018-11-26 11:25 编辑

一、程序启动界面:

╤.jpg


二、程序包含文件:
1、配置文件items.ini:
        基本格式:利用au3的IniRead()
                [Item_1]
                IconName = chrome.ico
                Path = C:\Program Files (x86)\Google\Chrome\Application                                        \chrome.exe
                [Item_2]
                IconName = 有道.ico
                Path = D:\Program Files (x86)\Youdao\YoudaoNote\YoudaoNote.exe
2、程序启动器.au3文件:
        数组变量:$iconName[10]
                  $path[10]
                  $icon[10]
        初始化函数:init()
        主函数:Main()
3、icons图标文件:用软件获取图标


三、源码:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

Global $iconName[10] = [""]
Global $path[10] = [""]
Global $icon[10] = [""]

init()
Main()
;主函数
Func Main()
        While 1
                $msg = GUIGetMsg()
                If $msg == $GUI_EVENT_CLOSE Then
                        ExitLoop
                ;根据获取的信息,打开对应程序(这里获取的图标信息为3-11,这个我没在帮助文档里没找到为什么开始是3)
                ElseIf Int($msg) >= 3 And Int($msg) <= 11 Then
                        $i = $msg - 2
                        Run($path[$i])
                EndIf
        WEnd
        GUIDelete()
EndFunc   ;==>Main

;初始化窗口、参数和图标
Func init()
        GUICreate("程序启动器", 300, 300,1050,500)
        ;程序默认最多9个自动启动程序
        For $i = 1 To 9
                ;保存图标到iconName数组
                $iconName[$i] = IniRead("items.ini","Item_" & $i,"IconName",0)
                ;判断图标是否存在
                If $iconName[$i] == 0 Then
                        ExitLoop
                EndIf
                ;判断程序路径是否正确,存在:保存到path数组
                If FileExists(IniRead("items.ini","Item_" & $i,"Path",0) ) Then
                        $path[$i] = IniRead("items.ini","Item_" & $i,"Path",0)
                Else
                        MsgBox(1,"提示","路径错误,请确认项目"& $i &"的路径,程序即将退出",2)
                        Exit
                EndIf
                ;保存图标到icon数组,并根据序号,设置显示位置
                If $i == 1 Then
                        $icon[$i] = GUICtrlCreateIcon("icons\" & $iconName[$i], "", 26, 26, 64, 64)
                Else
                        Opt("GUICoordMode", 0)
                        If ($i-1)/3 == 1 Or ($i-1)/3 == 2 Or ($i-1)/3 == 3 Then
                                $icon[$i] = GUICtrlCreateIcon("icons\" & $iconName[$i], "", -180, 90, 64, 64)
                        Else
                                $icon[$i] = GUICtrlCreateIcon("icons\" & $iconName[$i], "", 90, 0, 64, 64)
                        EndIf
                EndIf
                ;ConsoleWrite("icon:" & $icon[$i] & @CRLF)
        Next
        GUISetState(@SW_SHOW)
EndFunc

四、附件
链接:https://pan.baidu.com/s/1moRmboUAs0nS56JmhFBehw提取码:23wz
最近访问 头像模式 列表模式
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

fantuan830

737

活跃

0

技术

0

互助
签到任务
最火的业界新闻
  • 大疆遭美国断供:无人机不能再预装Cape公司
  • 联通研究院院长:两三年内5G可达4G覆盖水平
  • 首款可折叠手机FlexPai柔派迎来开门红:京
  • 博帝首次发布国产联芸主控SSD:2TB高性价比
  • 小米MIX 4有惊喜:或加入超长焦镜头
  • 小岛推荐《三体》引国内网友热议 本尊转发
  • 小米美女产品经理点评锤子科技:优秀的公司
  • 朋友圈传疯 空调开除湿既制冷又省电 really
  • 黄章谈魅族改变公司策略:“能挣钱的就是人
  • AMD神秘新GPU现身:或为Vega架构升级版专业
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 学医的都是外星人吗?
  • 是谁说洗衣机洗龙虾洗的很干净的?出来我们
  • 哈哈哈哈,笑死我了内心戏很足
  • 中国家长有哪些让人难以理解的“神逻辑”
  • 哈哈。好生动形象。有意思
  • 见过最丑的设计这长得像谁啊
  • 好狠心的铲屎官哇
  • 高人竟在我身边
  • 睁眼说瞎话
  • 内容过于真实。。
关注官方微信
快速回复 返回顶部 返回列表