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

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

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

 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 被肉日常np高h | 青青青国产成人久久111网站 | 欧美成年黄网站色高清视频 | 欧美在线播放一区二区 | 亚洲成人免费看 | 短篇最污的乱淫伦小说全集 | 精品久久久久久久久免费影院 | 无码爽死成人777在线观看网站 | 99九九国产精品免费视频 | 日本xxoo动图网站欧美 | 亚洲 欧美 中文 日韩 视频 | 精品无码国产污污污免费网站2 | 视频一区二区 村上凉子 | 人人干国产 | 视频在线免费看 | 大乳奶水bbw | 女人pp被扒开流水了 | 国产盗摄女厕美女嘘嘘 | 热穴高校 | 亚洲成人在线播放 | 日韩精品欧美国产精品亚 | 射西西| 视频一区国产精戏刘婷 | 奶茶视频有容乃大 | 天天舔天天操天天干 | 国产成人lu在线视频 | 男人把大ji巴放进女人小说 | chinese圣水黄金调教 | 脱了白丝校花的内裤猛烈进入 | 免费日本在线视频 | 国产精品秒播无毒不卡 | v视界影院.vsjla | 国产午夜小视频 | 欧美一级激情 | 日韩欧美一区二区三区 | 极品久久| 99视频一区| 国产成人免费观看在线视频 | 国产在线观看人成激情视频 | 色综合亚洲天天综合网站 | 日韩国产成人精品视频人 |