I attempted to try and solve some of it, but I'm missing something, could anybody tell ?
Code: Select all
TrayTip, % Title:="Title", % Text:="Text"
DetectHiddenWindows, On
wParam:=StrLen(Text)+1
cbSize:=4+4+A_PtrSize+(A_Is64bitOS ? 8 : 4)+16+A_PtrSize+( wParam * (A_IsUnicode) ? 2 : 1 )
FileGetVersion, _WIN32_IE, %A_ProgramFiles%\Internet Explorer\iexplore.exe
If (floor(_WIN32_IE)>=3)
cbSize+=A_Is64bitOS ? 8 : 4
VarSetCapacity(lParam,cbSize,0)
NumPut(cbSize,lParam,0,"UInt")
NumPut(uFlags:=0,lParam,4,"UInt")
NumPut(hwnd:=A_ScriptHwnd,lParam,8,"Ptr")
NumPut(uId:=0,lParam,8+A_PtrSize,A_Is64bitOS ? "UInt64" : "UInt")
NumPut(Rect_Left:=0,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+4,"Int")
NumPut(Rect_Top:=0,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+4+4,"Int")
NumPut(Rect_Right:=A_ScreenWidth,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+4+4+4,"Int")
NumPut(Rect_Bottom:=A_ScreenHeight,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+4+4+4+4,"Int")
NumPut(hInstance:=0,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+16,"Ptr")
NumPut(lpszText:=0,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+16+A_PtrSize,"UInt")
If (floor(_WIN32_IE)>=3)
NumPut(lParam_struct:=0,lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+16+A_PtrSize+(wParam * ( (A_IsUnicode) ? 2 : 1 )),A_Is64bitOS ? "UInt64" : "UInt")
SendMessage,TTM_GETTEXT:=0x0400+56,wParam,lParam, , ahk_id %A_ScriptHwnd%
Text2:=""
Loop, % wParam-1
Text2.=NumGet(lParam,8+A_PtrSize+(A_Is64bitOS ? 8 : 4)+16+A_PtrSize+A_Index-1,"Char")
MsgBox % Text2
return