請問 內存 循環

遇到了问题?请先进行搜索(中文和英文),然后在此提问

Moderators: tmplinshi, arcticir

it895217
Posts: 1
Joined: 10 Mar 2021, 03:05

請問 內存 循環

Post by it895217 » 10 Mar 2021, 03:21

請問 內存 循環,該怎麼循環,謝謝大家。

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
Attachments
image.png
image.png (59.73 KiB) Viewed 1528 times

Return to “请求帮助”