[VB6]Appear Online And Offline In MSN[VB6]

[Bump J]

This will show you how to appear offline and online in MSN with you just pressing a button

1. Open up a new project then go to project > refreces and look for Messenger API and check it and press ok

2. Go to the very top of the code and put this

Private MSN As MessengerAPI.Messenger

3. Go to Form_Load and put this

Set MSN = New Messenger

4. Create a timer and put the interval as 500 and change the enabled as false then put this code in it

MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE

5. Create a command button and put this code in it

Timer1.Enabled = True

6. Create another command button and put this code in it

Timer1.Enabled = False

the whole code should look something like this

Private MSN As MessengerAPI.Messenger

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Set MSN = New Messenger
End Sub

Private Sub Timer1_Timer()
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
End Sub

then test it and see if it worked

[Zachafer]

Cool.
Was wondering about that,
Now how to get nudges.

[Mrnoname10]

Or just right click msn and go on apear offline

[second2none]

you but this you can hotkey it & do it about 100 times in about 5 seconds.

[warewoft]

do it 100 time in 5s.
I think 50 in 5s is best