asked on
Dim nHwnd As Long
Dim nEditHwnd As Long, mainContainerHwnd As Long, maincontainer2hwnd As Long
Dim nText As String * 256
nHwnd = FindWindow(vbNullString, "Mesa (heads up) - $0.50/$1 - No Limit Hold'em - Logged In As")
mainContainerHwnd = FindWindowEx(nHwnd, 0&, "FTCTableSlider", vbNullString)
maincontainer2hwnd = FindWindowEx(mainContainerHwnd, 0&, "FTCSlider", vbNullString)
nEditHwnd = FindWindowEx(maincontainer2hwnd, 0&, "Edit", vbNullString)
SendMessageSTRING nEditHwnd, WM_GETTEXT, 256, nText
msgbox ntext