'send an AOL instant message
'Titan Joshua Crawford


Sub AOLInstantMessage(Person, message)
    Call RunMenuByString(AOLWindow(), "Send an Instant Message")


    Do: DoEvents
        AOL% = FindWindow("AOL Frame25", vbNullString)
        mdi% = FindChildByClass(AOL%, "MDIClient")
        IM% = FindChildByTitle(mdi%, "Send Instant Message")
        aoledit% = FindChildByClass(IM%, "_AOL_Edit")
        aolrich% = FindChildByClass(IM%, "RICHCNTL")
        imsend% = FindChildByClass(IM%, "_AOL_Icon")
        If aoledit% <> 0 And aolrich% <> 0 And imsend% <> 0 Then Exit Do
    Loop
    Call AOLSetText(aoledit%, Person)
    Call AOLSetText(aolrich%, message)
    imsend% = FindChildByClass(IM%, "_AOL_Icon")


    For sends = 1 To 9
        imsend% = GetWindow(imsend%, 2)
    Next sends
    AOLIcon (imsend%)


    Do: DoEvents
        AOL% = FindWindow("AOL Frame25", vbNullString)
        mdi% = FindChildByClass(AOL%, "MDIClient")
        IM% = FindChildByTitle(mdi%, "Send Instant Message")
        aolcl% = FindWindow("#32770", "America Online")
        If aolcl% <> 0 Then closer = SendMessage(aolcl%, WM_CLOSE, 0, 0): closer2 = SendMessage(IM%, WM_CLOSE, 0, 0): Exit Do
        If IM% = 0 Then Exit Do
    Loop
End Sub