主页 > 知识库 > VBA解决Windows空当接龙的617局

VBA解决Windows空当接龙的617局

热门标签:北京语音电销机器人价格 邯郸外呼调研线路 武汉呼叫中心外呼系统线路商 电话机器人电话卡封号怎么办 买了外呼系统不想用了怎么办 浦东上海400开头的电话申请 乐昌电话机器人 真人语音电销机器人系统 开封百应电销机器人联系方式

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 编程基础
  • excel vba 高亮显示当前行代码
  • VBA 浏览文件夹对话框调用的几种方法
  • Excel VBA连接并操作Oracle
  • vba 获取PPT幻灯片中的所有标题的代码
  • VBA中连接SQLSERVER数据库例子

标签:松原 鄂州 六安 河北 自贡 石嘴山 宜春 淄博

巨人网络通讯声明:本文标题《VBA解决Windows空当接龙的617局》,本文关键词  VBA,解决,Windows,空当,接龙,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《VBA解决Windows空当接龙的617局》相关的同类信息!
  • 本页收集关于VBA解决Windows空当接龙的617局的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章