Code: Select all
#Include, C:\Users\it895\Desktop\classMemory\classMemory.ahk
#SingleInstance, Force
#InstallKeybdHook
#KeyHistory, 0
#NoEnv
calc := new _ClassMemory("ahk_exe CAS_M01.exe", "", hProcessCopy)
cl_exe := calc.getModuleBaseAddress("CAS_M01.exe")
value2 := calc.readString(cl_exe + 0xe010, sizeBytes := 10, encoding := "utf-8", 0x50, 0x0)
當 現在 接收 的訊號,不等於 下一次 接收的訊號,就顯示 內存資料
當 現在 接收 的訊號,沒有變動時,不動作。
一直循環
圖片 流程大約是這樣
https ppt.cc /fYG2Lx Broken Link for safety
Code: Select all
=
按鍵精靈 用文字辨識 資料 的架構
set voice = createobject("SAPI.SpVoice")
Plugin.SimPlugOCR.SetDict ("競價器字庫.txt")
Plugin.SimPlugOCR.SetFontColor ("FFFF00")
Call Plugin.SimPlugOCR.SetMaxChrWidth("7")
AOP = Plugin.SimPlugOCR.OCR(759, 724, 1180, 762)'789 745
Set dm = createobject("dm.dmsoft")
While true
BOP=AOP
While BOP = AOP
Delay 200
AOP = Plugin.SimPlugOCR.OCR(759, 724, 1180, 762)
Wend
Hwnd = dm.FindWindow("XLMAIN", "聲音測試.xls [相容模式] - Excel")
Call Plugin.Window.SendString(Hwnd, AOP)
Call Plugin.Window.SendKeyPress(hwnd, 13)
Wend