按键精灵
这里以下面的背包为例进行讲解。首先 定义背包 Dim beibao(5, 7) /////5是行,因为从0开始,所以数字应该是5, 7就是列了
找到 第一个格子,左上角和右上角的坐标,x1 = 19y1 = 90x2 = 15y2 =124
然后,找出第一个格子左上角的纵坐标y1和下一行第一个格子左上角的纵坐标y2 之间的差值j 这里j=48 ;同样找出第一个格子左上角的横坐标x1 和 同行第二个格子左上角的横坐标x2之间的差值i 这里i=48 。
第四步. 截取一个 空格子的图片,命名为 格子。下面语句直接复制就可以了。For i = 0 to UBound(beibao, 5) //////////5 指的是行For j = 0 to UBound(beibao, 7) ///////////////////下面的数据 根据你自己编写 FindPic x1 + j*48 ,y1 + i * 45 ,x2 + j * 48 ,y2 + i *45 ,'Attachment:\格子.bmp',0.9,intX,intY If intX > 0 And intY > 0 Then TracePrint '说明该格子是空的' End If Next Next这样就找出所有空格子了。
这里方式全部代码Dim beibao(5, 7) //////////////////////遍历物品栏 x1 = 19y1 = 90x2 = 15y2 = 124 ///////////////x1 y1 x2 y2 指的是第一个格子的左上角 右上角For i = 0 to UBound(beibao, 5) //////////5 指的是行 For j = 0 to UBound(beibao, 7) ///////////////////下面的数据 根据你自己编写 FindPic x1 + j*48 ,y1 + i * 45 ,x2 + j * 48 ,y2 + i *45 ,'Attachment:\格子.bmp',0.9,intX,intY If intX > 0 And intY > 0 Then TracePrint '说明该格子是空的' End If Next Next
如有问题,或需要我帮忙加我公众号留言即可,无偿帮写简单脚本
文中为找出空格子,那么相反就是有物品。在for循环中,在进行相关操作就可以了