Jump to content
timmalos

COM Interface with OneNote

Recommended Posts

Hey all.

I'm a little stuck starting with COM interfacing with Microsoft OneNote.

The msdn doc is there : https://msdn.microsoft.com/en-us/library/office/jj680118.aspx?f=255&MSPPError=-2147217396

I found, with the OleViewer what I need to access :

// Generated .IDL file (by the OLE/COM Object Viewer)
// 
// typelib filename: 3

[
  uuid(0EA692EE-BB50-4E3C-AEF0-356D91732725),
  version(1.1),
  helpstring("Microsoft OneNote 15.0 Object Library"),
  custom(DE77BA64-517C-11D1-A2DA-0000F8773CE9, 134218339),
  custom(DE77BA63-517C-11D1-A2DA-0000F8773CE9, 2147483647),
  custom(DE77BA65-517C-11D1-A2DA-0000F8773CE9, Created by MIDL version 8.00.0611 at Mon Jan 18 19:14:07 2038
),
  custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, Microsoft.Office.Interop.OneNote.dll)

]
library OneNote
{
    // TLib :     // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
    importlib("stdole2.tlb");

    // Forward declare all types defined in this typelib
    interface IQuickFilingDialog;
    interface IQuickFilingDialogCallback;
    interface IApplication;
    interface Windows;
    interface Window;
    dispinterface IOneNoteEvents;

    typedef [uuid(552E0E02-B287-4EC6-9CC0-4BA019EE5EA1)]
    enum {
        hsSelf = 0,
        hsChildren = 1,
        hsNotebooks = 2,
        hsSections = 3,
        hsPages = 4
    } HierarchyScope;

    typedef [uuid(41C8F6EA-0AF0-4A4F-99E9-5EB01EBFC9A3)]
    enum {
        heNone = 0,
        heNotebooks = 1,
        heSectionGroups = 2,
        heSections = 4,
        hePages = 8
    } HierarchyElement;

    typedef [uuid(4DB67B4F-CC7D-45B5-88FE-569AE5798FF2)]
    enum {
        rrtNone = 0,
        rrtFiling = 1,
        rrtSearch = 2,
        rrtLinks = 3
    } RecentResultType;

    typedef [uuid(B5EB9D34-5278-4D8A-AE1F-2F88EA56BBCE)]
    enum {
        cftNone = 0,
        cftNotebook = 1,
        cftFolder = 2,
        cftSection = 3
    } CreateFileType;

    typedef [uuid(D6E78E55-7EE7-4A31-BF3E-B01E819599BA)]
    enum {
        piBasic = 0,
        piBinaryData = 1,
        piSelection = 2,
        piFileType = 4,
        piBinaryDataSelection = 3,
        piBinaryDataFileType = 5,
        piSelectionFileType = 6,
        piAll = 7
    } PageInfo;

    typedef [uuid(D6166973-3665-4EDB-94B0-77C65C34B51C)]
    enum {
        pfOneNote = 0,
        pfOneNotePackage = 1,
        pfMHTML = 2,
        pfPDF = 3,
        pfXPS = 4,
        pfWord = 5,
        pfEMF = 6,
        pfHTML = 7,
        pfOneNote2007 = 8
    } PublishFormat;

    typedef [uuid(E195F3E3-8EC3-4A67-81FE-DDBEC2B42D3F)]
    enum {
        slBackUpFolder = 0,
        slUnfiledNotesSection = 1,
        slDefaultNotebookFolder = 2
    } SpecialLocation;

    typedef [uuid(452D048E-7F61-4258-94B9-A39E19C290DA)]
    enum {
        flEMail = 0,
        flContacts = 1,
        flTasks = 2,
        flMeetings = 3,
        flWebContent = 4,
        flPrintOuts = 5
    } FilingLocation;

    typedef [uuid(82FC5A95-FEB7-4242-95E1-369C5DFE3F49)]
    enum {
        fltNamedSectionNewPage = 0,
        fltCurrentSectionNewPage = 1,
        fltCurrentPage = 2,
        fltNamedPage = 4
    } FilingLocationType;

    typedef [uuid(226CC8E6-1ED0-4770-A7F1-A80BB4DDF07B)]
    enum {
        npsDefault = 0,
        npsBlankPageWithTitle = 1,
        npsBlankPageNoTitle = 2
    } NewPageStyle;

    typedef [uuid(B67BC7E1-91B9-4F50-8471-77C76F8D63D6)]
    enum {
        dlDefault = 0xffffffff,
        dlNone = 0,
        dlLeft = 1,
        dlRight = 2,
        dlTop = 3,
        dlBottom = 4
    } DockLocation;

    typedef [uuid(68555133-B62F-4490-9D66-9E9BFC68F6C6)]
    enum {
        xs2007 = 0,
        xs2010 = 1,
        xs2013 = 2,
        xsCurrent = 2
    } XMLSchema;

    typedef [uuid(1ECC88B3-6D2B-4EDD-8DD5-BB11E5D34C09)]
    enum {
        tcsExpanded = 0,
        tcsCollapsed = 1
    } TreeCollapsedStateType;

    typedef [uuid(13F18B04-E76F-42E0-97E6-8B6ABF38B484)]
    enum {
        nfoLocal = 1,
        nfoNetwork = 2,
        nfoWeb = 4,
        nfoNoWacUrl = 8
    } NotebookFilterOutType;

    [
      odl,
      uuid(1D12BD3F-89B6-4077-AA2C-C9DC2BCA42F9),
      helpstring("IQuickFilingUI Interface"),
      dual,
      oleautomation
    ]
    interface IQuickFilingDialog : IDispatch {
        [id(00000000), propget]
        HRESULT Title([out, retval] BSTR* bstrTitle);
        [id(00000000), propput]
        HRESULT Title([in] BSTR bstrTitle);
        [id(0x00000001), propget]
        HRESULT Description([out, retval] BSTR* bstrDescription);
        [id(0x00000001), propput]
        HRESULT Description([in] BSTR bstrDescription);
        [id(0x00000002), propget]
        HRESULT CheckboxText([out, retval] BSTR* bstrText);
        [id(0x00000002), propput]
        HRESULT CheckboxText([in] BSTR bstrText);
        [id(0x00000003), propget]
        HRESULT CheckboxState([out, retval] VARIANT_BOOL* pfChecked);
        [id(0x00000003), propput]
        HRESULT CheckboxState([in] VARIANT_BOOL pfChecked);
        [id(0x00000004), propget]
        HRESULT WindowHandle([out, retval] uint64* pHWNDWindow);
        [id(0x00000005), propget]
        HRESULT TreeDepth([out, retval] HierarchyElement* pTreeDepth);
        [id(0x00000005), propput]
        HRESULT TreeDepth([in] HierarchyElement pTreeDepth);
        [id(0x00000006), propget]
        HRESULT ParentWindowHandle([out, retval] uint64* pHWNDParentWindow);
        [id(0x00000006), propput]
        HRESULT ParentWindowHandle([in] uint64 pHWNDParentWindow);
        [id(0x00000007), propget]
        HRESULT Position([out, retval] tagPOINT* pPoint);
        [id(0x00000007), propput]
        HRESULT Position([in] tagPOINT pPoint);
        [id(0x00000008)]
        HRESULT SetRecentResults(
                        [in] RecentResultType recentResults, 
                        [in] VARIANT_BOOL fShowCurrentSection, 
                        [in] VARIANT_BOOL fShowCurrentPage, 
                        [in] VARIANT_BOOL fShowUnfiledNotes);
        [id(0x0000000a)]
        HRESULT AddButton(
                        [in] BSTR bstrText, 
                        [in] HierarchyElement allowedElements, 
                        [in] HierarchyElement allowedReadOnlyElements, 
                        [in] VARIANT_BOOL fDefault);
        [id(0x0000000b)]
        HRESULT Run([in] IQuickFilingDialogCallback* piCallback);
        [id(0x0000000c), propget]
        HRESULT SelectedItem([out, retval] BSTR* pbstrSelectedNodeID);
        [id(0x0000000d), propget]
        HRESULT PressedButton([out, retval] unsigned long* pButtonIndex);
        [id(0x0000000e), propput]
        HRESULT TreeCollapsedState([in] TreeCollapsedStateType rhs);
        [id(0x0000000f), propput]
        HRESULT NotebookFilterOut([in] NotebookFilterOutType rhs);
        [id(0x00000010)]
        HRESULT ShowCreateNewNotebook();
        [id(0x00000011)]
        HRESULT AddInitialEditor(BSTR initialEditor);
        [id(0x00000012)]
        HRESULT ClearInitialEditors();
        [id(0x00000013)]
        HRESULT ShowSharingHyperlink();
    };

    typedef struct tagtagPOINT {
                
long x;
                
long y;
    } tagPOINT;

    [
      odl,
      uuid(627EA7B4-95B5-4980-84C1-9D20DA4460B1),
      helpstring("IQuickFilingDialogCallback Interface"),
      dual,
      oleautomation
    ]
    interface IQuickFilingDialogCallback : IDispatch {
        [id(0x60020000)]
        HRESULT OnDialogClosed([in] IQuickFilingDialog* dialog);
    };

    [
      odl,
      uuid(452AC71A-B655-4967-A208-A4CC39DD7949),
      helpstring("IApplication Interface"),
      dual,
      oleautomation
    ]
    interface IApplication : IDispatch {
        [id(0x60020000)]
        HRESULT GetHierarchy(
                        [in] BSTR bstrStartNodeID, 
                        [in] HierarchyScope hsScope, 
                        [out] BSTR* pbstrHierarchyXmlOut, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema);
        [id(0x60020001)]
        HRESULT UpdateHierarchy(
                        [in] BSTR bstrChangesXmlIn, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema);
        [id(0x60020002)]
        HRESULT OpenHierarchy(
                        [in] BSTR bstrPath, 
                        [in] BSTR bstrRelativeToObjectID, 
                        [out] BSTR* pbstrObjectID, 
                        [in, optional, defaultvalue(0)] CreateFileType cftIfNotExist);
        [id(0x60020003)]
        HRESULT DeleteHierarchy(
                        [in] BSTR bstrObjectID, 
                        [in, optional, defaultvalue(00:00:00)] DATE dateExpectedLastModified, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL deletePermanently);
        [id(0x60020004)]
        HRESULT CreateNewPage(
                        [in] BSTR bstrSectionID, 
                        [out] BSTR* pbstrPageID, 
                        [in, optional, defaultvalue(0)] NewPageStyle npsNewPageStyle);
        [id(0x60020005)]
        HRESULT CloseNotebook(
                        [in] BSTR bstrNotebookID, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL force);
        [id(0x60020006)]
        HRESULT GetHierarchyParent(
                        [in] BSTR bstrObjectID, 
                        [out] BSTR* pbstrParentID);
        [id(0x60020007)]
        HRESULT GetPageContent(
                        [in] BSTR bstrPageID, 
                        [out] BSTR* pbstrPageXmlOut, 
                        [in, optional, defaultvalue(0)] PageInfo pageInfoToExport, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema);
        [id(0x60020008)]
        HRESULT UpdatePageContent(
                        [in] BSTR bstrPageChangesXmlIn, 
                        [in, optional, defaultvalue(00:00:00)] DATE dateExpectedLastModified, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL force);
        [id(0x60020009)]
        HRESULT GetBinaryPageContent(
                        [in] BSTR bstrPageID, 
                        [in] BSTR bstrCallbackID, 
                        [out] BSTR* pbstrBinaryObjectB64Out);
        [id(0x6002000a)]
        HRESULT DeletePageContent(
                        [in] BSTR bstrPageID, 
                        [in] BSTR bstrObjectID, 
                        [in, optional, defaultvalue(00:00:00)] DATE dateExpectedLastModified, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL force);
        [id(0x6002000b)]
        HRESULT NavigateTo(
                        [in] BSTR bstrHierarchyObjectID, 
                        [in, optional, defaultvalue("")] BSTR bstrObjectID, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL fNewWindow);
        [id(0x6002000c)]
        HRESULT NavigateToUrl(
                        [in] BSTR bstrUrl, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL fNewWindow);
        [id(0x6002000d)]
        HRESULT Publish(
                        [in] BSTR bstrHierarchyID, 
                        [in] BSTR bstrTargetFilePath, 
                        [in, optional, defaultvalue(0)] PublishFormat pfPublishFormat, 
                        [in, optional, defaultvalue("")] BSTR bstrCLSIDofExporter);
        [id(0x6002000e)]
        HRESULT OpenPackage(
                        [in] BSTR bstrPathPackage, 
                        [in] BSTR bstrPathDest, 
                        [out] BSTR* pbstrPathOut);
        [id(0x6002000f)]
        HRESULT GetHyperlinkToObject(
                        [in] BSTR bstrHierarchyID, 
                        [in] BSTR bstrPageContentObjectID, 
                        [out] BSTR* pbstrHyperlinkOut);
        [id(0x60020010)]
        HRESULT FindPages(
                        [in] BSTR bstrStartNodeID, 
                        [in] BSTR bstrSearchString, 
                        [out] BSTR* pbstrHierarchyXmlOut, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL fIncludeUnindexedPages, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL fDisplay, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema);
        [id(0x60020011)]
        HRESULT FindMeta(
                        [in] BSTR bstrStartNodeID, 
                        [in] BSTR bstrSearchStringName, 
                        [out] BSTR* pbstrHierarchyXmlOut, 
                        [in, optional, defaultvalue(0)] VARIANT_BOOL fIncludeUnindexedPages, 
                        [in, optional, defaultvalue(2)] XMLSchema xsSchema);
        [id(0x60020012)]
        HRESULT GetSpecialLocation(
                        [in] SpecialLocation slToGet, 
                        [out] BSTR* pbstrSpecialLocationPath);
        [id(0x60020013)]
        HRESULT MergeFiles(
                        [in] BSTR bstrBaseFile, 
                        [in] BSTR bstrClientFile, 
                        [in] BSTR bstrServerFile, 
                        [in] BSTR bstrTargetFile);
        [id(0x60020014)]
        HRESULT QuickFiling([out, retval] IQuickFilingDialog** ppiDialog);
        [id(0x60020015)]
        HRESULT SyncHierarchy([in] BSTR bstrHierarchyID);
        [id(0x60020016)]
        HRESULT SetFilingLocation(
                        [in] FilingLocation flToSet, 
                        [in] FilingLocationType fltToSet, 
                        [in] BSTR bstrFilingSectionID);
        [id(0x00000064), propget]
        HRESULT Windows([out, retval] Windows** ppONWindows);
        [id(0x00000066), propget, hidden]
        HRESULT Dummy1([out, retval] VARIANT_BOOL* pBool);
        [id(0x60020019)]
        HRESULT MergeSections(
                        [in] BSTR bstrSectionSourceId, 
                        [in] BSTR bstrSectionDestinationId);
        [id(0x00000068), propget]
        HRESULT COMAddIns([out, retval] IDispatch** ppiComAddins);
        [id(0x00000069), propget]
        HRESULT LanguageSettings([out, retval] IDispatch** ppiLanguageSettings);
        [id(0x6002001c)]
        HRESULT GetWebHyperlinkToObject(
                        [in] BSTR bstrHierarchyID, 
                        [in] BSTR bstrPageContentObjectID, 
                        [out] BSTR* pbstrHyperlinkOut);
    };

    [
      odl,
      uuid(6D4B9C3E-CC05-493F-85E2-43D1006DF96A),
      helpstring("List of our Windows Interface"),
      dual,
      oleautomation
    ]
    interface Windows : IDispatch {
        [id(00000000), propget]
        HRESULT Item(
                        [in] unsigned long Index, 
                        [out, retval] Window** Item);
        [id(0x00000001), propget]
        HRESULT Count([out, retval] unsigned long* Count);
        [id(0xfffffffc), propget]
        HRESULT _NewEnum([out, retval] IUnknown** _NewEnum);
        [id(0x00000003), propget]
        HRESULT CurrentWindow([out, retval] Window** ppCurrentWindow);
    };

    [
      odl,
      uuid(8E8304B8-CBD1-44F8-B0E8-89C625B2002E),
      helpstring("Window Interface"),
      dual,
      oleautomation
    ]
    interface Window : IDispatch {
        [id(00000000), propget]
        HRESULT WindowHandle([out, retval] uint64* pHWNDWindow);
        [id(0x00000001), propget]
        HRESULT CurrentPageId([out, retval] BSTR* pbstrPageObjectId);
        [id(0x00000002), propget]
        HRESULT CurrentSectionId([out, retval] BSTR* pbstrSectionObjectId);
        [id(0x00000003), propget]
        HRESULT CurrentSectionGroupId([out, retval] BSTR* pbstrSectionObjectId);
        [id(0x00000004), propget]
        HRESULT CurrentNotebookId([out, retval] BSTR* pbstrNotebookObjectId);
        [id(0x00000009)]
        HRESULT NavigateTo(
                        [in] BSTR bstrHierarchyObjectID, 
                        [in, optional, defaultvalue("0")] BSTR bstrObjectID);
        [id(0x0000000a), propget]
        HRESULT FullPageView([out, retval] VARIANT_BOOL* pIsFullPageView);
        [id(0x0000000a), propput]
        HRESULT FullPageView(VARIANT_BOOL pIsFullPageView);
        [id(0x0000000b), propget]
        HRESULT Active([out, retval] VARIANT_BOOL* pIsActive);
        [id(0x0000000b), propput]
        HRESULT Active(VARIANT_BOOL pIsActive);
        [id(0x0000000d), propget]
        HRESULT DockedLocation([out, retval] DockLocation* pDockLocation);
        [id(0x0000000d), propput]
        HRESULT DockedLocation(DockLocation pDockLocation);
        [id(0x0000000e), propget]
        HRESULT Application([out, retval] IApplication** ppiApp);
        [id(0x0000000f), propget]
        HRESULT SideNote([out, retval] VARIANT_BOOL* pIsSideNote);
        [id(0x00000010)]
        HRESULT NavigateToUrl([in] BSTR bstrUrl);
        [id(0x00000011)]
        HRESULT SetDockedLocation(
                        [in] DockLocation DockLocation, 
                        [in] tagPOINT ptMonitor);
    };

    [
      uuid(E2E1511D-502D-4BD0-8B3A-8A89A05CDCAE),
      helpstring("IOneNoteEvents Interface"),
      nonextensible
    ]
    dispinterface IOneNoteEvents {
        properties:
        methods:
            [id(0x00000001)]
            void OnNavigate();
            [id(0x00000002)]
            void OnHierarchyChange([in] BSTR bstrActivePageID);
    };

    [
      uuid(D7FAC39E-7FF1-49AA-98CF-A1DDD316337E),
      version(1.0),
      helpstring("Application Class")
    ]
    coclass Application {
        [default] interface IApplication;
        [default, source] dispinterface IOneNoteEvents;
    };

    typedef [uuid(D3F5A756-4BAC-4D3D-9BAF-90935121AAA6)]
    enum {
        hrMalformedXML = 0x80042000,
        hrInvalidXML = 0x80042001,
        hrCreatingSection = 0x80042002,
        hrOpeningSection = 0x80042003,
        hrSectionDoesNotExist = 0x80042004,
        hrPageDoesNotExist = 0x80042005,
        hrFileDoesNotExist = 0x80042006,
        hrInsertingImage = 0x80042007,
        hrInsertingInk = 0x80042008,
        hrInsertingHtml = 0x80042009,
        hrNavigatingToPage = 0x8004200a,
        hrSectionReadOnly = 0x8004200b,
        hrPageReadOnly = 0x8004200c,
        hrInsertingOutlineText = 0x8004200d,
        hrPageObjectDoesNotExist = 0x8004200e,
        hrBinaryObjectDoesNotExist = 0x8004200f,
        hrLastModifiedDateDidNotMatch = 0x80042010,
        hrGroupDoesNotExist = 0x80042011,
        hrPageDoesNotExistInGroup = 0x80042012,
        hrNoActiveSelection = 0x80042013,
        hrObjectDoesNotExist = 0x80042014,
        hrNotebookDoesNotExist = 0x80042015,
        hrInsertingFile = 0x80042016,
        hrInvalidName = 0x80042017,
        hrFolderDoesNotExist = 0x80042018,
        hrInvalidQuery = 0x80042019,
        hrFileAlreadyExists = 0x8004201a,
        hrSectionEncryptedAndLocked = 0x8004201b,
        hrDisabledByPolicy = 0x8004201c,
        hrNotYetSynchronized = 0x8004201d,
        hrLegacySection = 0x8004201e,
        hrMergeFailed = 0x8004201f,
        hrInvalidXMLSchema = 0x80042020,
        hrFutureContentLoss = 0x80042022,
        hrTimeOut = 0x80042023,
        hrRecordingInProgress = 0x80042024,
        hrUnknownLinkedNoteState = 0x80042025,
        hrNoShortNameForLinkedNote = 0x80042026,
        hrNoFriendlyNameForLinkedNote = 0x80042027,
        hrInvalidLinkedNoteUri = 0x80042028,
        hrInvalidLinkedNoteThumbnail = 0x80042029,
        hrImportLNTThumbnailFailed = 0x8004202a,
        hrUnreadDisabledForNotebook = 0x8004202b,
        hrInvalidSelection = 0x8004202c,
        hrConvertFailed = 0x8004202d,
        hrRecycleBinEditFailed = 0x8004202e,
        hrAppInModalUI = 0x80042030
    } Error;

    [
      uuid(DC67E480-C3CB-49F8-8232-60B0C2056C8E),
      version(1.0),
      helpstring("Application2 Class")
    ]
    coclass Application2 {
        [default] interface IApplication;
        [default, source] dispinterface IOneNoteEvents;
    };
};

So far, I didn't manage to be able to interact with it : There is my code (based on same issue someone had in 2011

#AutoIt3Wrapper_UseX64=n
#include <Array.au3>
#include "AutoItObject\AutoItObject.au3"

;===============================================================================
;interface "OneNoteIApplication"
Global Const $sCLSID_OneNoteApplication = "{0039FFEC-A022-4232-8274-6B34787BFC27}"
Global Const $sIID_IOneNoteApplication = "{2DA16203-3F58-404F-839D-E4CDE7DD0DED}"
; Definition
Global $dtagIOneNoteWindows = $dtagIDispatch
Global $dtagIOneNoteApplication = $dtagIDispatch & _
        "GetHierarchy hresult(bstr;dword;bstr*);" & _
        "UpdateHierarchy hresult(bstr);" & _
        "OpenHierarchy hresult(bstr;bstr;bstr*;dword);" & _
        "DeleteHierarchy hresult(bstr;double);" & _
        "CreateNewPage hresult(bstr;bstr*;dword);" & _
        "CloseNotebook hresult(bstr);" & _
        "GetHierarchyParent hresult(bstr;bstr*);" & _
        "GetPageContent hresult(bstr;bstr*;dword);" & _
        "UpdatePageContent hresult(bstr;double);" & _
        "GetBinaryPageContent hresult(bstr;bstr;bstr*);" & _
        "DeletePageContent hresult(bstr;bstr;dword);" & _
        "NavigateTo hresult(bstr;bstr;bool);" & _
        "Publish hresult(bstr;bstr;dword;bstr);" & _
        "OpenPackage hresult(bstr;bstr;bstr*);" & _
        "GetHyperlinkToObject hresult(bstr;bstr;bstr*);" & _
        "FindPages hresult(bstr;bstr;bstr*;bool;bool);" & _
        "FindMeta hresult(bstr;bstr;bstr*;bool);" & _
        "GetSpecialLocation hresult(dword;bstr*);"
; List
Global $ltagIOneNoteApplication = $ltagIDispatch & _
        "GetHierarchy;" & _
        "UpdateHierarchy;" & _
        "OpenHierarchy;" & _
        "DeleteHierarchy;" & _
        "CreateNewPage;" & _
        "CloseNotebook;" & _
        "GetHierarchyParent;" & _
        "GetPageContent;" & _
        "UpdatePageContent;" & _
        "GetBinaryPageContent;" & _
        "DeletePageContent;" & _
        "NavigateTo;" & _
        "Publish;" & _
        "OpenPackage;" & _
        "GetHyperlinkToObject;" & _
        "FindPages;" & _
        "FindMeta;" & _
        "GetSpecialLocation;"
;===============================================================================

_AutoItObject_StartUp()



Global $objOneNote = ObjCreate("OneNote.Application")
Global $pOneNote = _AutoItObject_IDispatchToPtr($objOneNote)
_AutoItObject_IUnknownAddRef($objOneNote)
Global $oOneNote = _AutoItObject_WrapperCreate($pOneNote, $dtagIOneNoteWindows)
;~ Global $oOnenote = ObjCreateInterface($sCLSID_OneNoteApplication,$sIID_IOneNoteApplication,$dtagIOneNoteApplication,True)

;~ ; Check if object is created:
If Not IsObj($oOneNote) Then
    MsgBox(48, "Error", "Object not created. Something is wrong.")
    Exit
EndIf

$aCall = $oOneNote.GetTypeInfoCount(0)
$iTypeInfoCount = $aCall[1]
ConsoleWrite("$iTypeInfoCount = " & $iTypeInfoCount & @CRLF)

$Window = $oOneNote.Windows
;~ ConsoleWrite("Test = " & $Window.CurrentPageId & @CRLF)


$str = "onenote:///R:\Software\OneNote%20EOD\EOD%20Scrum\Sprint%20136.one#section-id={D2EB7AEB-362B-490A-9CE0-0B9316DF0DAD}&end"
$hBSTR = DllCall("oleaut32.dll", "ptr", "SysAllocString", "wstr", $str)
$aCall = $oOnenote.NavigateToUrl($hBSTR[0])

 

Can someone help me to go in the good direction? I'm a little lost with what's needed, (CLSID and IID whereas I have only a UUID and can't find a good starting doc online)

Thanks a lot,

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Ho3ein
      Hello again, i have a code that changes username to favorite, my problem is how to use ObjEvent() function to catch errors, i've red Help File and Forum's Topics but i can't understand too much😐

      Here is a code (I've copied this codes from a user of AutoIt Forum):
       
      $sOldUser = "Administrator" $sNewUser = "Admin" $oUser = ObjGet("WinNT://" & @ComputerName & "/" & $sOldUser & ",user") $oComputer = ObjGet("WinNT://" & @ComputerName) $oNewUser = $oComputer.MoveHere($oUser.ADsPath, $sNewUser) Thanks for your care, I'm new to AutoIt and days should be passed with my coding and practicing to don't bother you :)❤
    • By Bilgus
      Trying to figure out how to do CallByName on AutoIt COM objects due to the lack of being able to set properties within an Execute() statement
      Several Ideas were Tried https://www.autoitscript.com/forum/topic/200129-set-object-properties-with-propertyname-and-value-taken-from-an-array/
      I think this is the best; Patching the vtable of IDispatch so we can intercept a Fake function call ($obj.Au3_CallByName)
      use it like this
      Local $oDictionary = ObjCreate("Scripting.Dictionary") ; EXAMPLE Au3_CallByname_Init() ; (you can optionally provide a classname here but we patch the main Idispatch interface so really no need) $Au3_CallByName = "Add" ; Method we want to call $oDictionary.Au3_CallByName("Test", "Value") Au3_CallByname_Init(False) ; (Not Strictly Needed unhooked on exit) NOTE:  Au3_CallByname_Init() doesn't have to be called at the top of the script, just call it before you need to call by name...
      Code + Example
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=y #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;Au3CallByName, Bilgus Global $Au3_CallByName = 0 Local $hKernel32 = DllOpen("Kernel32.dll") OnAutoItExitRegister(__CallByNameCleanup) Func __CallByNameCleanup() Au3_CallByName_Init(False) ;Unload DllClose($hKernel32) EndFunc ;==>__CallByNameCleanup ; Takes a pointer to the v-table in a class and replaces specified member Id in it to a new one. Func __HookVTableEntry($pVtable, $iVtableOffset, $pHook, ByRef $pOldRet) ;;https://www.autoitscript.com/forum/topic/107678-hooking-into-the-idispatch-interface/ Local Const $PAGE_READWRITE = 0x04 Local $tpVtable = DllStructCreate("ptr", $pVtable) Local $szPtr = DllStructGetSize($tpVtable) Local $pFirstEntry, $pEntry, $tEntry, $aCall, $flOldProtect, $bStatus ; Dereference the vtable pointer $pFirstEntry = DllStructGetData($tpVtable, 1) $pEntry = $pFirstEntry + ($iVtableOffset * $szPtr) ; Make the memory free for all. Yay! $aCall = DllCall($hKernel32, "int", "VirtualProtect", "ptr", $pEntry, "long", $szPtr, "dword", $PAGE_READWRITE, "dword*", 0) If @error Or Not $aCall[0] Then ConsoleWriteError("Error: Failed To hook vTable" & @CRLF) Return False EndIf $flOldProtect = $aCall[4] $tEntry = DllStructCreate("ptr", $pEntry) $pOldRet = DllStructGetData($tEntry, 1) If $pOldRet <> $pHook Then DllStructSetData($tEntry, 1, $pHook) $bStatus = True Else ;Already Hooked ConsoleWriteError("Error: vTable is already hooked" & @CRLF) $bStatus = False EndIf ;put the memory protect back how we found it DllCall($hKernel32, "int", "VirtualProtect", "ptr", $pEntry, "long", $szPtr, "dword", $flOldProtect, "dword*", 0) Return $bStatus EndFunc ;==>__HookVTableEntry ; Everytime autoit wants to call a method, get or set a property in a object it needs to go to ; IDispatch::GetIDsFromNames. This is our version of that function, note that by defining this ourselves ; we can fool autoit to believe that the object supports a lot of different properties/methods. Func __IDispatch_GetIDsFromNames($pSelf, $riid, $rgszNames, $cNames, $lcid, $rgDispId) Local Const $CSTR_EQUAL = 0x02 Local Const $LOCALE_SYSTEM_DEFAULT = 0x800 Local Const $DISP_E_UNKNOWNNAME = 0x80020006 Local Static $pGIFN = __Pointer_GetIDsFromNames() Local Static $tpMember = DllStructCreate("ptr") If $Au3_CallByName Then Local $hRes, $aCall, $tMember ;autoit only asks for one member $aCall = DllCall($hKernel32, 'int', 'CompareStringW', 'dword', $LOCALE_SYSTEM_DEFAULT, 'dword', 0, 'wstr', "Au3_CallByName", 'int', -1, _ 'struct*', DllStructGetData(DllStructCreate("ptr[" & $cNames & "]", $rgszNames), 1, 1), 'int', -1) If Not @error And $aCall[0] = $CSTR_EQUAL Then ;ConsoleWrite("CallByName: " & $Au3_CallByName & @CRLF) $tMember = DllStructCreate("wchar[" & StringLen($Au3_CallByName) + 1 & "]") DllStructSetData($tMember, 1, $Au3_CallByName) DllStructSetData($tpMember, 1, DllStructGetPtr($tMember)) $rgszNames = $tpMember $Au3_CallByName = 0 EndIf EndIf ;Call the original GetIDsFromNames $hRes = DllCallAddress("LRESULT", $pGIFN, "ptr", $pSelf, "ptr", $riid, _ "struct*", $rgszNames, "dword", $cNames, "dword", $lcid, "ptr", $rgDispId) If @error Then ConsoleWrite("Error: GetIDsFromNames: " & @error & @CRLF) Return $DISP_E_UNKNOWNNAME EndIf Return $hRes[0] EndFunc ;==>__IDispatch_GetIDsFromNames Func __Pointer_GetIDsFromNames($ptr = 0) Local Static $pOldGIFN = $ptr If $ptr <> 0 Then $pOldGIFN = $ptr Return $pOldGIFN EndFunc ;==>__Pointer_GetIDsFromNames Func Au3_CallByName_Init($bHook = True, $classname = "shell.application") Local Const $iOffset_GetIDsFromNames = 5 Local Static $IDispatch_GetIDsFromNames_Callback = 0 Local $oObject, $pObject, $pHook, $pOldGIFN If $bHook Then If $IDispatch_GetIDsFromNames_Callback = 0 Then $IDispatch_GetIDsFromNames_Callback = DllCallbackRegister("__IDispatch_GetIDsFromNames", "LRESULT", "ptr;ptr;ptr;dword;dword;ptr") EndIf $pHook = DllCallbackGetPtr($IDispatch_GetIDsFromNames_Callback) Else $pHook = __Pointer_GetIDsFromNames() If $pHook <= 0 Then Return ;Already Unloaded EndIf $oObject = ObjCreate($classname) $pObject = DllStructSetData(DllStructCreate("ptr"), 1, $oObject) If __HookVTableEntry($pObject, $iOffset_GetIDsFromNames, $pHook, $pOldGIFN) Then __Pointer_GetIDsFromNames($pOldGIFN) ;Save the original pointer to GetIDsFromNames If Not $bHook Then DllCallbackFree($IDispatch_GetIDsFromNames_Callback) $IDispatch_GetIDsFromNames_Callback = 0 EndIf Else ;Error EndIf $oObject = 0 EndFunc ;==>Au3_CallByName_Init ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;TESTS; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Au3_CallByName_Init() #include <ie.au3> Global $oRegistrationInfo = _IECreate() Global $aRegistrationInfo[] = ['Left=10', 'Top= 10', 'Width=450', 'Height=600'] Global $oObject = $oRegistrationInfo Local $oDictionary = ObjCreate("Scripting.Dictionary") Local $oDictionary2 = ObjCreate("Scripting.Dictionary") ;Au3_CallByName_Init($oObject) __TS_TaskPropertiesSet($oObject, $aRegistrationInfo) MsgBox(0, "Info", "Press OK to exit") $oRegistrationInfo.quit $oRegistrationInfo = 0 $oObject = 0 Sleep(1000) For $i = 1 To 10 $Au3_CallByName = "Add" $oDictionary.Au3_CallByName("test1:" & $i, "Dictionary Item: " & $i) Next $Au3_CallByName = "keys" For $sKey In $oDictionary.Au3_CallByName() For $j = 0 To 1 $Au3_CallByName = ($j = 0) ? "Item" : "Exists" ConsoleWrite($sKey & " -> " & $oDictionary.Au3_CallByName($sKey) & @CRLF) Next Next Au3_CallByName_Init(False) ;Unload Au3_CallByName_Init() Local $aRegistrationInfo[] = ['Left=1000', 'Width=450'] ConsoleWrite(@CRLF & "NEW IE" & @CRLF & @CRLF) $oRegistrationInfo = _IECreate() __TS_TaskPropertiesSet($oRegistrationInfo, $aRegistrationInfo) MsgBox(0, "Info", "Press OK to exit") $oRegistrationInfo.quit For $i = 1 To 10 $Au3_CallByName = "Add" $oDictionary2.Au3_CallByName("test2:" & $i, "Dictionary Item: " & $i) Next $Au3_CallByName = "keys" For $sKey In $oDictionary2.Au3_CallByName() For $j = 0 To 1 $Au3_CallByName = ($j = 0) ? "Item" : "Exists" ConsoleWrite($sKey & " -> " & $oDictionary2.Au3_CallByName($sKey) & @CRLF) Next Next Au3_CallByName_Init(False) ;Unload (Not Strictly Needed, Done on Script Close) Func __TS_TaskPropertiesSet(ByRef $oObject, $aProperties) Local $aTemp If IsArray($aProperties) Then For $i = 0 To UBound($aProperties) - 1 $aTemp = StringSplit($aProperties[$i], "=", 2) ; 2 -> $STR_NOCOUNT) If @error Then ContinueLoop ConsoleWrite("Command: $oObject." & $aTemp[0] & " = " & $aTemp[1] & @CRLF) $Au3_CallByName = $aTemp[0] $oObject.Au3_CallByName = $aTemp[1] ConsoleWrite("Result : " & Hex(@error) & @CRLF) ; If @error Then Return SetError(1, @error, 0) Next EndIf EndFunc ;==>__TS_TaskPropertiesSet  
    • By mLipok
      Today, in the end as well, worked out using the Acrobat Reader ActiveX COM Object "AcroPDF.PDF.1"
      #include-once #include <Constants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Misc.au3> #include <MenuConstants.au3> #include <WinAPI.au3> ;~ Thanks to BrewManNH ;~ http://www.autoitscript.com/forum/topic/134878-guiregistermsg-replacement-for-guictrlsetonevent-and-guigetmsg/ ;~ Thanks to mikell ;~ http://www.autoitscript.com/forum/topic/161985-how-to-close-gui-with-guiregistermsg/ ; Install a custom error handler Global $oMyError = ObjEvent("AutoIt.Error", "_ComErrFunc") Global $__hExampleGUI Global $__idOPEN Global $_fExit Global $__hACROBAT_GUI = '' Global $__idACROBAT_GUI_CTRL_AX = '' Global $__oACROBAT_READER = '' #include <GUIConstantsEx.au3> ;~ GUIRegisterMsg($WM_ERASEBKGND, "_WM_EXTRACTOR") ;~ GUIRegisterMsg($WM_PAINT, "_WM_EXTRACTOR") ;~ GUIRegisterMsg($WM_ACTIVATE, "_WM_EXTRACTOR") ;~ GUIRegisterMsg($WM_CAPTURECHANGED, "_WM_EXTRACTOR") ;~ GUIRegisterMsg($WM_DEVICECHANGE, "_WM_EXTRACTOR") GUIRegisterMsg($WM_EXITSIZEMOVE, "_WM_EXTRACTOR") GUIRegisterMsg($WM_COMMAND, "_WM_EXTRACTOR") GUIRegisterMsg($WM_SYSCOMMAND, "_WM_EXTRACTOR") GUIRegisterMsg($WM_HSCROLL, "_WM_EXTRACTOR") _ExampleProgram_Gui() While 1 Sleep(10) If $_fExit Then _ACROBAT_GUI_DELETE() DeleteGui() Exit EndIf WEnd Func DeleteGui() GUIDelete($__hExampleGUI) EndFunc ;==>DeleteGui Func _ExampleProgram_Gui() ; Create a GUI with various controls. $__hExampleGUI = GUICreate("Example") $__idOPEN = GUICtrlCreateButton("&Open", 310, 370, 85, 25) ; Display the GUI. GUISetState(@SW_SHOW, $__hExampleGUI) EndFunc ;==>_ExampleProgram_Gui #Region ACROBAT FUNCTION Func _AcrobatInit() $__oACROBAT_READER = ObjCreate("AcroPDF.PDF.1"); Return $__oACROBAT_READER.GetVersions EndFunc ;==>_AcrobatInit Func _Acrobat_Events(ByRef $aMSG) If $aMSG[1] = $__hACROBAT_GUI Then Switch $aMSG[0] Case $GUI_EVENT_CLOSE _ACROBAT_GUI_DELETE() EndSwitch EndIf EndFunc ;==>_Acrobat_Events Func _ACROBAT_Destroy() $__oACROBAT_READER = "" ;~ MsgBox(1,'test','destroyed') EndFunc ;==>_ACROBAT_Destroy Func _AcrobatShow($sFile, $sTitle = "PDF ", $iLeft = 50, $iTop = 0, $iWidth = 1000, $iHeight = 700) If FileExists($sFile) Then _AcrobatInit() ; Set option $__oACROBAT_READER.src = $sFile $__oACROBAT_READER.SetLayoutMode(4) $__oACROBAT_READER.SetPageMode(1) $__oACROBAT_READER.SetShowToolbar(0) $__oACROBAT_READER.SetView(1) ; Create GUI $__hACROBAT_GUI = GUICreate($sTitle, $iWidth, $iHeight, $iLeft, $iTop, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX)) $__idACROBAT_GUI_CTRL_AX = GUICtrlCreateObj($__oACROBAT_READER, 5, 5, $iWidth - 20, $iHeight - 10) GUICtrlSetStyle($__idACROBAT_GUI_CTRL_AX, $WS_VISIBLE) GUISetState() EndIf EndFunc ;==>_AcrobatShow Func _ACROBAT_Refresh() If IsObj($__oACROBAT_READER) Then Local $hPreviouslyGui = GUISwitch($__hACROBAT_GUI) GUISetState(@SW_LOCK) Local $iGUI_PDFWidth = WinGetPos($__hACROBAT_GUI)[2] - 20 Local $iGUI_PDFHeight = WinGetPos($__hACROBAT_GUI)[3] - 40 Local $sFile = $__oACROBAT_READER.src ; this below line do not works with Acro Reader ; Local $iCurrentPage = $__oACROBAT_READER.GetNumber Local $iCurrentPage = 0 _ACROBAT_Destroy() GUICtrlDelete($__idACROBAT_GUI_CTRL_AX) _AcrobatInit() $__idACROBAT_GUI_CTRL_AX = GUICtrlCreateObj($__oACROBAT_READER, 5, 5, $iGUI_PDFWidth, $iGUI_PDFHeight) $__oACROBAT_READER.src = $sFile ;~ $__oACROBAT_READER.SetCurrentPage($iCurrentPage) GUISetState(@SW_UNLOCK) GUISwitch($hPreviouslyGui) EndIf EndFunc ;==>_ACROBAT_Refresh Func _ACROBAT_GUI_DELETE() _ACROBAT_Destroy() if IsHWnd($__hACROBAT_GUI) then GUIDelete($__hACROBAT_GUI) EndFunc ;==>_ACROBAT_GUI_DELETE #EndRegion ACROBAT FUNCTION #Region MSG and ERROR HANDLER Func _WM_EXTRACTOR($hWnd, $iMsg, $wParam, $lParam) ;~ ConsoleWrite('! $hWnd = ' & $hWnd & ' $iMsg = ' & $iMsg & '('&HEX($iMsg)&')'& ' $wParam = ' & $wParam & ' $lParam = ' & $lParam & @CRLF) If $hWnd = ControlGetHandle($__hACROBAT_GUI, '', $__idACROBAT_GUI_CTRL_AX) Then ConsoleWrite('! -------------- $hWnd = ' & $hWnd & ' $iMsg = ' & $iMsg & '(' & Hex($iMsg) & ')' & ' $wParam = ' & $wParam & ' $lParam = ' & $lParam & @CRLF) EndIf If $hWnd = $__hACROBAT_GUI Then Switch $iMsg Case $WM_COMMAND #cs Case $WM_ACTIVATE Local $test = BitAND($wParam, 0x00000004) if $test <> 0 then MsgBox(1,'$WM_ACTIVATE','test') _ACROBAT_Refresh() EndIf Case $WM_ERASEBKGND WinGetHandle("[ACTIVE]") if $__hACROBAT_GUI <> _WinAPI_GetWindow ( $__hACROBAT_GUI, $GW_HWNDPREV ) then ConsoleWrite('! Case $WM_ERASEBKGND' & @CRLF) _ACROBAT_Refresh() _WinAPI_RedrawWindow($__hACROBAT_GUI,0,0,$RDW_NOERASE) EndIf Case $WM_PAINT _WinAPI_RedrawWindow($__hACROBAT_GUI,0,0,$RDW_NOERASE) Case $WM_CAPTURECHANGED _ACROBAT_Refresh() Case $WM_DEVICECHANGE _ACROBAT_Refresh() #ce Case $WM_EXITSIZEMOVE _ACROBAT_Refresh() Case $WM_SYSCOMMAND ;~ Local $test = BitAND($wParam, 0xFFF0) Local $test = BitAND($wParam, 0x0000FFFF) Switch $test Case $SC_CLOSE _ACROBAT_GUI_DELETE() Case $SC_CONTEXTHELP Case $SC_DEFAULT Case $SC_HOTKEY Case $SC_HSCROLL Case $SC_KEYMENU Case $SC_MAXIMIZE _ACROBAT_Refresh() Case $SC_MINIMIZE Case $SC_MONITORPOWER Case $SC_MOUSEMENU Case $SC_MOVE ;~ _ACROBAT_Refresh() Case $SC_NEXTWINDOW ;~ _ACROBAT_Refresh() Case $SC_PREVWINDOW ;~ _ACROBAT_Refresh() Case $SC_RESTORE _ACROBAT_Refresh() Case $SC_SCREENSAVE Case $SC_SIZE Case $SC_TASKLIST Case $SC_VSCROLL EndSwitch EndSwitch EndIf If $hWnd = $__hExampleGUI Then Switch $iMsg Case $WM_COMMAND Local $nID = BitAND($wParam, 0x0000FFFF) Local $hCtrl = $lParam Switch $nID Case $__idOPEN if not IsObj($__oACROBAT_READER) then _AcrobatShow(FileOpenDialog("Choose PDF", "C:\Temp", "PDF Files(*.pdf)", 3)) ; put your own start folder here) EndIf EndSwitch Case $WM_SYSCOMMAND Local $test = BitAND($wParam, 0xFFF0) Switch $test Case $SC_CLOSE $_fExit = True Case $SC_CONTEXTHELP Case $SC_DEFAULT Case $SC_HOTKEY Case $SC_HSCROLL Case $SC_KEYMENU Case $SC_MAXIMIZE Case $SC_MINIMIZE Case $SC_MONITORPOWER Case $SC_MOUSEMENU Case $SC_MOVE Case $SC_NEXTWINDOW Case $SC_PREVWINDOW Case $SC_RESTORE Case $SC_SCREENSAVE Case $SC_SIZE Case $SC_TASKLIST Case $SC_VSCROLL EndSwitch EndSwitch EndIf Return $GUI_RUNDEFMSG EndFunc ;==>_WM_EXTRACTOR Func _ComErrFunc() Local $HexNumber = Hex($oMyError.number, 8) MsgBox(0, "AutoItCOM Test", _ "We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & $HexNumber & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) SetError(1) EndFunc ;==>_ComErrFunc #EndRegion MSG and ERROR HANDLER Any comments are welcome.
      Cheers
      mLipok
    • By jantograaf
      Hi all,
      I'm trying to write a script that connects with a VBA/COM API to get the status of a connected phone. I've been looking up and down this forum for tips or other user's experiences, but I can't seem to find anything (even remotely) similar. It shouldn't be so hard to do, however.
      Software I'm trying to connect to
      I'm trying to integrate CallCenter by using their API, which is documented over here : JustRemotePhone API Reference
      Things I've tried
      I've tried using ObjCreate but I don't get any result, it always returns the same (negative) error.
      #Version 1 tried ObjCreate("JustRemotePhone.RemotePhoneService") #Version 2 tried ObjCreate("JustRemotePhoneCOM.RemotePhoneService") #Version 3 tried ObjCreate("JustRemotePhoneCOM.RemotePhoneService.Application") None of the three versions I tried seem to deliver any result other than a negative error value which basically says that the given class is not valid.
      I am starting to get the hang of AutoIt by now, but unmanaged programming languages and object-oriented stuff is still quite a grey zone for me. If anyone could help me 'talk' to this application, I'd be immensely grateful!
      Thanks in advance and kind regards from Belgium!
       
      Jan
    • By Rhidlor
      So I'm trying to do some as400 automation and hit a wall when trying to get a COM object. The code on line 8 is failing, the as400.ws file opens with PCSWS.exe so I tried using that as the file path too but that didn't work either. Any and all help is greatly appreciated! 
       
      $file = "C:\Users\Rhidlor\Desktop\as400.ws" If Not FileExists($file) Then MsgBox(0, "Error", "Error finding file") Exit EndIf $object = ObjGet($file) If @error Then MsgBox(0, "Error", "Error getting object") Exit EndIf $object.SendKeys("05")  
×
×
  • Create New...