Shoutbox

Is there a way in VB to make an away message? If so how, vb6.0 would be fine. Thx in advance

What do you mean by away message?

I think he means making an addon in VB which can make away messages just like Plus! does... At least that seems the logic thing to conclude....

yes does anyone know the source cause i dont know any messenger api

becuase there is no event to when someone writes in the conversation window. the way to do it would be to put it on a timer


you will need to understand findwindow and window classes functions.

something like this might work

code:

---

Public Sub SendMessage(thetext As String)
Dim imclass As Long, leet As Long
imclass = FindWindow("imwindowclass", vbNullString)
leet = FindWindowEx(imclass, 0&, "richedit20a", vbNullString)
leet = FindWindowEx(imclass, richedita, "richedit20a", vbNullString)
Call SendMessageByString(leet, WM_SETTEXT, 0&, thetext)
Call clicksend
End Sub

Public Sub clicksend()
Dim imclass As Long, Button As Long
imclass = FindWindow("IMWindowclass", vbNullString)
Button = FindWindowEx(imclass, 0&, "button", vbNullString)
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
End Sub

---

courtesy of stigmata's coding tips on his upcoming site.. www.plasticangels.com

quote:

---

Originally posted by traxor
becuase there is no event to when someone writes in the conversation window. the way to do it would be to put it on a timer


you will need to understand findwindow and window classes functions.

something like this might work

code:

---

Public Sub SendMessage(thetext As String)
Dim imclass As Long, leet As Long
imclass = FindWindow("imwindowclass", vbNullString)
leet = FindWindowEx(imclass, 0&, "richedit20a", vbNullString)
leet = FindWindowEx(imclass, richedita, "richedit20a", vbNullString)
Call SendMessageByString(leet, WM_SETTEXT, 0&, thetext)
Call clicksend
End Sub

Public Sub clicksend()
Dim imclass As Long, Button As Long
imclass = FindWindow("IMWindowclass", vbNullString)
Button = FindWindowEx(imclass, 0&, "button", vbNullString)
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
End Sub

---

courtesy of stigmata's coding tips on his upcoming site.. www.plasticangels.com

---

errr no msn6 uses windowless controls

bringing back this old post, i was busy these days, well im not good with windows api so can someone just help?