What happened to the Messenger Plus! forums on msghelp.net?
Shoutbox » MsgHelp Archive » Skype & Technology » Tech Talk » VB

VB
Author: Message:
The_IRS
New Member
*


Posts: 6
Joined: Sep 2004
O.P. VB
Is there a way in VB to make an away message? If so how, vb6.0 would be fine. Thx in advance
09-26-2004 01:50 AM
Profile E-Mail PM Find Quote Report
Mike
Elite Member
*****

Avatar
Meet the Spam Family!

Posts: 2795
Reputation: 48
32 / Male / Flag
Joined: Mar 2003
RE: VB
What do you mean by away message? :-/
YouTube closed-captions ripper (also allows you to download videos!)
09-26-2004 05:05 AM
Profile E-Mail PM Web Find Quote Report
CookieRevised
Elite Member
*****

Avatar

Posts: 15517
Reputation: 173
– / Male / Flag
Joined: Jul 2003
Status: Away
RE: VB
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....
.-= A 'frrrrrrrituurrr' for Wacky =-.
09-26-2004 05:35 AM
Profile PM Find Quote Report
The_IRS
New Member
*


Posts: 6
Joined: Sep 2004
O.P. RE: VB
yes does anyone know the source cause i dont know any messenger api
09-26-2004 06:31 AM
Profile E-Mail PM Find Quote Report
user27089
Disabled Account


Posts: 6321
Joined: Nov 2003
Status: Away
RE: VB
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

This post was edited on 09-26-2004 at 10:21 AM by user27089.
09-26-2004 08:54 AM
Profile PM Find Quote Report
Millenium_edition
Veteran Member
*****

Avatar

Posts: 1787
Reputation: 57
Joined: Apr 2003
RE: VB
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
09-26-2004 10:57 AM
Profile E-Mail PM Find Quote Report
The_IRS
New Member
*


Posts: 6
Joined: Sep 2004
O.P. RE: VB
bringing back this old post, i was busy these days, well im not good with windows api so can someone just help?
10-25-2004 03:59 AM
Profile E-Mail PM Find Quote Report
« Next Oldest Return to Top Next Newest »


Threaded Mode | Linear Mode
View a Printable Version
Send this Thread to a Friend
Subscribe | Add to Favorites
Rate This Thread:

Forum Jump:

Forum Rules:
You cannot post new threads
You cannot post replies
You cannot post attachments
You can edit your posts
HTML is Off
myCode is On
Smilies are On
[img] Code is On