.版本 2
.支持库 spec
.支持库 eAPI
.支持库 dm
whwnd = 窗口_取句柄 (, , “WeChatMainWndForPC”, )
.如果 (whwnd ≠ 0)
调试输出 (“有句柄”, whwnd)
调试框1.加入文本 (“找到微信窗口句柄”, 到文本 (whwnd))
窗口_置位置和大小 (whwnd, 1369, 70, 770, 1000)
延迟 (20)
窗口_激活 (whwnd)
调试框1.加入文本 (“已经移动完毕微信窗口”, 到文本 (whwnd))
' 鼠标_移动 (whwnd, 145, 41)
' 延迟 (1000)
' 鼠标_按键 (1, 2)
模拟鼠标点击 (1481, 109, 0)
延迟 (1000)
模拟鼠标点击 (1481, 109, 1)
延迟 (500)
置剪辑板文本 (微信名.内容)
延迟 (20)
模拟按键 (#Ctrl键, #V键, )
延迟 (1000)
模拟按键 (#回车键, , )
延迟 (200)
绑定情况 = dm.BindWindowEx (whwnd, “normal”, “windows”, “windows”, “dx.public.active.api|dx.public.active.message”, 0)
.如果 (绑定情况 = 1)
调试框1.加入文本 (“微信绑定成功”)
.否则
调试框1.加入文本 (“微信绑定失败”)
.如果结束
.否则
调试框1.加入文本 (“没有窗口句柄,请看看是否打开微信程序”)
.版本 2
.支持库 dm
.支持库 spec
.支持库 eAPI
.子程序 _按钮11_被单击
.局部变量 x1, 整数型
.局部变量 y1, 整数型
' 1。截图与对比
' dm.Capture (332, 758, 454, 825, “截图1.bmp”)
dm.Capture (378, 723, 521, 833, “截图1.bmp”)
验证1 = 1
.判断循环首 (验证1 = 1)
延迟 (5000)
.如果真 (截图验证 (“截图1”) = 假)
跳出循环 ()
.如果真结束
.判断循环尾 ()
调试输出 (“跳出第一次截图”, 验证1)
验证1 = 1
.判断循环首 (验证1 = 1)
' 删除文件 (“d:截图2.bmp”)
dm.Capture (347, 739, 465, 810, “截图2.bmp”)
延迟 (8000)
.如果真 (截图验证 (“截图2”) = 真)
跳出循环 ()
.如果真结束
.判断循环尾 ()
调试输出 (“跳出第二次截图,资料全部传好了”, 验证1)
验证1 = 1
' 开始找图咯
dm.MoveTo (325, 804)
dm.LeftDoubleClick ()
延迟 (500)
dm.LeftDown ()
.判断循环首 (验证1 = 1)
延迟 (500)
dm.FindPic (310, 616, 552, 854, “截图1.bmp”, “000000”, 0.9, 0, x1, y1)
.如果 (x1 > 0)
dm.MoveTo (x1, y1 + 10)
跳出循环 ()
.否则
dm.WheelUp ()
dm.WheelUp ()
.如果结束
.判断循环尾 ()
模拟按键 (#Ctrl键, #C键, )
dm.LeftUp ()
调试输出 (“跳出来了”, 验证1)
.版本 2
.支持库 dm
.支持库 spec
.子程序 截图验证, 逻辑型
.参数 图片名字, 文本型
.局部变量 x1, 整数型
.局部变量 y1, 整数型
.局部变量 m, 整数型
图片名字 = 图片名字 + “.bmp”
dm.FindPic (316, 522, 550, 853, 图片名字, “000000”, 0.9, 0, x1, y1)
延时 (200)
.如果 (x1 > 0)
调试输出 (“找到了坐标”, x1, y1, 图片名字)
返回 (真)
.否则
调试输出 (“没有找到” + 图片名字 + “坐标,继续等待”, x1, y1, )
返回 (假)
截图1找的到,截图2总是找不到,请教大神是什么原因。
|