Help!

[flame_211]

if u are familiar with aol does ne one know the
source code for an aol im answering
machine, if u do please post it, thnak you

Flame

[flame_211]

i love talkin to myself, the only reason i talk to
myself is because no one ever replies to me ever
so if u would be so kind as to reply with an answer it
would be greatly appreciated,

Flame

I dont think AOL would give out there source code.
Somebody could do it, by disassembling the program, into ASM, then rewriting it into C++, or VB.. but you would have to know ASM, C++, and VB.

Other than that, I cant help you. Sorry.

IM Answering Machines do not work on AOL anymore due to the reflection of ims. You will get an error. If you are still interested in the im answering machine. Search the internet for AOL bas files.

[flame_211]

thanks, but i have all the bas files but i dont know how
to make the program respond when there is an im sent to you
when you are away from ur computer.

Well, you have to find the IM window first. Use an api spyer. Get some info here: http://forums.vb-world.net/showthrea...threadid=19390 and I recommend you use Patorjk's Api Spy 5.0 to find the window.

You can either use Sendkeys or api. I am almost sure that in 1 of your aol bas files, there is something about IMs. Use your brain! ;]

Good luck!

[flame_211]

i already have the bas files for the im answering machine
just i dont know how, so when u click on a list box item ,like some ones screen name, it shows what message they said.

I made an Aol punter a long time ago using VB 3.0 which includes an IM answering machine. I have the program, unfortunately, I don't have the forms. But you can decompile it, and try and rearrange the code around. I can send you the program if you want. You have to find the decompiler though. I'm sure there's a link to one on this site somewhere.

FOUND!

Start Button:
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

Try this site for more stuff: http://www.knk2000.com/knk