StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>Of course, from any conversation windows, a simple "<code>/psm new message</code>" would update the message status field.</p> <p>But <em>programmatically</em>:</p> <p>You will find here a <a href="http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=71057&lngWId=1" rel="nofollow noreferrer">VB source file</a> which sent a new message to the PSM (Personal Satus Message) of your Live Messenger windows. May be that would help.</p> <p>extract:</p> <pre><code>Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private 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 Private 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 Private Const WM_COMMAND = &H111 Private Const WM_CHAR = &H102 Private Const VK_RETURN = &HD Private Function SetPSM(ByVal text As String) As Boolean Dim hParentWnd, hChildWnd As Long SetPSM = False hParentWnd = FindWindow("MSBLWindowClass", vbNullString) If hParentWnd <> 0 Then hChildWnd = FindWindowEx(hParentWnd, 0, "DirectUIHWND", vbNullString) If hChildWnd <> 0 Then PostMessage hParentWnd, WM_COMMAND, 56606, 0 Dim i As Integer For i = 1 To Len(text) Call PostMessage(hChildWnd, WM_CHAR, Asc(Mid$(text, i, 1)), 0) Next i PostMessage hChildWnd, WM_CHAR, VK_RETURN, 0 SetPSM = True End If End If End Function Private Sub cmdSetPSM_Click() SetPSM txtPSM.text End Sub </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload