一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

腳本之家，腳本語言編程技術及教程分享平臺！
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - VBA - VBA解決Windows空當接龍的617局

VBA解決Windows空當接龍的617局

2020-06-04 10:27VBA教程網 VBA

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

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

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 国产精品久久现线拍久青草 | 四虎在线永久视频观看 | 精品9e精品视频在线观看 | 性欧美黑人巨大喷潮xxoo | 国产精品久久久久无毒 | 色老板影视| 日韩精品欧美高清区 | 日韩欧免费一区二区三区 | 美女扒开肌肌让男人桶 | 波多洁野衣一二区三区 | 欧美色综合高清免费 | 国产成人精视频在线观看免费 | 青青热久麻豆精品视频在线观看 | 四虎最新永久在线精品免费 | 久久久精品成人免费看 | 99久久免费国产特黄 | 五月丁开婷婷 | 日韩精品一二三区 | 国产老熟| 国产大胆歌舞团网站 | 午夜国产小视频 | 4tube高清性欧美 | 91无套极品外围在线播放 | 国产欧美一区视频在线观看 | 男人操女人动图 | 亚洲高清国产品国语在线观看 | 日韩精品一二三区 | jizz农村野外jizz农民 | 亚洲成人伦理 | 视频大全在线观看网址 | 欧美在线播放成人免费 | 国产suv精品 | 免费一级欧美大片在线观看 | 福利视频一区二区思瑞 | 欧美日韩一区二区三区在线视频 | 风间由美m3u8在线 | 精品一久久香蕉国产二月 | 黄瓜污视频 | 99热久久这里只有精品6国产网 | xxoosex久久久久久 | 免费导航|