Shoutbox

On Connection - Printable Version

-Shoutbox (https://shoutbox.menthix.net)
+-- Forum: MsgHelp Archive (/forumdisplay.php?fid=58)
+--- Forum: Messenger Plus! for Live Messenger (/forumdisplay.php?fid=4)
+---- Forum: Scripting (/forumdisplay.php?fid=39)
+----- Forum: Plug-Ins (/forumdisplay.php?fid=28)
+------ Thread: On Connection (/showthread.php?tid=38328)
On Connection by Fröt on 02-12-2005 at 06:55 PM

Hi!

I have to change the display name for one time in a day.For this i must check if day past and if past change the display name on connection..

I did a MsgPlus! command ("/x..").

Shortly;

How can i give a command to msn in connection! or when connected.

or

what is the func for understand the user is connected to msn server..

thanks

I am using Visual Basic v6




I suppose it was very complicated!

Alright;

How can i create a loop to check if day's past and act.

RE: On Connection by matty on 02-12-2005 at 07:19 PM

code:
Private MessengerAPI
Option Explicit

Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
    Set MessengerAPI = oMessenger

    If MessengerAPI.MyStatus <> MISTATUS_OFFLINE Then
        retval = SetNewName("New Name")
    Endif
End Function

If that will check to see if the user is logged into Messenger if it is you change change the name when the Plugin is initialized.

Also please try to refrain from double posting. Use the [Image: edit.gif] button to edit your posts.

Edit: Now here is some count down code for you.
code:
DateDiff("d", Now, "12/12/2005")
This will tell you how many days you have till 12/12/2005. You can store a value in the registry on the last day it was changed then change it accordingly.
RE: On Connection by Fröt on 02-12-2005 at 07:40 PM

Matty/

My countdown code is already done. thank you


my code is now looking like this:

code:
Dim retval
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
Set objMessenger = oMessenger
    Initialize = True
     If objMessenger.MyStatus <> MISTATUS_OFFLINE Then
        retval = SetNewName("New Name")
    End If
End Function

i opened the msn to try it but nothing happened !!


ps.in previous entry,accidentally i pressed quote instead of edit..sorry.
RE: On Connection by RaceProUK on 02-12-2005 at 09:25 PM

If you're using VB, use the OnMyStatusChange event.

RE: RE: On Connection by Fröt on 02-12-2005 at 09:38 PM

quote:
Originally posted by raceprouk
If you're using VB, use the OnMyStatusChange event.




hmmm

how can i use it eheh