IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1
fantuan830 发表于 2018-11-26 10:53:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

一、程序启动界面:



二、程序包含文件:
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

534

活跃

0

技术

0

互助
签到任务
最火的业界新闻
  • 高通紧逼:禁售令下iPhone订单苹果将转给和
  • 联通砸210亿发力5G终端 将加快eSIM技术普及
  • 联想Z5官方自曝:搭载安卓9.0系统 “秒杀”
  • 驱动人生”升级现木马病毒 半天感染数万台
  • 英特尔推出新版Jetson AGX Xavier 提升自动
  • 新一代拍照旗舰?华为P30 Pro屏幕保护膜曝
  • 锤子迎至暗时刻:官网断货 怀抱情怀的罗永
  • 荣耀Play限时促销 最高优惠700元:性价比极
  • 中国联通公布5G终端战略:砸210亿 全力投入
  • 小米米家照片打印机官宣:6英寸高清无线直
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 没有规矩不成方圆
  • 你说一个人的生活有多爽?一个人,贼爽
  • 这是你无法想象的
  • 如果有一天你身边有两个最求者
  • 告诉你怎么装着像个老油子
  • 当女人犯懒的时候
  • 承包了一个月的笑点
  • 我在等你 你知道吗?
  • 没办法啊!
  • 可怜的鸭嘴兽......
关注官方微信
快速回复 返回顶部 返回列表