用VBA解决Windows空当接龙的617局
发布时间:2020-12-17 08:01:15 所属栏目:百科 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String,ByVal lpWindowName As String) As Long Declare Fu
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 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 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |