用VBA解决Windows空当接龙的617局

用VBA解决Windows空当接龙的617局,第1张

概述用VBA解决Windows空当接龙的617局

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家,也给大家做个参考。

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 LongConst WM_CHAR = &H102Sub 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: LoopNextEnd Sub

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的用VBA解决Windows空当接龙的617局全部内容,希望文章能够帮你解决用VBA解决Windows空当接龙的617局所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1275280.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-08
下一篇 2022-06-08

发表评论

登录后才能评论

评论列表(0条)

保存