#NoEnv
#SingleInstance force
SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1
CoordMode, Mouse, Screen
gui_title := "QQ表情 v0.31"
; —————————————————————— 设置 ——————————————————————
; 表情根目录
RootDir := A_ScriptDir
; 显示标题和边框
ShowGuiTitle := False
; 界面失去焦点则关闭界面
LossFocus_CloseGui := True
; 隐藏滚动条（滚动条显示时，ActiveX 的高度为 215。隐藏时高度自动调整。）
; HideScrollbar := True
; 高亮鼠标下的图片(如果比较卡，可以禁用此选项)
HighlightImage := True
; —————————————————————— /设置 ——————————————————————
; html head
html_head =
(LTrim
)
; 隐藏滚动条的 html 代码
if HideScrollbar
style_HideScrollbar := "html { overflow: hidden }"
; 高亮图片
if HighlightImage
html_MouseMove =
(LTrim
onmouseover="this.className='borderOn'"
onmouseOut="this.className='borderOff'"
class="borderOff"
)
; style
html_style =
(LTrim
)
td_attrib =
(LTrim Join%A_Space%
%html_MouseMove%
onclick="document.all._cp.src=this.innerHTML"
)
; #################################
; 生成 html
; #################################
;
; 建立 .html 文件夹
IfNotExist, .html
FileCreateDir, .html
MaxCount := 0 ; 分类文件夹图片最多的数量
Loop, %RootDir%*, 2 ; 搜索【分类文件夹】
{
if A_LoopFileName = .html
Continue
; 删除 html 文件，然后重新创建
htmlFile = .html%A_LoopFileName%.html
FileDelete, %htmlFile%
; html 头部代码
FileAppend, %html_head%%html_style%`r`n, %htmlFile%
; 生成 html
_count := "", tr_start := "", tr_end := "", TotalImages := 0
Loop, %A_LoopFileLongPath%* ; 搜索【分类文件夹】中的图片
{
; 排除非图片
if A_LoopFileExt not in bmp,jpg,jpeg,gif,png,ico
Continue
; 判断什么时候换行
_count += 1
tr_start := (_count=1) ? "" : ""
tr_end := (_count=14) ? "
" : ""
; 鼠标悬停在图片上的提示（无后缀文件名）
SplitPath, A_LoopFileName,,,, alt
FileAppend,
(LTrim Join
%tr_start%
 | %tr_end%`r`n
)
, %htmlFile%
_count := (_count=14) ? 0 : _count
TotalImages += 1
}
if !TotalImages
{
FileDelete, %htmlFile%
Continue
}
if !HideScrollbar
{
; 如果图片数量小于 70，则补上空的表格
Loop, % 70 - TotalImages
{
; 判断什么时候换行
_count += 1
tr_start := (_count=1) ? "" : ""
tr_end := (_count=14) ? "
" : ""
FileAppend,
(LTrim Join
%tr_start% | %tr_end%`r`n
)
, %htmlFile%
_count := (_count=14) ? 0 : _count
TotalImages ++
}
MaxCount := (TotalImages > MaxCount) ? TotalImages : MaxCount
; 是否隐藏滚动条
html_HideScrollbar := ( Ceil(TotalImages/14) html { overflow: hidden }" : ""
}
else
MaxCount := (TotalImages > MaxCount) ? TotalImages : MaxCount
; html 尾部代码
FileAppend,
(LTrim Join
%html_HideScrollbar%
)
, %htmlFile%
; 保存分类列表
if _count !=
CategoryList := CategoryList "|" A_LoopFileName
else
FileDelete, %htmlFile%
}
if !CategoryList
{
MsgBox, 48,, 没有找到图片。程序将退出。
ExitApp
}
CategoryList := LTrim(CategoryList, "|")
; 自动调整 ActiveX 高度
ActiveXHeight := ( HideScrollbar ? ( Ceil(MaxCount / 14) * 36.4 ) : 182 )
; #################################
; GUI
; #################################
;
; 无标题
if !ShowGuiTitle
{
Gui, Color, EEAA99
Gui +LastFound +Owner
WinSet, Transparent, 200
WinSet, TransColor, EEAA99
Gui -Caption
}
; -----------
StringSplit, c, CategoryList, |
Gui, Font, s12
Gui, Color, White
Gui, Margin, 10, 10
Gui, +LastFound +AlwaysOnTop
GroupAdd MyGui, % "ahk_id " . WinExist()
Gui, Add, ActiveX, xm w505 h%ActiveXHeight% vWB, Shell.Explorer
WB.Silent := True
WB.Navigate(A_ScriptDir ".html" c1 ".html")
ComObjConnect(WB, WB_events)
; 分类
Gui, Add, Tab2, xm w505 h25 Buttons AltSubmit -Wrap -Background BackgroundFFFFFF vTabNumber gChangeCategory, %CategoryList%
Gui, Show,, %gui_title%
if LossFocus_CloseGui
SetTimer, CloseGui, 200
TrayTip, %gui_title%, 按 Ctrl+1 显示界面`n Esc 关闭界面
WinGetPos, x, y, w, h
Return
; #################################
; 显示界面快捷键
; #################################
;
^1::
MouseGetPos, x, y, winID
y := (y + h > A_ScreenHeight) ? (y - h) : y
x := (x + w > A_ScreenWidth) ? (x - w) : x
Gui, Show, x%x% y%y%
if LossFocus_CloseGui
SetTimer, CloseGui, 200
return
; #################################
; 界面失去焦点时自动关闭
; #################################
;
CloseGui:
IfWinNotActive, ahk_group MyGui
{
Gui, Cancel
SetTimer, CloseGui, Off
}
return
; #################################
; 切换分类
; #################################
;
ChangeCategory:
GuiControlGet, TabNumber
htmlFile := A_ScriptDir ".html" c%TabNumber% ".html"
WB.Navigate(htmlFile)
return
#IfWinActive ahk_group MyGui
~WheelUp::
~WheelDown::
MouseGetPos,,,, CurrCtrl
; 滚动图片表格
if (CurrCtrl = "Internet Explorer_Server1")
{
if (A_ThisHotkey = "~WheelDown")
ControlSend, Internet Explorer_Server1, {PgDn}
else
ControlSend, Internet Explorer_Server1, {PgUp}
return
}
if (CurrCtrl != "SysTabControl321")
return
GuiControlGet, TabNumber
TabNumber_new := (A_ThisHotkey = "~WheelDown") ? (TabNumber + 1) : (TabNumber - 1)
if (TabNumber_new > c0)
TabNumber_new := 1
else if (TabNumber_new ]+).[^.]+>$", "$1")
__CopyImg(img_id)
ClipWait, 5
SendInput, ^v ; 粘贴
Sleep, 200
KeyWait, v
Clipboard := Clipboard_bak ; 恢复剪贴板
Clipboard_bak = ; 清空剪贴板备份
}
}
__CopyImg(img_id)
{
global
WB.document.parentWindow.execScript("Javascript:copyImage('" img_id "')")
}
