大家帮忙看看我这个小工具怎么优化一下啊
咱还是菜鸟呢同志们别笑哈！~~我总感觉那个调用ini文件太乱了。。。。能简化一下不？#include <Constants.au3>TraySetToolTip("猪之禅网吧工具Ver1.0");托盘图标鼠标停靠显示气泡文字
Opt("TrayMenuMode", 1) ; 默认托盘菜单项目(脚本已暂停/退出脚本) (Script Paused/Exit) 将不显示.
$about = TrayCreateItem("关于程序", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
TrayCreateItem("")
$exit = TrayCreateItem("退出程序")
TraySetState()
;开机延迟
$time1 = IniRead("option.ini", "自动运行", "time1", "3000")
$time2 = IniRead("option.ini", "自动运行", "time2", "3000")
$time3 = IniRead("option.ini", "自动运行", "time3", "3000")
$time4 = IniRead("option.ini", "自动运行", "time4", "3000")
;调用开机运行程序列表
$run1 = IniRead("option.ini", "自动运行", "RUN1", "NotFound")
$run2 = IniRead("option.ini", "自动运行", "RUN2", "NotFound")
$run3 = IniRead("option.ini", "自动运行", "RUN3", "NotFound")
$run4 = IniRead("option.ini", "自动运行", "RUN4", "NotFound")
$run5 = IniRead("option.ini", "自动运行", "RUN5", "NotFound")
;调用关闭窗口名单
$ad1 = IniRead("option.ini", "查杀窗口", "ad1", "NotFound")
$ad2 = IniRead("option.ini", "查杀窗口", "ad2", "NotFound")
$ad3 = IniRead("option.ini", "查杀窗口", "ad3", "NotFound")
$ad4 = IniRead("option.ini", "查杀窗口", "ad4", "NotFound")
$ad5 = IniRead("option.ini", "查杀窗口", "ad5", "NotFound")
$ad6 = IniRead("option.ini", "查杀窗口", "ad6", "NotFound")
$ad7 = IniRead("option.ini", "查杀窗口", "ad7", "NotFound")
$ad8 = IniRead("option.ini", "查杀窗口", "ad8", "NotFound")
$ad9 = IniRead("option.ini", "查杀窗口", "ad9", "NotFound")
$ad10 = IniRead("option.ini", "查杀窗口", "ad10", "NotFound")
$ad11 = IniRead("option.ini", "查杀窗口", "ad11", "NotFound")
$ad12 = IniRead("option.ini", "查杀窗口", "ad12", "NotFound")
$ad13 = IniRead("option.ini", "查杀窗口", "ad13", "NotFound")
$ad14 = IniRead("option.ini", "查杀窗口", "ad14", "NotFound")
$ad15 = IniRead("option.ini", "查杀窗口", "ad15", "NotFound")
$ad16 = IniRead("option.ini", "查杀窗口", "ad16", "NotFound")
$ad17 = IniRead("option.ini", "查杀窗口", "ad17", "NotFound")
$ad18 = IniRead("option.ini", "查杀窗口", "ad18", "NotFound")
$ad19 = IniRead("option.ini", "查杀窗口", "ad19", "NotFound")
$ad20 = IniRead("option.ini", "查杀窗口", "ad20", "NotFound")
$ad21 = IniRead("option.ini", "查杀窗口", "ad21", "NotFound")
$ad22 = IniRead("option.ini", "查杀窗口", "ad22", "NotFound")
$ad23 = IniRead("option.ini", "查杀窗口", "ad23", "NotFound")
$ad24 = IniRead("option.ini", "查杀窗口", "ad24", "NotFound")
$ad25 = IniRead("option.ini", "查杀窗口", "ad25", "NotFound")
$ad26 = IniRead("option.ini", "查杀窗口", "ad26", "NotFound")
$ad27 = IniRead("option.ini", "查杀窗口", "ad27", "NotFound")
$ad28 = IniRead("option.ini", "查杀窗口", "ad28", "NotFound")
$ad29 = IniRead("option.ini", "查杀窗口", "ad29", "NotFound")
$ad30 = IniRead("option.ini", "查杀窗口", "ad30", "NotFound")
;自动运行程序开始
Run($run1)
Sleep($time1)
Run($run2)
Sleep($time2)
Run($run3)
Sleep($time3)
Run($run4)
Sleep($time4)
Run($run5)
Sleep(1000)
;开始循环关闭指定窗口
While 1
WinKill($ad1)
WinKill($ad2)
WinKill($ad3)
WinKill($ad4)
WinKill($ad5)
WinKill($ad6)
WinKill($ad7)
WinKill($ad8)
WinKill($ad9)
WinKill($ad10)
WinKill($ad11)
WinKill($ad12)
WinKill($ad13)
WinKill($ad14)
WinKill($ad15)
WinKill($ad16)
WinKill($ad17)
WinKill($ad18)
WinKill($ad19)
WinKill($ad20)
WinKill($ad21)
WinKill($ad22)
WinKill($ad23)
WinKill($ad24)
WinKill($ad25)
WinKill($ad26)
WinKill($ad27)
WinKill($ad28)
WinKill($ad29)
WinKill($ad30)
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $about
MsgBox(64, "猪之禅网吧工具Ver1.0", "作者：E腾网络猪之禅" & @CR & "╭︿︿︿╮" & @CR & "{/ $$ /}" & @CR & " ( (oo) ) " & @CR & " ︶ ︶ ︶ " & @CR & "Q Q：121203299")
Case $msg = $exit
ExitLoop
EndSelect
WEnd
Exit 那你就不读取ini文件，直接把相应的值赋给变量不就行了． 这个。。可以用数组代替吧 数组。。谢了我研究研究去！ 可以用inireadsection啊 不用数组痛苦死你，加个新东西都得去重新编译
页:
[1]