Shoutbox

VB - Printable Version

-Shoutbox (https://shoutbox.menthix.net)
+-- Forum: MsgHelp Archive (/forumdisplay.php?fid=58)
+--- Forum: Skype & Technology (/forumdisplay.php?fid=9)
+---- Forum: Tech Talk (/forumdisplay.php?fid=17)
+----- Thread: VB (/showthread.php?tid=32104)

VB by The_IRS on 09-26-2004 at 01:50 AM

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


RE: VB by Mike on 09-26-2004 at 05:05 AM

What do you mean by away message? :-/


RE: VB by CookieRevised on 09-26-2004 at 05:35 AM

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....


RE: VB by The_IRS on 09-26-2004 at 06:31 AM

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


RE: VB by user27089 on 09-26-2004 at 08:54 AM

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
RE: VB by Millenium_edition on 09-26-2004 at 10:57 AM

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 :cheesy: msn6 uses windowless controls
RE: VB by The_IRS on 10-25-2004 at 03:59 AM

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