AHK-STK批次腳本
更新於 發佈於 閱讀時間約 9 分鐘
;==========================================================
SysGet, VirtualHeight, 79
SysGet, VirtualWidth, 78
SysGet, VirtualX, 76
SysGet, VirtualY, 77
;==========================================================
^F5::Reload
;==========================================================
;==========================================================
^+A::
global VirtualHeight,VirtualWidth
gui,add,picture,hwnd__mypic,%__ImageFilePath1%,%__ImageFilePath2%
InputBox, UserInput, 訊息, 請輸入要執行的次數:
If ErrorLevel
return
Loop, %UserInput%
{
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上下分號內包起來的是迴
WinActivate % "Microsoft Excel - STK叫多批-test-01.xlsm"
Sleep % 500
Send, ^+D
Sleep % 500
重複01()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上下分號內包起來的是迴圈
}
WinActivate % "Microsoft Excel - STK叫多批-test-01.xlsm"
Sleep, 1000
Send, {right}
Sleep, 200
Send, END
return
;==========================================================
重複01(){
WinActivate % "test-230509-01.txt - 記事本"
;CoordMode, Mouse , WINDOW
ClickPosition(400, 300, 1, 0, "WINDOW", false)
;__ClickX:=400
;__ClickY:=300
;__ClickTimes:=1
;Click %__ClickX%, %__ClickY%, %__ClickTimes%
Sleep % 200
Send, {RButton}
Sleep % 2000
Send, p
Sleep % 200
Send, {Enter}
Sleep % 200
Send, {Enter}
Sleep % 200
;Send, {F1}
Send, F1
Sleep % 200
Send, m
Sleep % 200
Send, {Enter}
Sleep % 200
SendInput % "{TEXT}" . "RLS"
Sleep % 200
Send, {Enter}
Sleep % 200
Return
}
;==========================================================
^+B::
global VirtualHeight,VirtualWidth
gui,add,picture,hwnd__mypic,%__ImageFilePath1%,%__ImageFilePath2%
InputBox, UserInput, 訊息, 請輸入要執行的次數:
If ErrorLevel
return
Loop, %UserInput%
{
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上下分號內包起來的是迴
WinActivate % "Microsoft Excel - STK叫多批-test-01.xlsm"
偵圖01()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;上下分號內包起來的是迴圈
}
WinActivate % "Microsoft Excel - STK叫多批-test-01.xlsm"
Sleep, 1000
Send, {right}
Sleep, 200
Send, END
return
;==========================================================
偵圖01(){
global VirtualHeight,VirtualWidth
gui,add,picture,hwnd__mypic,%__ImageFilePath1%,%__ImageFilePath2%
__ImageFilePath1:="C:\Users\jason\Desktop\U2\WINDOW-01.PNG"
if FileExist(__ImageFilePath1){
controlgetpos,,,__img_w,__img_h,,ahk_id %__mypic%
CoordMode Pixel
;搜尋圖片
ImageSearch, __FoundX, __FoundY, VirtualX, VirtualY, VirtualWidth, VirtualHeight,%__ImageFilePath1%
CoordMode Mouse
;獲取圖片中心座標
圖片座標X:=__FoundX + __img_w/2
圖片座標Y:=__FoundY + __img_h/2
if (ErrorLevel=0) {
;Msgbox % "圖片座標為: " . 圖片座標X . ", " . 圖片座標Y
CoordMode, Mouse , Screen
__ClickX:=圖片座標X
__ClickY:=圖片座標Y
__ClickTimes:=1
Click %__ClickX%, %__ClickY%, %__ClickTimes%
; Send, {RButton}
;_____________________________________________________
偵圖02()
;_____________________________________________________
} else {
Msgbox % "圖片未找到"
}
} else {
Msgbox % "圖片路徑不存在"
}
gui,destroy
}
;==========================================================
偵圖02(){
__ImageFilePath2:="C:\Users\jason\Desktop\U2\WINDOW-02.PNG"
if FileExist(__ImageFilePath2){
;controlgetpos,,,__img_w,__img_h,,ahk_id %__mypic%
CoordMode, Pixel, WINDOW
;搜尋圖片
ImageSearch, __FoundX, __FoundY, VirtualX, VirtualY, VirtualWidth, VirtualHeight,%__ImageFilePath2%
if (ErrorLevel=0) {
WinActivate % "Microsoft Excel - STK叫多批-test-01.xlsm"
Sleep, 1000
Send, ^+D
Sleep, 1000
WinActivate, test-230509-01.txt - 記事本
Sleep, 1000
Send, ^v
Sleep, 1000
} else {
Msgbox % "圖片未找到"
}
} else {
Msgbox % "圖片路徑不存在"
}
gui,destroy
}
;==========================================================
^+C::
CoordMode, Mouse, Screen
MouseGetPos, posX, posY
CoordMode, Mouse, Screen
MouseGetPos, posX, posY
;MousePos := "X: " . posX . ", Y: " . posY
MousePos := "" . posX . "," . posY
Clipboard := MousePos
Msgbox,(%posX%`,%posY%)
return
Msgbox,(%posX%`,%posY%)
return
;==========================================================
1會員
6內容數
留言0
查看全部
你可能也想看
Google News 追蹤
大家好，我是woody，是一名料理創作者，非常努力地在嘗試將複雜的料理簡單化，讓大家也可以體驗到料理的樂趣而我也非常享受料理的過程，今天想跟大家聊聊，除了料理本身，料理創作背後的成本。
哈囉～很久沒跟各位自我介紹一下了～
大家好～我是爺恩
我是一名圖文插畫家，有追蹤我一段時間的應該有發現爺恩這個品牌經營了好像.....快五年了(汗)時間過得真快！隨著時間過去，創作這件事好像變得更忙碌了，也很開心跟很多厲害的創作者以及廠商互相合作幫忙，還有最重要的是大家的支持與陪伴🥹。
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
本文介紹瞭如何使用BAT腳本和CMD指令來自動執行檔案和空目錄的刪除作業。通過設定各種參數和指令，可以快速、有效地執行定期刪除作業，節省硬體空間並提升工作效率。
過年前在LINE社群有網友提出一個問題。
🥹網友:在報導確認的A欄儲存格輸入員工qr會跳出視窗顯示員工的資料
🥹網友:主要是跳出視窗的VBA我不確定要怎麼下手比較好～
😎我:為什麼要跳出來視窗？ 這樣每輸入一次就跳一個 要一直關視窗誒
🥹網友:想給人員看並確認的，要辦活動
本篇主要是設計，當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
靈感？！
點選 [開始創作] ，盯著螢幕上顯示著創作平台（方格子）的空白畫面，寫著大大的提示詞『請你輸入標題、開始創作你的精彩內容...』
大腦中心傳達指令，請手指十兄弟進行輸出行為『打字』。十兄弟接受命令後，每個指尖協作分工敲打著 Laptop的鍵盤按鍵。
輸出的文字內容，就這樣不斷反覆『打
大家好，我是woody，是一名料理創作者，非常努力地在嘗試將複雜的料理簡單化，讓大家也可以體驗到料理的樂趣而我也非常享受料理的過程，今天想跟大家聊聊，除了料理本身，料理創作背後的成本。
哈囉～很久沒跟各位自我介紹一下了～
大家好～我是爺恩
我是一名圖文插畫家，有追蹤我一段時間的應該有發現爺恩這個品牌經營了好像.....快五年了(汗)時間過得真快！隨著時間過去，創作這件事好像變得更忙碌了，也很開心跟很多厲害的創作者以及廠商互相合作幫忙，還有最重要的是大家的支持與陪伴🥹。
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
本文介紹瞭如何使用BAT腳本和CMD指令來自動執行檔案和空目錄的刪除作業。通過設定各種參數和指令，可以快速、有效地執行定期刪除作業，節省硬體空間並提升工作效率。
過年前在LINE社群有網友提出一個問題。
🥹網友:在報導確認的A欄儲存格輸入員工qr會跳出視窗顯示員工的資料
🥹網友:主要是跳出視窗的VBA我不確定要怎麼下手比較好～
😎我:為什麼要跳出來視窗？ 這樣每輸入一次就跳一個 要一直關視窗誒
🥹網友:想給人員看並確認的，要辦活動
本篇主要是設計，當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
靈感？！
點選 [開始創作] ，盯著螢幕上顯示著創作平台（方格子）的空白畫面，寫著大大的提示詞『請你輸入標題、開始創作你的精彩內容...』
大腦中心傳達指令，請手指十兄弟進行輸出行為『打字』。十兄弟接受命令後，每個指尖協作分工敲打著 Laptop的鍵盤按鍵。
輸出的文字內容，就這樣不斷反覆『打