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會員
6Content count
留言0
查看全部
你可能也想看
重點摘要：
1.9 月降息 2 碼、進一步暗示年內還有 50 bp 降息
2.SEP 上修失業率預期，但快速的降息速率將有助失業率觸頂
3.未來幾個月經濟數據將繼續轉弱，經濟復甦的時點或是 1Q25 季底附近
近期的「貼文發佈流程 & 版型大更新」功能大家使用了嗎？
新版式整體視覺上「更加凸顯圖片」，為了搭配這次的更新，我們推出首次貼文策展 ❤️
使用貼文功能並完成這次的指定任務，還有機會獲得富士即可拍，讓你的美好回憶都可以用即可拍珍藏！
身邊朋友詢問，市面上的 電熱水壺，買哪一款，比較好用
以下分享，筆者多方面研究，比較之後，自己花錢購買的快煮壺
筆者的 生活採買 專題，分享的各種食物、點心、日用品、家電，都是自己做功課比較、或親自購買實際使用後，才編寫文章，分享給身邊的朋友
(沒有任何業配文，也沒有收取廠商的稿費)
先說筆者推薦
5/15那天傍晚發現搬家來的文章竟然全部發佈了，感覺有點驚訝。本以爲批次是指分期發佈呢！
也發現雖然之前已刪除千篇以上的文章，但有更多原本草稿狀態沒有發佈日期，全變成20230515。嘿，搞怪。
哈，看來我又要刪文了。
不過，也會逐步整理舊文加上新資訊，尤其是轉載中又有自己的想法。
或許可能很少人會需要用到，
但工作上一但需要查詢不上不下數量的學生戶籍學區這個可能就能幫上忙，
避免一個一個輸入到天荒地老🤷♂️。
本程式使用台北市戶籍學區查詢系統(https://schooldistrict.tp.edu.tw/html/search.jsp)來協助
NFT Image Generator
https://www.nft-farm.app/
用 Google 試算表內建的翻譯函式功能來批次翻譯外語單詞或句子。一行函式，值得一試！
iPhone手機現在已經成為了很多蘋果手機用戶拍攝相片和錄製影片的首選，特別是 iPhone 11 / 11 Pro 新增超廣角鏡頭，這進一步升級了 iPhone 的相機系統。不過，透過iPhone手機拍攝的相片和錄製的影片體積也在不斷增大，佔據著手機空間。
圖片影片壓縮可以透過在線網路壓縮工具縮小
重點摘要：
1.9 月降息 2 碼、進一步暗示年內還有 50 bp 降息
2.SEP 上修失業率預期，但快速的降息速率將有助失業率觸頂
3.未來幾個月經濟數據將繼續轉弱，經濟復甦的時點或是 1Q25 季底附近
近期的「貼文發佈流程 & 版型大更新」功能大家使用了嗎？
新版式整體視覺上「更加凸顯圖片」，為了搭配這次的更新，我們推出首次貼文策展 ❤️
使用貼文功能並完成這次的指定任務，還有機會獲得富士即可拍，讓你的美好回憶都可以用即可拍珍藏！
身邊朋友詢問，市面上的 電熱水壺，買哪一款，比較好用
以下分享，筆者多方面研究，比較之後，自己花錢購買的快煮壺
筆者的 生活採買 專題，分享的各種食物、點心、日用品、家電，都是自己做功課比較、或親自購買實際使用後，才編寫文章，分享給身邊的朋友
(沒有任何業配文，也沒有收取廠商的稿費)
先說筆者推薦
5/15那天傍晚發現搬家來的文章竟然全部發佈了，感覺有點驚訝。本以爲批次是指分期發佈呢！
也發現雖然之前已刪除千篇以上的文章，但有更多原本草稿狀態沒有發佈日期，全變成20230515。嘿，搞怪。
哈，看來我又要刪文了。
不過，也會逐步整理舊文加上新資訊，尤其是轉載中又有自己的想法。
或許可能很少人會需要用到，
但工作上一但需要查詢不上不下數量的學生戶籍學區這個可能就能幫上忙，
避免一個一個輸入到天荒地老🤷♂️。
本程式使用台北市戶籍學區查詢系統(https://schooldistrict.tp.edu.tw/html/search.jsp)來協助
NFT Image Generator
https://www.nft-farm.app/
用 Google 試算表內建的翻譯函式功能來批次翻譯外語單詞或句子。一行函式，值得一試！
iPhone手機現在已經成為了很多蘋果手機用戶拍攝相片和錄製影片的首選，特別是 iPhone 11 / 11 Pro 新增超廣角鏡頭，這進一步升級了 iPhone 的相機系統。不過，透過iPhone手機拍攝的相片和錄製的影片體積也在不斷增大，佔據著手機空間。
圖片影片壓縮可以透過在線網路壓縮工具縮小