• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make a IM anwsering machine. ITS COOL AND EASY TO MAKE

Make a IM anwsering machine. ITS COOL AND EASY TO MAKE

Make a IM anwsering machine. ITS COOL AND EASY TO MAKE

Rate Make a IM anwsering machine. ITS COOL AND EASY TO MAKE

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Do
Dim IM As Long, Rich As Long, Icon As Long
IM& = FindIM&
If IM& = 0& Then Exit Sub
Rich& = FindWindowEx(IM&, 0&, "RICHCNTL", vbNullString)
Rich& = FindWindowEx(IM&, Rich&, "RICHCNTL", vbNullString)
Icon& = FindWindowEx(IM&, 0&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Icon& = FindWindowEx(IM&, Icon&, "_AOL_Icon", vbNullString)
Call SendMessageByString(Rich&, WM_SETTEXT, 0&, Msg$)
DoEvents
Call SendMessage(Icon&, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessage(Icon&, WM_LBUTTONUP, 0&, 0&)
Loop

Stop Button:

Do
DoEvents
Loop