欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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一類的工具，寫一段自動(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)文章

最新評(píng)論