dim ak = "6uBQ2dbqSsfQmSgfCNhH7GgC"
dim sk = "ki3emgrW881dSIfLtBjVVPE3tGErQ3D3"
Dim qmc=["UiBot 交流","商派软件-微好店","不常用群聊"]
dim objPonit = ""
For i = 0 To 2 step 1
#icon("@res:6h4090ds-k4qq-aa3m-oiij-tnfsqlfi47c2.png")
objPonit = OCR.Find({"wnd":[{"cls":"TXGuiFoundation","title":"TIM","app":"TIM"}]}, {"x":0,"y":0,"width":960,"height":1050}, "baidu2", ak, sk, qmc[i], "instr", 1, 10000, {"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true})
Delay(1000)
Mouse.Move(objponit["x"], objponit["y"], false)
Mouse.Click("left", "click", [])
TracePrint(objPonit)
Next