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

by gie (16 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 8^th June 1999
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



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

Download this snippet Add to My Saved Code

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

No comments have been posted about Make a IM anwsering machine. ITS COOL AND EASY TO MAKE. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty