VBA解決Windows空當(dāng)接龍的617局

更新時(shí)間：2015年09月13日 16:50:10 投稿：hebedich

本文給大家分享的是使用VBA解決Windows空當(dāng)接龍的617局的方法和思路，有需要的小伙伴可以參考下。

Windows的自帶游戲空當(dāng)接龍，其中第617局是比較難解的，需要嘗試的次數(shù)比較多，而且經(jīng)常忘記解法和步驟。

原本希望使用AutoIt或AutoHotkey、AAuto一類的工具，寫(xiě)一段自動(dòng)化腳本快速解決這一局，但這些工具需要安裝，而且容易被當(dāng)做病毒。通過(guò)Office中的VBA調(diào)用Windows的API，對(duì)游戲窗口發(fā)送按鍵消息，可以快速演示解法。

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", "空當(dāng)接龍游戲 #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

您可能感興趣的文章:

相關(guān)文章

VBA工程加密PJ方式(兩種)
今天遇到一個(gè)excel小工具感覺(jué)不錯(cuò)，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來(lái)通過(guò)本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧
2021-12-12
VBA 中要用到的常數(shù)
VBA 中要用到的常數(shù)...
2007-02-02
excel vba 限制工作表的滾動(dòng)區(qū)域代碼
如果希望限制工作表中滾動(dòng)的區(qū)域，可以通過(guò)設(shè)置WorkSheet對(duì)象的ScrollArea屬性來(lái)實(shí)現(xiàn)。
2009-07-07
VBA實(shí)現(xiàn)全文件快速替換的示例代碼
要想一下子就替換掉很多個(gè)WORD文檔中的內(nèi)容,我們可以使用VBA的辦法,本文主要介紹了VBA實(shí)現(xiàn)全文件快速替換的示例代碼,具有一定的參考價(jià)值,感興趣的可以了解一下
2023-08-08
VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較分析
這篇文章主要介紹了VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較,本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2020-04-04
vba 獲取PPT幻燈片中的所有標(biāo)題的代碼
有時(shí)候需要獲取PPT幻燈片中的所有標(biāo)題，如果手工的復(fù)制肯定很慢，那么可以用vba批量獲取，提高工作效率。
2010-08-08
Excel·VBA合并工作簿的實(shí)現(xiàn)示例
本文主要介紹了Excel·VBA合并工作簿的實(shí)現(xiàn)示例，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧
2023-01-01
VBA實(shí)現(xiàn)合并具有文本框的Word文檔
這篇文章主要為大家詳細(xì)介紹了如何基于VBA語(yǔ)言,對(duì)大量含有圖片、文本框與表格的Word文檔加以批量自動(dòng)合并,感興趣的小伙伴可以跟隨小編一起學(xué)習(xí)一下
2024-11-11
Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn)
表格拆分是常見(jiàn)的數(shù)據(jù)處理，本文主要介紹了Excel?VBA按列拆分工作表和工作簿的實(shí)現(xiàn)，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧
2023-01-01
VBA UsedObjects 集合用法
可用 Application 對(duì)象的 UsedObjects 屬性返回一個(gè) UsedObjects 對(duì)象。
2009-07-07