What happened to the Messenger Plus! forums on msghelp.net?
Shoutbox » MsgHelp Archive » Messenger Plus! for Live Messenger » Scripting » Could someone do me a favor and run this

Pages: (2): « First « 1 [ 2 ] Last »
Could someone do me a favor and run this
Author: Message:
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Could someone do me a favor and run this
Thanks looks like I have some debugging to do...

Sucks not having access to Messenger to test while at work...

This post was edited on 08-24-2010 at 03:39 PM by matty.
08-24-2010 03:38 PM
Profile E-Mail PM Find Quote Report
Chrissy
Senior Member
****

Avatar

Posts: 850
Reputation: 5
29 / Male / Flag
Joined: Nov 2009
RE: Could someone do me a favor and run this
Maybe use something like gotomypc?
08-24-2010 03:41 PM
Profile E-Mail PM Web Find Quote Report
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Could someone do me a favor and run this
quote:
Originally posted by Chrissy
Maybe use something like gotomypc?
Renovations. Basement is just a concreate floor. PC isn't connected. But I can RDP to the machine when it is connected.
08-24-2010 03:42 PM
Profile E-Mail PM Find Quote Report
segosa
Community's Choice
*****


Posts: 1407
Reputation: 92
Joined: Feb 2003
RE: RE: Could someone do me a favor and run this
quote:
Originally posted by matty
Thanks LJ! Could you guys run this now

js code:
var MAXLEN = 0xff;
var IID_IAccessible = Interop.Allocate(0x10);
Interop.Call('ole32', 'IIDFromString', '{618736E0-3C3D-11CF-810C-00AA00389B71}', IID_IAccessible);

// A chat window will automatically open
>>>Messenger.OpenChat('test@test.com');<<<

function OnEvent_ChatWndCreated (pChatWnd) {
    var hWnd = Interop.Call('user32', 'FindWindowExW', pChatWnd.Handle, 0, 'IM Window Class', '');
    hWnd = Interop.Call('user32', 'FindWindowExW', hWnd, 0, 'DirectUIHWND', '');
   
    var pAccessibleData = Interop.Allocate(4);
    if(Interop.Call('oleacc', 'AccessibleObjectFromWindow', hWnd, 0xFFFFFFFC, IID_IAccessible, pAccessibleData) === 0) {
        var iAccessible = pAccessibleData.ReadInterfacePtr(0);
        if(iAccessible) {
            var iAccessibleChildren = Interop.Allocate(16*iAccessible.accChildCount);
            var iAccessibleChildrenFound = Interop.Allocate(4);
            if (Interop.Call('oleacc', 'AccessibleChildren', iAccessible, 0, iAccessible.accChildCount, iAccessibleChildren, iAccessibleChildrenFound) === 0){
                for (var i=0; i<iAccessibleChildrenFound.ReadDWORD(0); ++i) {
                    if (iAccessibleChildren.ReadDWORD(i*16) === 0x9) {
                        var iAccessibleChild = iAccessibleChildren.ReadInterfacePtr(i*16+8);
                        if (iAccessibleChild) {
                            Debug.Trace(iAccessibleChild.accName(0)+' : '+iAccessibleChild.accValue(0));
                        }
                    }
                }
            }
        }
    }
}


var hWnd = Interop.Call('user32', 'FindWindowExW', pChatWnd.Handle, 0, 'IM Window Class', '');

... IMWindowClass?
The previous sentence is false. The following sentence is true.
08-24-2010 07:05 PM
Profile PM Find Quote Report
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Could someone do me a favor and run this
quote:
Originally posted by segosa
js code:
var hWnd = Interop.Call('user32', 'FindWindowExW', pChatWnd.Handle, 0, 'IM Window Class', '');

... IMWindowClass?
I was going off of the image Eljay posted. The parent of the DirectUIHWND was IM Window Class...
08-24-2010 07:08 PM
Profile E-Mail PM Find Quote Report
roflmao456
Skinning Contest Winner
****

Avatar

Posts: 955
Reputation: 24
29 / Male / Flag
Joined: Nov 2006
Status: Away
RE: Could someone do me a favor and run this
I ran the (revised) code.. and I got

The automatic chatwnd opening should have been in the Initialize event btw. That's why Chrissy's debug log doesn't have the function called :P
code:
Script is starting
Script is now loaded and ready
Function called: OnEvent_ChatWndCreated
Error: unknown (code: -2147467259)
       File: test.js. Line: 20.
Function OnEvent_ChatWndCreated returned an error. Code: -2147352567

Line 20 being the debug.trace

edit: Tried the original code.. no output :P

This post was edited on 08-24-2010 at 08:22 PM by roflmao456.
[quote]
Ultimatess6
: What a noob mod
08-24-2010 08:16 PM
Profile PM Web Find Quote Report
CookieRevised
Elite Member
*****

Avatar

Posts: 15519
Reputation: 173
– / Male / Flag
Joined: Jul 2003
Status: Away
RE: Could someone do me a favor and run this
quote:
Originally posted by segosa
var hWnd = Interop.Call('user32', 'FindWindowExW', pChatWnd.Handle, 0, 'IM Window Class', '');

... IMWindowClass?
No, that code line is correct.
"IM Window Class" is a child window of the "IMWindowClass" class window.
Got me the first time too.

This post was edited on 08-24-2010 at 09:54 PM by CookieRevised.
.-= A 'frrrrrrrituurrr' for Wacky =-.
08-24-2010 09:54 PM
Profile PM Find Quote Report
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Could someone do me a favor and run this
Got it figured out :) With some help from Cookie

Some of the children have children of their own :)

Thanks to Cookie for writing this up while I was at my girlfriend's place :)

js code:
var sResName = GetMsgrStringResource(60052);
var IID_IAccessible = Interop.Allocate(0x10);
Interop.Call('Ole32', 'IIDFromString', '{618736E0-3C3D-11CF-810C-00AA00389B71}', IID_IAccessible);

function OnEvent_ChatWndCreated (pChatWnd) {
    var oContacts = pChatWnd.Contacts;
    if (oContacts.Count === 1) {
        var hWnd = Interop.Call('User32', 'FindWindowExW', pChatWnd.Handle, 0, 'IM Window Class', '');
        hWnd = Interop.Call('User32', 'FindWindowExW', hWnd, 0, 'DirectUIHWND', '');
   
        var pAccessibleData = Interop.Allocate(4);
        if (Interop.Call('OleAcc', 'AccessibleObjectFromWindow', hWnd, 0xFFFFFFFC, IID_IAccessible, pAccessibleData) === 0) {
            var iAccessible = pAccessibleData.ReadInterfacePtr(0);
            if (iAccessible) {
                var bStopSearch = false;
                AA_GetItems(iAccessible, new Enumerator(oContacts).item());
            }
        }
    }
   
    function AA_GetItems(iAccessible, oContact) {
        var iAccessibleChildren = Interop.Allocate(16*iAccessible.accChildCount);
        var iAccessibleChildrenFound = Interop.Allocate(4);
        if (Interop.Call('Oleacc', 'AccessibleChildren', iAccessible, 0, iAccessible.accChildCount, iAccessibleChildren, iAccessibleChildrenFound) === 0){
            for (var i=0; i<iAccessibleChildrenFound.ReadDWORD(0); ++i) {
                if (iAccessibleChildren.ReadDWORD(i*16) === 0x9) {
                    var iAccessibleChild = iAccessibleChildren.ReadInterfacePtr(i*16+8);
                    if (iAccessibleChild) {
                        if (iAccessibleChild.accChildCount) {
                            AA_GetItems(iAccessibleChild, oContact);
                        } else {
                            if (iAccessibleChild.accRole(0) === 41) {
                                if (iAccessibleChild.accName(0) === sResName) {
                                    Debug.Trace("Role: " + iAccessibleChild.accRole(0) + ", Status: " + iAccessibleChild.accState(0));
                                    Debug.Trace("'" + iAccessibleChild.accName(0) + "' : '" + iAccessibleChild.accValue(0) + "'");
                                    // Status/Name/PSM change cause the name to be updated
                                    iAccessibleChild.accValue(0) = '(XX:XX) ' + oContact.Name;
                                    Debug.Trace("'" + iAccessibleChild.accName(0) + "' : '" + iAccessibleChild.accValue(0) + "'");
                                    bStopSearch = true;
                                }
                            }
                        }
                    }
                }
                if (bStopSearch) return;
            }
        }
    }
}

// This function will read a translation string resource from Messenger located in msgslang.dll.
// If bEval (optional) is true then substrings will be filled in automatically. False by default.
function GetMsgrStringResource(nStringID, bEval) {
    var hMod = Interop.Call('Kernel32', 'LoadLibraryExW', GetMsgrFullDLLName('msgslang'), 0, 2 /* LOAD_LIBRARY_AS_DATAFILE */);
    var sBuffer = Interop.Allocate(2050);
    Interop.Call('User32', 'LoadStringW', hMod, nStringID * 1, sBuffer.DataPtr, 1024);
    Interop.Call('Kernel32', 'FreeLibrary', hMod);
    sBuffer = sBuffer.ReadString(0);
    if (bEval) sBuffer = sBuffer.replace(/\{(?:A\:)?(\d+)\}/g, function($0,$1){return GetMsgrStringResource($1,true)});
    return sBuffer;
}

// This function will return the proper fullname of the given basename of a version dependant resource dll (eg: 'msgslang.dll', 'msgslang.8.1.0068.00.dll', 'msgslang.8.5.1302.1018.dll', 'msgslang.14.0.8089.0726.dll', etc)
function GetMsgrFullDLLName(sBaseName) {
    if (Messenger.Version > 8.0) {
        var sBuffer = Interop.Allocate(2050);
        Interop.Call('Kernel32', 'GetModuleFileNameW', 0, sBuffer.DataPtr, sBuffer.Size / 2);
        Interop.Call('Version', 'GetFileVersionInfoW', sBuffer.DataPtr, 0, sBuffer.Size, sBuffer.DataPtr);
        return sBaseName + '.' + sBuffer.ReadWord(50) + '.' + sBuffer.ReadWord(48) + '.' + ('000' + sBuffer.ReadWord(54)).slice(-4) + '.' + ('0' + sBuffer.ReadWord(52)).slice(-4) + '.dll';
    } else {
        return sBaseName + '.dll';
    }
}

This post was edited on 08-25-2010 at 02:12 PM by matty.
08-24-2010 10:45 PM
Profile E-Mail PM Find Quote Report
Pages: (2): « First « 1 [ 2 ] Last »
« 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