空当接龙 java,VBA解决Windows空当接龙的617局

Windows的自带游戏空当接龙，其中第617局是比较难解的，需要尝试的次数比较多，而且经常忘记解法和步骤。

原本希望使用AutoIt或AutoHotkey、AAuto一类的工具，写一段自动化脚本快速解决这一局，但这些工具需要安装，而且容易被当做病毒。通过Office中的VBA调用Windows的API，对游戏窗口发送按键消息，可以快速演示解法。

Declare Function FindWindow Lib "user32" Alias _

"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_CHAR = &H102

Sub f()

s = "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"

h = FindWindow("FreeWClass", "空当接龙游戏 #617")

For i = 1 To Len(s)

c = Mid(s, i, 1)

m = 0.1

If c >= "0" And c <= "9" Then

a = SendMessage(h, WM_CHAR, Asc(c), 0)

Else

m = 0.3

End If

m = m + Timer: Do While Timer < m: DoEvents: Loop

End Sub

空当接龙 java,VBA解决Windows空当接龙的617局相关推荐

双截龙java游戏下载_双截龙合集游戏
双截龙合集是已中国已故明星为样本而设计的一款游戏,双截龙合集由TECHNOS推出的街机动作游戏,目前已经有4部问世,并成为卷轴式格斗游戏的始祖.由于<双截龙>的团队是李小龙的影迷,所以在设 ...
空当接龙java源码_空当接龙java源代码
[实例简介] 老师要求编写的代码,除了不能一起多张移牌剩下的都跟电脑的一样! [实例截图] [核心代码] 空当接龙 └── 空当接龙 ├── bin │ └── turing │ ├── BS ...
最早游戏空当接龙计算机,Windows空当接龙30周年！至今每月还有3500万名玩家
原标题:Windows空当接龙30周年!至今每月还有3500万名玩家相信很多用户第一次接触电脑玩到的游戏就是空当接龙和扫雷了.如今空当接龙游戏已经推出30周年了,这款小游戏已发布在超过10 亿台安装 ...
解决windows 2003 sp1下安装arcsde 9.0 for sql server 2000 sp4概要方案
解决windows 2003 sp1下安装arcsde 9.0 for sql server 2000 sp4概要方案安装sql server 2k sp4到windows 2003 sp1上: 安 ...
UG安装问题：载入Java VM时Windows出现错误:2 and 初始化错误NX License Error:The desired vendor daemon is down。[-97]
UG安装问题:载入Java VM时Windows出现错误:2 and 初始化错误NX License Error:The desired vendor daemon is down.[-97] 载入J ...
服务器2012系统评估版,解决windows server2012 评估版本过期，系统会自动关机
解决Windows时间同步失败问题!系统时间同步设置! 使用NTP协议可以让你的计算机自动与服务器上的时间同步.从而保持最准确的时间. 中国国家授时中心的IP地址是:210.72.145.44 (至少 ...
解决Windows平台通过cURL上传APP到蒲公英pgyer平台时无法使用中文升级描述的问题...
解决Windows平台通过cURL上传APP到蒲公英pgyer平台时无法使用中文升级描述的问题官方上传命令 curl -F file=@"315.apk" -F uKey=XXX ...
java多线程解决应用挂死的问题
java多线程解决应用挂死的问题参考文章: (1)java多线程解决应用挂死的问题 (2)https://www.cnblogs.com/hushaojun/p/4323808.html (3)ht ...
解决 Windows Docker 安装 Gitlab Volume 权限问题
解决 Windows Docker 安装 Gitlab Volume 权限问题参考文章: (1)解决 Windows Docker 安装 Gitlab Volume 权限问题 (2)https:// ...

空当接龙 java,VBA解决Windows空当接龙的617局

空当接龙 java,VBA解决Windows空当接龙的617局相关推荐

最新文章

热门文章