Code: Select all
F5::
{
dm := ComObject("dm.dmsoft")
ver := dm.Ver()
dm.SetDict(0,"C:\dm31233\dm_soft.txt")
wow := WinGetID("ahk_exe skyfirewow.exe")
dm.BindWindow(wow, "normal", "normal", "normal", 0)
a1 := dm.Ocr(865,420,876,433, "ff0000-990000", 1.0)
a := Integer(a1)
b1 := dm.Ocr(882, 420, 892, 433, "ff0000-990000", 1.0)
b := Integer(b1)
c := dm.Ocr(875,420,883,433, "ff0000-990000", 1.0)
If c = "+"
{
d1 := a + b
}
else If c = "-"
{
d1 := a - b
}
else if c = "*"
{
d1 := a * b
}
d := String(d1) ;以上没有问题
dm_ret := dm.FindStr(799,454,977,634,d,"ffffff-666666",1.0,intX,intY)
MsgBox inX " ," inY
}