VB |
Author: |
Message: |
The_IRS
New Member
![*](images/star.gif)
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 |
|
![](images/pixel.gif) |
Mike
Elite Member
![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif)
![Avatar](http://mike.thedt.net/images/temp/random.php)
Meet the Spam Family!
Posts: 2795 Reputation: 48
31 / / ![Greece Flag](images/flags/gr.png)
Joined: Mar 2003
|
RE: VB
What do you mean by away message? ![:-/](images/smilies/xso_undecided.gif)
|
|
09-26-2004 05:05 AM |
|
![](images/pixel.gif) |
CookieRevised
Elite Member
![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif)
![Avatar](avatar.php?uid=24592-2917)
Posts: 15519 Reputation: 173
– / / ![Belgium Flag](images/flags/be.png)
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 |
|
![](images/pixel.gif) |
The_IRS
New Member
![*](images/star.gif)
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 |
|
![](images/pixel.gif) |
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 |
|
![](images/pixel.gif) |
Millenium_edition
Veteran Member
![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif) ![*](images/star.gif)
![Avatar](http://www.alcoholstift.be/faces_of_death/notrebel.gif)
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:](images/smilies/xso_cheesy.gif) msn6 uses windowless controls
|
|
09-26-2004 10:57 AM |
|
![](images/pixel.gif) |
The_IRS
New Member
![*](images/star.gif)
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 |
|
![](images/pixel.gif) |
|
|