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

互助
签到任务
最火的业界新闻
  • 微软:2019年将放弃对Win8系统支持
  • 曜越推出全新TR4水冷散热器:专为线程撕裂
  • 无核显九代酷睿上架台湾:i9-9900KF好“便
  • 带USB的插线板存隐患 只为省事的你还敢用吗
  • 一夜之间5G芯片格局大变:天下五分 中国已
  • 金山WPS宣布Office Mac版登陆Mac应用商店
  • 游戏机鼻祖雅达利新动作 跟风推出迷你复古
  • 台积电:7纳米制程技术至少领先对手一年
  • 中国联通曝光华为Mate 20 X 5G版真机渲染图
  • 荣耀旗舰现身鲁大师:麒麟980加持 或为荣耀
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 不打算修了,不知道交警查不查
  • 医院22张偷拍照曝光:这些人间真实,你见过
  • 吃鸡男孩在线造句
  • 社会我猫哥,人狠话不多。
  • 这个真的要看哭了。
  • 实锤了,权游改编自神雕~
  • 80斤女孩:我特特特特特别想长胖!
  • 吃了我的瓜子就是我的人了!!
  • 国外一位父亲与他9个月大的可爱女儿搞怪合
  • 哈哈智障文物表情包。
关注官方微信
快速回复 返回顶部 返回列表