节省你的时间，随机打开V1.7版本

Posted 2021-08-22 有千山

随机打开V1.7
主要的更新内容
1.之前1.0的版本每次使用都需要选择文件夹路径，现在增加了ini配置文件，在选择路径后可以保存路径，再也不用浪费时间选文件夹了
2.新增自定义格式，在ini配置文件中自定格式=添加，保存后需要手动重启软件
3.添加了ico图标

下载：https://wws.lanzoui.com/iSG0fsyw0la

.
.
.
.
.
.

V1.7完整代码

#NoTrayIcon         ;删除托盘图标
SetBatchLines, -1   ;让操作以最快速度进行

IniRead, format1, 随机打开.ini, Section, 视频格式
IniRead, format2, 随机打开.ini, Section, 图片格式
IniRead, format3, 随机打开.ini, Section, 自定格式
IniRead, path1, 随机打开.ini, Section, 视频路径
IniRead, path2, 随机打开.ini, Section, 图片路径
IniRead, path3, 随机打开.ini, Section, 自定路径

;窗口界面
Gui, Add, Button,w125 h40, 视频
Gui, Add, Button,w125 h40, 图片
Gui, Add, Button,w125 h40, 自定格式
Gui, Add, Button,w125 h40, 清除路径
Gui, -MaximizeBox -MinimizeBox   ;去除标题栏最小化和最大化控件
Gui, Show, w150 h190, 随机打开
return

;Button响应动作
Button视频:
	if !path1
		路径选择("视频路径")
        IniRead, path1, 随机打开.ini, Section, 视频路径
	if path1
		随机打开(format1, path1)
    return

Button图片:
	if !path2
		路径选择("图片路径")
        IniRead, path2, 随机打开.ini, Section, 图片路径
	if path2
		随机打开(format2, path2)
    return

Button自定格式:
	if !format3{
		MsgBox 4, 提示, 未设置自定格式，是否前往修改配置文件？`n`n注意：保存后重启软件生效
		IfMsgBox Yes
			Run notepad 随机打开.ini
	} else if !path3 {
		路径选择("自定路径")
		IniRead, path3, 随机打开.ini, Section, 自定路径
	}
	if format3 & path3
		随机打开(format3, path3)
    return

Button清除路径:
	clear :=
	IniWrite, %clear% , 随机打开.ini, Section, 视频路径
	IniWrite, %clear% , 随机打开.ini, Section, 图片路径
	IniWrite, %clear% , 随机打开.ini, Section, 自定路径
	;IniWrite, %clear% , 随机打开.ini, Section, 自定格式
	MsgBox 0, 提示, 已还原为默认路径，软件重启
	Reload
    return

;函数
路径选择(path){
	FileSelectFolder, WhichFolder, ::{20d04fe0-3aea-1069-a2d8-08002b30309d},,选择路径
	if ErrorLevel{
		return
	} else {
		MsgBox 4, 提示, 是否保存为默认%path%？
		IfMsgBox Yes
			IniWrite, %WhichFolder%, 随机打开.ini, Section, %path%
	}
}

随机打开(f,p) {
	loop Files, %p%\\*.%f%, R  ;递归子文件夹匹配格式
		FileList .= A_LoopFilePath "`n"
	Sort, FileList, Random  ;打乱
	Sort, FileList, Random  ;再次打乱
	loop, Parse, FileList, `n
	{
		MsgBox 4, 打开文件？,%A_LoopField%
		IfMsgBox Yes
			Run %A_LoopField%
		break
	}
}

GuiEscape:
GuiClose:
	ExitApp

随机打开.ini文件

[Section]
视频格式=mp4
图片格式=jpg
自定格式=

视频路径=
图片路径=
自定路径=