請選擇 進入手機版 | 繼續訪問電腦版

微剋多資訊

 找回密碼
 註冊

Sign in with google

Google帳號登入

搜索
回覆 4則 瀏覽 18046篇
Line

[求助] 關於AutoHotkey

該用戶從未簽到

升級   0%

發表於 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

樓主熱門主題

該用戶從未簽到

升級   50.5%

發表於 2019-2-11 13:54 | 顯示全部樓層
新舊電腦螢幕解析度不一樣?
  座標可能會有差
執行環境也不一樣嗎?
  預設值、軟體版本、熱鍵等可能會有差

使用道具

該用戶從未簽到

升級   0%

 樓主| 發表於 2019-2-11 14:54 | 顯示全部樓層
ad6543210 發表於 2019-2-11 13:54
新舊電腦螢幕解析度不一樣?
  座標可能會有差
執行環境也不一樣嗎?

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

使用道具

該用戶從未簽到

升級   50.5%

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

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


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

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

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

使用道具

該用戶從未簽到

升級   0%

 樓主| 發表於 2019-2-11 15:35 | 顯示全部樓層
ad6543210 發表於 2019-2-11 15:05
座標就是目前看到螢幕大小的座標

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

使用道具

您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2024-3-29 14:25

Discuz! X

© 2009-2023 Microduo

快速回覆 返回頂部 返回列表