關於AutoHotkey

bruce0702 · 發表於 2019-2-11 10:52

本帖最後由 bruce0702 於 2019-2-11 15:35 編輯

前任資訊留下一個寫好的檔案
配合PhotoImpact將2K圖片修成480x250..圖片上自動加上檔名(字體48)
但新電腦安裝執行後解析度變得更大(4K)..檔名字體超小(字體12)
這個部份有大大知道可能的原因嗎?
PS:我和前任資訊無交接..沒有遇到
指令如下
SetTitleMatchMode RegEx
SendMode Input
#UseHook
MsgBox 8256, 修圖幫幫忙 - Ben,
(
Ver. 20161117

)

MsgBox 8256, 使用說明 - 修圖,
(
切記：
第一步裁切完之後

“ ALT + 1 ” 480 外腰自動調整上字
“ ALT + 2 ” 280 正面自動調整上字
“ ALT + 3 ” 320 馬靴外腰自動調整上字
“ ALT + 4 ” 600 代拍自動調整

“ CTRL + 1 ” 480 外腰反轉自動調整上字
“ CTRL + 2 ” 320 馬靴外腰反轉自動調整上字
“ CTRL + W ” 快速存檔關閉當前檔案

“ ALT + Q ” (Beta)圖片自動轉正
“ ALT + R ” 重置字體大小 48
“ ALT + T ” 字體大小 14 *NewLook*

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;Mastermind of Automatic.
;;;;;;Stop doing your job like a robot.
;;;;;;Core Function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for 480
#i::
Sleep,200
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
;MsgBox, %WhichControl%

Sleep, 50
X1 := X+10
Y1 := Y+41
Y2 := Y+70

Sleep,300
MouseClick, Left, X1,Y1
;MouseClick, Left, 68, 220

Sleep, 200
Clipboard := "" ; clear clipboard

WinGetTitle, Title, A
Clipboard = %Title%
ClipWait

if ErrorLevel
{
MsgBox, 複製標題到剪貼簿時發生錯誤
return
}
;remove front words.
Clipboard := RegExReplace(Clipboard, "PhotoImpact - ")
;remove color code.
Clipboard := RegExReplace(Clipboard,"(.*")
Sleep, 100
Send, ^v
Sleep, 100
MouseClick, Left, X1,Y2
;MouseClick, Left, 85, 250
Sleep, 500
Send, k
Sleep, 200
BlockInput, Off
Return

;FOR 280
#j::
Sleep,200
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
;MsgBox, %WhichControl%

Sleep, 50
X1 := X+10
Y1 := Y+41
Y2 := Y+70

Sleep, 300
MouseClick, Left, X1,Y1
;MouseClick, Left, 68, 220

Sleep, 200
Clipboard := "" ; clear clipboard
WinGetTitle, Title, A
Clipboard = %Title%
ClipWait

if ErrorLevel
{
MsgBox, 複製標題到剪貼簿時發生錯誤
return
}
;remove front words.
Clipboard := RegExReplace(Clipboard, "PhotoImpact - ")
;remove color code.
Clipboard := RegExReplace(Clipboard,"(.*")
Send, ^v
Sleep, 100
MouseClick, Left, X1,Y2
;MouseClick, Left, 85, 250
Sleep, 500
Send, k
Sleep, 200
;Middle that shit.
MouseClick, Left, 431, 101
BlockInput, Off
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;Core Function End
;;;;;;Mastermind of Cheating.
;;;;;;Stop doing your job like a robot.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Auto Rotate Pictures.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!q::
TitleBackup = ""
Loop
{
Sleep, 300
WinGetTitle, Title, A
Sleep, 200
If RegExMatch(Title,".+)t.+")
{
      If TitleBackup = %Title%
      {
         Sleep, 500
         Send, {Left}
         Sleep, 500
         Send, s
         Sleep, 200
         break
      }
      Sleep, 100
      MouseClick, Left, 94, 62
      Sleep, 200
      Send, {Right}
      Sleep, 500
      Send, s
      Sleep, 200
      TitleBackup = %Title%
}
Else
{
      Send, {Right}
      Sleep, 500
}
}
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Auto Select font and size.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!r::

BlockInput On
Send, t
Sleep, 500
MouseClick, Left, 162,90
Sleep, 200
Send, 48
Sleep, 200
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
Sleep, 100
Send, k
Sleep, 200
BlockInput Off
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Auto Change Font Size To 14
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!t::
BlockInput On
Send, t
Sleep, 200
MouseClick, Left, 162,90
Sleep, 200
Send, 14
Sleep, 200
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
BlockInput Off
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 480 flipping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

^1::

;Click down, 365, 137
;Sleep, 105
;Click up left
;Get Window Pos
;WATCH ME FLIP

BlockInput, On
MouseClick, Left
Sleep, 100
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100
MouseMove, X1, Y1
Sleep, 100
Send !e
Sleep, 100
Send i
Sleep, 100
Send h
Sleep, 500
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 480
Sleep, 100
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
Sleep, 300
Send, t
GoSub, #i
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 320 flipping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

^2::

;Click down, 365, 137
;Sleep, 105
;Click up left

;WATCH ME FLIP
BlockInput, On
MouseClick, Left
Sleep, 100
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100
MouseMove, X1, Y1
Sleep, 100
Send !e
Sleep, 100
Send i
Sleep, 100
Send h
Sleep, 200
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 320
Sleep, 100
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
Sleep, 300
Send, t

GoSub, #i
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 480 without flipping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!1::
BlockInput, On
MouseClick, Left
Sleep, 100
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100
MouseMove, X1, Y1
Sleep, 100
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 480
Sleep, 100
Send, {ENTER down}{ENTER up}
Sleep, 300
Send, t

GoSub, #i
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 280
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!2::
BlockInput, On
MouseClick, Left
Sleep, 100

MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100
MouseMove, X1, Y1
Sleep, 100
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 280
Sleep, 100
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
Sleep, 300
Send, t

GoSub, #j
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 380
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!3::
BlockInput, On
MouseClick, Left
Sleep, 100
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100
MouseMove, X1, Y1
Sleep, 100
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 320
Sleep, 100
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
Sleep, 300
Send, t
GoSub, #i
Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 600
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
!4::
BlockInput, On
MouseClick, Left
Sleep, 100
MouseGetPos, , , WhichWindow, WhichControl
Sleep, 50
ControlGetPos, X, Y, W, H, %WhichControl%, ahk_id %WhichWindow%
IfWinExist, ahk_id %WhichWindow%
ControlMove, PIFrame1, 52, 152
X1 := 52+50
Y1 := 152+50
Sleep, 100

MouseMove, X1, Y1
Sleep, 100
Send,^g
Sleep, 100
Send,{TAB down}{TAB up}
Sleep, 100
; wide value
Send, 600
Sleep, 100
Send, {ENTER down}
Sleep, 50
Send, {ENTER up}
BlockInput, Off
Return

^w::
BlockInput, On
Send, ^s
Sleep,200
Send, ^w
BlockInput, Off
Return

ad6543210 · 發表於 2019-2-11 13:54

新舊電腦螢幕解析度不一樣？
座標可能會有差
執行環境也不一樣嗎？
預設值、軟體版本、熱鍵等可能會有差

bruce0702 · 發表於 2019-2-11 14:54

ad6543210 發表於 2019-2-11 13:54
新舊電腦螢幕解析度不一樣？
座標可能會有差
執行環境也不一樣嗎？

解析度應該沒差..我用遠端連過去可以用
座標是指?
舊新電腦環境都是Win7 32位元
預設值跟熱鍵是指AutoHotkey?

ad6543210 · 發表於 2019-2-11 15:05

bruce0702 發表於 2019-2-11 14:54
解析度應該沒差..我用遠端連過去可以用
座標是指?
舊新電腦環境都是Win7 32位元

座標就是目前看到螢幕大小的座標

例如同樣 100,100 的位置不同解析度可能是不同按鈕

預設值不同是指 photoimpact 原本有沒有設定過什麼，新電腦沒有做相同的設定
不過看來比較有可能是解析度問題

用遠端能用，直接到本機使用就不行是嗎？
那就要看遠端的時候解析度是多少，把那台電腦的解析度改一樣看看

bruce0702 · 發表於 2019-2-11 15:35

ad6543210 發表於 2019-2-11 15:05
座標就是目前看到螢幕大小的座標

舊電腦我拿備用硬碟重新安裝系統..PhotoImpact..AutoHotkey
也是有問題..看樣子應該是少什麼設定

帳號		自動登入	找回密碼
密碼			註冊

[求助] 關於AutoHotkey

本月熱門