AutoHotkey Community

OnlineOffline=0

#o::
   ; Microsoft Messenger
   Run, "C:\Program Files\Messenger\msmsgs.exe"
   WinWaitActive, Windows Messenger,,5
   If ErrorLevel <> 0
   {
      MsgBox, 48, set online/offline, cannot open Windows Messenger!, 2
      Return
   }
   Send, {Alt}F
   if OnlineOffline = 0
   {
      OnlineOffline = 1
      Send, mb
   }
   else
   {
      OnlineOffline = 0
      Send, mo
   }
   WinWaitActive, Windows Messenger,,5   
   Send, {ALT}f
   Send, c
   ; Skype
   Run, "C:\Program Files\Skype\Phone\Skype.exe"
   WinWaitActive, Skype,,5
   If ErrorLevel <> 0
   {
      MsgBox, 48, set online/offline, cannot open Skype!, 2
      Return
   }
   Send, {Alt}F
   if OnlineOffline = 1
   {
      Send, cd
   }
   else
   {
      Send, cn
   }
   WinWaitActive, Skype,,5
   Send, {ALT}f
   Send, s   
Return