Valhalla Legends Archive

Programming => General Programming => Visual Basic Programming => Topic started by: CrAz3D on October 21, 2003, 11:25 PM

Title: AIM Api calls
Post by: CrAz3D on October 21, 2003, 11:25 PM
I cannot seem to be able to get the correct id for opening a blank IM window.  Can anyone help?

(I can place info into the username box, the content box & hit send I just need to open the window to begin with.)
Title: Re:AIM Api calls
Post by: CupHead on October 21, 2003, 11:30 PM
AppActivate "ScreenName's Buddy List Window"
SendKeys "{ALT}+I"
Title: Re:AIM Api calls
Post by: CrAz3D on October 22, 2003, 12:00 PM
I'm trying to figure out how to window a specific user's IM Window.  So far I can only get their handle #, not the text of it.
Title: Re:AIM Api calls
Post by: CupHead on October 22, 2003, 12:01 PM
Why are you even doing this to begin with?
Title: Re:AIM Api calls
Post by: CrAz3D on October 22, 2003, 12:18 PM
I'm trying to make a command for my bot, i.e. `aim {person} {message}

I don't want to make an entire AIM client, just be able to send messages to AIM like Winamp.
Title: Re:AIM Api calls
Post by: CupHead on October 22, 2003, 12:57 PM
It's not API, but it works.

To open a new IM window:

AppActivate "ScreenName's Buddy List Window"
SendKeys "%i", True
SendKeys "+{TAB}ScreenName{TAB}", True
SendKeys "Text To Send~", True


To send a message in an existing window:

AppActivate "Screen Name - Instant Message"
SendKeys "Text To Send~", True


To get someone's info:

AppActivate "Screen Name's Buddy List Window"
SendKeys "%o"
SendKeys "+{TAB}Screen Name~"
Title: Re:AIM Api calls
Post by: CrAz3D on October 22, 2003, 06:23 PM
It works!
http://crazedmind.net/doombot/1.gif (http://crazedmind.net/doombot/1.gif)
http://crazedmind.net/doombot/2.gif (http://crazedmind.net/doombot/2.gif)

Case "newaim"
           msg = Split(pA(1), " ", 2)
               AppActivate frmOptions.txtAIMName.text & "'s Buddy List Window", False
               SendKeys "%i" & msg(0), False
               SendKeys "{TAB}", False
               SendKeys msg(1), False
               SendKeys "%s", False
       Case "aim"
           msg = Split(pA(1), " ", 2)
           'AddChat vbRed, MSG(0)
               AppActivate msg(0) & " - Instant Message", False
           'AddChat vbRed, MSG(1)
               SendKeys msg(1), False
               SendKeys "%s", False



EXTREME Thanks to CupHead for learnin me them SendKeys functions.
Title: Re:AIM Api calls
Post by: Tuberload on October 22, 2003, 06:56 PM
QuoteEXTREME Thanks to CupHead for learnin me them SendKeys functions.

you mean, for teaching you those SendKey functions?
Title: Re:AIM Api calls
Post by: CrAz3D on October 22, 2003, 08:16 PM
Yes, I was just in my native language mode, I am a hickonite.
Title: Re:AIM Api calls
Post by: SiMi on October 23, 2003, 09:33 PM
ahaha on the second picture you can see that the aim sn is o0oForgeDo0o. It says it where it says o0oForgeDo0o's Warning Level :0% .
Title: Re:AIM Api calls
Post by: CrAz3D on October 23, 2003, 10:40 PM
Oops?  Oh well, I at least tried, can't blame me for being tired & excited & 'minimalistic' all at the same time.

Minimalistic is a word a friend changed the meaning of, it now replaces rebundancy.