Description

Send a line of chat to AOL 3

Author

Anon

Code

Sub AOLSend(Txt)
room% = AOLFindRoom()
Call AOLSetText(FindChildByClass(room%, "_AOL_Edit"), Txt)


DoEvents
Call SendCharNum(FindChildByClass(room%, "_AOL_Edit"), 13)
End Sub

Information

tested using VB 6 , Windows XP

Download

aolchat3.txt