VBA解决Windows空当接龙的617局

更新时间：2015年09月13日 16:50:10 投稿：hebedich

本文给大家分享的是使用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
Next
End Sub

您可能感兴趣的文章:

VBA数组去重(字典去重多种方法+数组去重2种方法)
本文主要介绍了VBA数组去重(字典去重多种方法+数组去重2种方法),文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
2023-08-08
vba将excel按照某一列拆分成多个文件
本文主要介绍了vba将excel按照某一列拆分成多个文件，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧<BR>
2023-01-01
VBA实现全文件快速替换的示例代码
要想一下子就替换掉很多个WORD文档中的内容,我们可以使用VBA的办法,本文主要介绍了VBA实现全文件快速替换的示例代码,具有一定的参考价值,感兴趣的可以了解一下
2023-08-08
Excel?VBA指定条件删除整行整列的实现
本文主要介绍了Excel?VBA指定条件删除整行整列的实现，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
2023-01-01
VBA处理数据与Python Pandas处理数据案例比较分析
这篇文章主要介绍了VBA处理数据与Python Pandas处理数据案例比较,本文通过实例代码给大家介绍的非常详细，具有一定的参考借鉴价值，需要的朋友可以参考下
2020-04-04
VBA中Excel宏的介绍及应用
本文主要介绍了VBA中Excel宏的介绍及应用，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
2023-05-05
VBA 中要用到的常数
VBA 中要用到的常数...
2007-02-02
VBA将excel数据表生成JSON文件
本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路，非常的实用，有需要的小伙伴可以参考下。
2015-09-09
excel vba 限制工作表的滚动区域代码
如果希望限制工作表中滚动的区域，可以通过设置WorkSheet对象的ScrollArea属性来实现。
2009-07-07
VBA工程加密PJ方式(两种)
今天遇到一个excel小工具感觉不错，想研究研究代码，竟然有密码，我就不淡定了。网上找了找代码，改了一下就OK了。接下来通过本文给大家分享两种方式破解VBA工程加密，需要的朋友参考下吧
2021-12-12