闲暇之余，我特别喜欢微软的空当接龙和蜘蛛纸牌游戏，刚开始，觉得好玩，后来，看到论坛和网上的玩法，就想能否实现自动玩法，让VBA来完成，自己在一旁欣赏，岂不好玩。几年前，我曾在这方面作了努力，特别是XP系统，网上有VB玩法，也有VBA玩法。后来，系统升级到win7系统，原来的程序，也不能适应，于是就想到自己写个解法，限于技术不行，没有成功，最近在读到网友的文章，和自己之前的文章，又产生接着把以前的程序完善一下的想法。
一种是选局。先要找到“空当接龙”句柄，还要找到选局的句柄，再要找到“确定”按钮的句柄，然后发送消息。
二是玩法。
下图是空当接龙牌局，0——9的位置，玩法大家都懂，我就不介绍了。在VBA中，下面的牌1——8，要到左上角很容易，但是左上角的牌到下面的空档位置，以及哪张牌下来，怎么表达，我对这个都有点模糊。
附件记录了牌局的选局，和前面一大半的玩法，即第7组之前都是成功的，我在2003、2007都测试成功。不成功的我已经标出。
暂时我没有时间和精力玩这个，如果你有兴趣，请继续完成，请把玩法发上来。
忘了617局玩法
就像http://club.excelhome.net/thread-1534857-1-1.html，这里介绍的。
"83 80 83 81 80" & _ "20 27 72 " & _ "48 46 41 48 42 "& _ "89 48 70 74 78 07 40 27 "& _ "10 14 004 10 01 16 19 "& _ "20 002 42 21 20 "& _ "32 34 24 32 42 34 30 38 "& _ "58 53 63 57 56 50 "& _ "10 10 13 15 35 13 12 18"
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2020-5-16 08:32
楼主
