私有聲明函數FindWindow Lib "user32 "別名" FindWindowA" (ByVal lpClassName為字符串，ByVal lpWindowName為字符串)為Long
私有聲明函數getwindowtextlib“user 32”別名“GetWindowTextA”(ByVal Hwnd為Long，ByVal lpString為String，ByVal cch為Long)為Long
私有聲明函數GetWindow Lib“user 32”(ByVal Hwnd壹樣長，ByVal wCmd壹樣長)壹樣長
私有聲明函數GetDesktopWindow Lib "user32 "()為Long
私有聲明函數GetClassName Lib "user32 "別名" GetClassNameA" (ByVal Hwnd為Long，ByVal lpClassName為String，ByVal nMaxCount為Long)為Long
私有聲明函數SendMessage Lib“user 32”別名“SendMessage a”(ByVal Hwnd為Long、ByVal wMsg為Long、ByVal wParam為Long、ByVal lParam為String)為Long
私有聲明函數SetWindowPos Lib " user 32 "(ByVal Hwnd As Long、ByVal hWndInsertAfter As Long、ByVal x As Long、ByVal y As Long、ByVal cx As Long、ByVal cy As Long、ByVal w flags As Long)Long
私有聲明子睡眠庫“kernel 32”(ByVal dw milliseconds壹樣長)
私有聲明函數PostMessage Lib“user 32”別名“PostMessageA”(ByVal Hwnd為Long，ByVal wMsg為Long，ByVal wParam為Long，ByVal lParam為Long)為Long
私有常量WM _ SETTEXT = & ampHC
私有常量GW_HWNDFIRST = 0
私有常量GW_HWNDNEXT = 2
私有常量GW_CHILD = 5
私有常量WM _ KEYDOWN = & ampH100
私人常數WM _ KEYUP = & ampH101
Dim A() As Long '定義數組。
私有子命令1_Click()
Temp = True
將Ai設為整數
將Ak標註為整數
Dim Hwnd壹樣長，l壹樣長
Dim s為字符串，T為字符串
List1。清楚的
Hwnd = GetDesktopWindow()
Hwnd = GetWindow(Hwnd，GW_CHILD或GW_HWNDFIRST)
而Hwnd & lt& gt0
Hwnd = GetWindow(Hwnd，GW_HWNDNEXT)
s =字符串(256，Chr(0))
GetClassName Hwnd，s，255
s = Replace(s，Chr(0)，"")
T =字符串(256，Chr(0))
GetWindowText Hwnd，T，255
T = Replace(T，Chr(0)，"")
多項活動
如果right (s，11)= " 8:10011:0 "和left (s，4) = "afx:" and t = "QQ game "那麽'窗口類名要匹配。
“EnumallHandleswnd”枚舉所有子控件/窗口。
如果…就會結束
行
如果列表1。ListCount & gt那麽0
ReDim A(0到List1。ListCount - 1)壹樣長
將I標註為整數
對於i = 0至下界(A)
A(i) = Val(Mid(List1。清單(壹)，4))
T = mid (list1.list (i)，instr (list1.list (i)，"父句柄類型")+6)。
T = Left(T，8)
如果T & lt& gt那就“組合框”
A(i) = 0
如果…就會結束
接下來我
其他
Temp = False
MsgBox“遊戲窗口未找到”，vbCritical，“錯誤”
出口接頭
如果…就會結束
如果列表1。ListCount & gt那麽0
對於i = 0至下界(A)
如果A(I)& lt；& gt那麽0
l = SendMessage(A(i)，WM_SETTEXT，0，" aaaaaa " & ampChr(0))
睡眠10
多項活動
l = PostMessage(A(i)，WM_KEYDOWN，vbKeyReturn，0)
睡眠10
多項活動
l = PostMessage(A(i)，WM_KEYUP，vbKeyReturn，0)
睡眠10
多項活動
如果…就會結束
接下來我
如果…就會結束
末端接頭
私有子枚舉句柄(ByVal Hwnd As Long)
Dim hn壹樣長
Dim firsthd As Long
Dim s為字符串，T為字符串
firsthd = GetWindow(Hwnd，GW_CHILD)
firsthd = GetWindow(firsthd，GW_HWNDFIRST)
hn = firsthd
當hn & lt& gt0
s =字符串(256，Chr(0))
255英鎊
s = Replace(s，Chr(0)，"")
T =字符串(256，Chr(0))
GetClassName Hwnd，T，255
T = Replace(T，Chr(0)，"")
多項活動
如果s = "Edit "那麽'如果它滿足要求，它將被添加到列表中。
List1。AddItem " handle:" &；hn & amp"父句柄:" &；Hwnd & amp" Class & amp:" &；標準普爾。"父句柄類型:" &；T & ampvbCrLf
如果…就會結束
EnumAllHandles hn '遞歸搜索，不要放過子控件。
hn = GetWindow(hn，GW_HWNDNEXT)
如果hn = firsthd，則退出Do
環
末端接頭
私有子命令2_Click()
末端接頭