Zabaware Support Forums

Zabaware Forums => Ultra Hal 7.0 => Topic started by: Daniel Love on March 09, 2008, 01:05:46 pm

Title: Can anyone help...
Post by: Daniel Love on March 09, 2008, 01:05:46 pm

Hi guys,
Second post, so excuse being a bit wet behind the ears,
Just wanted to know if there are any easy soloutings to:

1, getting Hal to read the incoming messages on MSN messenger.

2, Using Hal as a messenger bot for MSN messenger, I know you can do it on AOL but I don't use that.

3, What is the command to go to a specific website, rather than search for it? I read that you can have hal open bookmarks, but can't find any information other than that.

Sorry for all the questions,
but seems like you guys know your stuff.

Thanks
Daniel

Title: Can anyone help...
Post by: onthecuttingedge2005 on March 09, 2008, 03:35:54 pm

Hi Daniel.

here is some code I gathered and some Com objects I wrote to be enable access to MSN Messenger.

now it's a matter of writing the program to interact with MSN Messenger.

Code: [Select]

MSN Messenger Com, Functions, Properties

'HKEY_CLASSES_ROOT\MSNMessenger.ContactsPicker
'HKEY_CLASSES_ROOT\MSNMessenger.HotmailControl
'HKEY_CLASSES_ROOT\MSNMessenger.MessengerApp
'HKEY_CLASSES_ROOT\MSNMessenger.MessengerContentInstaller
'HKEY_CLASSES_ROOT\MSNMessenger.MsgrObject
'HKEY_CLASSES_ROOT\MSNMessenger.MsgrSessionManager
'HKEY_CLASSES_ROOT\MSNMessenger.P4QuickLaunch
'HKEY_CLASSES_ROOT\MSNMessenger.ToastManager
'HKEY_CLASSES_ROOT\MSNMessenger.UIAutomation
'HKEY_CLASSES_ROOT\MSNMessengerPrivate.MessengerPriv

Set MSNMessenger1 = CreateObject("MSNMessenger.ContactsPicker")
Set MSNMessenger2 = CreateObject("MSNMessenger.HotmailControl")
Set MSNMessenger3 = CreateObject("MSNMessenger.MessengerApp")
Set MSNMessenger4 = CreateObject("MSNMessenger.MessengerContentInstaller")
Set MSNMessenger5 = CreateObject("MSNMessenger.MsgrObject")
Set MSNMessenger6 = CreateObject("MSNMessenger.MsgrSessionManager")
Set MSNMessenger7 = CreateObject("MSNMessenger.P4QuickLaunch")
Set MSNMessenger8 = CreateObject("MSNMessenger.ToastManager")
Set MSNMessenger9 = CreateObject("MSNMessenger.UIAutomation")
Set MSNMessenger10 = CreateObject("MSNMessengerPrivate.MessengerPriv")

'--------------------------- custsat.dll from MSN Messenger -----------------------------------------

//Version: 1.0
CustSatLib;
GUID = {4701A7BF-5BC0-42AB-A834-BB6237FE5F36};


Dispatch IScriptCustSat;
GUID = {71872DCB-8BD7-4F30-A8F4-90F7542DC4D2};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  function sqmGetSession(bstrSessionIdentifier: BSTR; cbMaxSessionSize: UI4; dwFlags: UI4): UI4; stdcall;
  function sqmStartSession(dwSession: UI4); stdcall;
  function sqmEndSession(dwSession: UI4; bstrFilePath: BSTR; dwMaxFilesToQueue: UI4; dwFlags: UI4); stdcall;
  function sqmSet(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmSetBool(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmSetBits(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmSetIfMax(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmSetIfMin(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmIncrement(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmAddToAverage(dwSession: UI4; dwDataPointID: UI4; dwValue: UI4); stdcall;
  function sqmGet(dwSession: UI4; dwDataPointID: UI4): UI4; stdcall;
  function sqmSetEnabled(dwSession: UI4; fValue: I4); stdcall;
  function sqmGetEnabled(dwSession: UI4): I4; stdcall;
  function sqmSetAppVersion(dwSession: UI4; dwVersionHigh: UI4; dwVersionLow: UI4); stdcall;
  function sqmSetMachineId(dwSession: UI4; pGuid: ^GUID); stdcall;
  function sqmSetUserId(dwSession: UI4; pGuid: ^GUID); stdcall;
  function sqmGetMachineId(dwSession: UI4; pGuid: ^GUID); stdcall;
  function sqmGetUserId(dwSession: UI4; pGuid: ^GUID); stdcall;
  function sqmTimerStart(dwSession: UI4; dwDataPointID: UI4); stdcall;
  function sqmTimerRecord(dwSession: UI4; dwDataPointID: UI4); stdcall;
  function sqmTimerAccumulate(dwSession: UI4; dwDataPointID: UI4); stdcall;
  function sqmGetSessionStartTime(dwSession: UI4): Variant; stdcall;

//IServiceStatusInfo Interface
Dispatch IServiceStatusInfo;
GUID = {40B56A4E-D0D1-4669-B3AB-1AA3577EEBE0};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //method getProperty
  function getProperty(bstrName: BSTR): Variant; stdcall;
  //property behavior
  property-get behavior: BSTR; stdcall;
  //property nextUpdateUTC
  property-get nextUpdateUTC: Date; stdcall;
  //property statusCode
  property-get statusCode: UI4; stdcall;
  //property propertyCode
  property-get propertyCode: UI4; stdcall;
  //property featureCode
  property-get featureCode: UI4; stdcall;
  //property lastUpdateUTC
  property-get lastUpdateUTC: Date; stdcall;
  //property propertyName
  property-get propertyName: BSTR; stdcall;
  //property featureName
  property-get featureName: BSTR; stdcall;
  //property geoLocation
  property-get geoLocation: BSTR; stdcall;
  //property eventCode
  property-get eventCode: UI4; stdcall;
  //property eventlcid
  property-get eventlcid: UI4; stdcall;

//_IServiceStatusProviderEvents Interface
Dispatch IServiceStatusEvents;
GUID = {26F41206-B645-479F-AC34-04CD7F1C07AC};
  function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
  function AddRef: UI4; stdcall;
  function Release: UI4; stdcall;
  function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
  function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo: ^^VOID); stdcall;
  function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT; lcid: UI4; out rgdispid: ^I4); stdcall;
  function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags: UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
  //method OnServiceStatusAvailable
  function OnServiceStatusAvailable(out pEvent: ^IServiceStatusInfo; out dwCookie: UI4); stdcall;

//ServiceStatusProvider Class
CoClass ServiceStatusProvider;
GUID = {9ABE892A-E6F8-43DA-93D4-3BA43585D3FB};

//ServiceStatusInfo Class
CoClass ServiceStatusInfo;
GUID = {D945A9D5-0AE5-4565-A8AB-E49E64C9DE74};

//ServiceStatusListener Class
CoClass ServiceStatusListener;
GUID = {8F883D7D-50D9-4577-B50A-95745A967738};

'------------------------------------------------------------------

Jerry[8D]