I have a form that is called from my plugin in VB6 (thanks guys), how can i put a timer on the form that is able to trigger every 5 seconds, that will be able to use msgplus functions/commands such as /nick or /brb?

Make a timer.

Set the interval to "5000" (Its in miliseconds)

Make sure you enable the timer.

Make the timer code be

code:

---

Private Sub Timer1_Timer()
sResult = "/nick NoName"
End Sub

---

code:

---

private sub form_load()
timer1.invertal = 5000
end sub

private sub timer1_timer ()
send message /nick
timer1.interval = 5000
end sub

---

noname, read what he asked. Changing a variable sResult will not change a thing
jwb, your code is *excuse me for the word* crap

TheCodeSmith, you can't just trigger commands. You have to wait for msgplus to call events. Only then you can use them, unless you do it manually

quote:

---

Originally posted by Millenium_edition
TheCodeSmith, you can't just trigger commands. You have to wait for msgplus to call events. Only then you can use them, unless you do it manually

---

You don't NEED to use the Messenger Plus! API.

Code to call the event in the plugin.

code:

---

Public Function ParseCommand(ByVal sCommand As String, ByVal sCommandArg As String, ByVal oConversationWnd As Object, ByRef sResult As String) As Boolean
    If (StrComp(LCase(sCommand), "/xsample", vbTextCompare) = 0) Then
        sResult = ""
        DoEvents
        Sleep 5000
        SendText "/nick " & MyNickName, True, True
        If SendText = True then
                Sleep 5000
                SendText "/brb", True, True
        End If

        ParseCommand = True
        Exit Function
    End If
    ParseCommand = False
End Function

---

code:

---

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Const VK_RETURN = &HD
Public Const WM_CHAR = &H102
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101

Public hDirectUI As Long
Public hPrevWnd As Long
Public i As Integer
Public imwindowclass As Long

---

code:

---

Public Sub SendText(sText As String, Optional bSend As Boolean = False, Optional bKeepFocus As Boolean = True) As Boolean

imwindowclass = FindWindow("imwindowclass", vbNullString)
If imwindowclass = 0 Then MsgBox "A conversation window needs to be open before setting text.", vbInformation + vbOKOnly, "Error:": SendText = False: Exit Sub
hDirectUI = FindWindowEx(imwindowclass, 0, "DirectUIHWND", vbNullString)
hPrevWnd = GetForegroundWindow
   
'This bit idles code execution until the window is in focus
'the IM window must be in focus to recieve WM_CHAR notifications
    Do
        Call SetForegroundWindow(hDirectUI)
    Loop Until GetForegroundWindow = hDirectUI
   
'Post each character
    For i = 1 To Len(sText)
        Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText, i, 1)), 0)
    Next i

'Simulate the enter key being pressed if necessary
    If bSend Then
        Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&)
        Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&)
       
    End If

'If the window is not wanted to be kept in focus then bring back the previous
    If Not bKeepFocus Then
        Call SetForegroundWindow(hPrevWnd)
    End If
        SendText = True
End Sub

---

Matty, that's a great help mate, but whilst it's doing the sleep call, it hangs MSN completely for the 5000ms to elapse, then it continues. That's one reason why i've never liked using the Sleep API call.

Isn't there any other way to perform a 5 second delay, after which some code is executed, which is then triggered every 5 seconds? Not just once.

A do while loop with doevents in the middle

quote:

---

Originally posted by Matty.
A do while loop with doevents in the middle

---

code:

---

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerEvent As Long

---

code:

---

TimerEvent = SetTimer(0, 0, 5000, AddressOf TimerProc_Process)    'Set a timer to fire after 5 seconds - it calls TimerProc_Process on firing

---

code:

---

Public Sub TimerProc_Process(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    'Do something you want
End Sub

---

code:

---

KillTimer 0, TimerEvent

---

Mnjul, that works great.

Now, inside that timerproc, am i able to send/post a /nick Blah command to an Msn plus chat window?

Then you need to use SendText function Matty posted It searches for an existing conversation window and sends texts to the window's input box

http://www.vbforums.com/showthread.php?s=&threadid=286584
A nice example...

quote:

---

Originally posted by Millenium_edition
jwb, your code is *excuse me for the word* crap

---

oh please jwb that's not helping out. everyone knows how to use a timer control. and btw why change the interval twice?

Matty., doing

code:

---

sResult = ""

---