哈哈，ahk写的斗图神器，作者不详，附的两个表情包不错哦！
使用方法也很简单：Ctrl+1打开，鼠标点击就能发送到能接受gif表情的界面中
哈哈，ahk写的斗图神器，作者不详，附的两个表情包不错哦！
使用方法也很简单：Ctrl+1打开，鼠标点击就能发送到能接受gif表情的界面中
下边给出一个演示哈！（点击图片就能演示了）
脚本及赠送的表情包下载地址：链接：http://pan.baidu.com/s/1nvNMRrz密码：dsvp
#NoEnv
#SingleInstance force
SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1
CoordMode, Mouse, Screen
gui_title := "表情 伊文"
; —————————————————————— 设置 ——————————————————————
; 表情根目录
RootDir := A_ScriptDir
; 显示标题和边框
ShowGuiTitle := False
; 界面失去焦点则关闭界面
LossFocus_CloseGui := True
; 隐藏滚动条（滚动条显示时，ActiveX 的高度为 215。隐藏时高度自动调整。）
; HideScrollbar := True
; 高亮鼠标下的图片(如果比较卡，可以禁用此选项)
HighlightImage := True
; —————————————————————— /设置 ——————————————————————
; html head
html_head =
(LTrim
<!DOCTYPE html>
<html>
<head>
<script>
function copyImage(ID)
{
var HeaderImage = document.getElementById(ID);
var controlRange;
if (document.body.createControlRange)
{
controlRange = document.body.createControlRange();
controlRange.addElement(HeaderImage);
controlRange.execCommand('Copy');
}
return false;
}
</script>
</head>
)
; 隐藏滚动条的 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
<style>
html,body {
width: 100`%;
height: 100`%;
padding: 0px;
margin: 0px;
}
table {
}
td {
position: fixed;
width: 24pt;
height: 24pt;
text-align:center;
}
img {
max-width:100`%;
max-height:100`%;
}
.borderOn { /* ----------------------------------- 鼠标悬停 */
border: solid 1px #4CA0D9; /* 边框颜色 */
background-color: #D0F0FF; /* 背景颜色 */
}
%style_HideScrollbar%
</style>
)
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%<table border="1" cellspacing="0px" bgcolor="#F6FBFE" bordercolor="#D3E4F0">`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>" : ""
tr_end := (_count=14) ? "</tr>" : ""
; 鼠标悬停在图片上的提示（无后缀文件名）
SplitPath, A_LoopFileName,,,, alt
FileAppend,
(LTrim Join
%tr_start%<td %td_attrib%>
<img src="%A_LoopFileLongPath%" alt="%alt%" id="%alt%"></td>%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>" : ""
tr_end := (_count=14) ? "</tr>" : ""
FileAppend,
(LTrim Join
%tr_start%<td> </td>%tr_end%`r`n
)
, %htmlFile%
_count := (_count=14) ? 0 : _count
TotalImages ++
}
MaxCount := (TotalImages > MaxCount) ? TotalImages : MaxCount
; 是否隐藏滚动条
html_HideScrollbar := ( Ceil(TotalImages/14) <=5 ) ? "<style>html { overflow: hidden }</style>" : ""
}
else
MaxCount := (TotalImages > MaxCount) ? TotalImages : MaxCount
; html 尾部代码
FileAppend,
(LTrim Join
</table>
<iframe name="_cp" src="about:blank" style="display:none;"></iframe>
%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 <= 0)
TabNumber_new := c0
GuiControl, Choose, TabNumber, |%TabNumber_new%
htmlFile := A_ScriptDir "\.html\" c%TabNumber_new% ".html"
WB.Navigate(htmlFile)
return
; 界面显示后，不管界面有没有激活，按 ESC 都关闭界面
;#IfWinExist, ahk_group MyGui
;Esc::Gui, Cancel
#IfWinActive
; #################################
; 关闭界面
; #################################
;
GuiEscape:
GuiClose:
Gui, Cancel
class WB_events
{
; 处理方法, 当然也可以监听其他事件
; 参考: http://msdn.microsoft.com/en-us/library/aa768334
NavigateComplete2(wb, url)
{
if ( url = "about:blank" || SubStr(url, -4) = ".html" )
return
Gui, Cancel ; 关闭界面
WinWaitClose
Clipboard_bak := ClipboardAll ; 备份剪贴板
Clipboard :=
; 复制图片到剪贴板
img_id := RegExReplace(url, "^.*\\([^>]+)\.[^.]+>$", "$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 "')")
}
亲爱的朋友们，如果你认为本站不错请打赏，我们非常感谢你的支持！
[su_button url=”http://www.autoahk.com/buyamoney” style=”3d” color=”#ffe41c” size=”20″ radius=”round”]赏[/su_button]
很厉害的样子！