sancarn

# InfoWorks ICM - How to customise your toolbars

# InfoWorks ICM - How to customise your toolbars programatically

By now you should know that if I'm talking about it, it'd be because I've found a way to autoamte it! 

sancarn

Source: https://syon.github.io/wiki/Win32API/

Pre ruby 2.0:

require 'dl/import'

module User32
  extend DL::Importer
  dlload 'user32'

sancarn

Ruby IDispatch

A way of dispatching Ruby classes and objects as COM OLE objects, via win32ole.

Uses

Useful for IE intergration:

require 'win32ole'

sancarn

ICM Method Lists

Attempts to produce a list of all available classes and methods available in the current ICM instance.

Issues

Currently does not retrieve methods of Object class and it's ancestors (e.g. BasicObject) - Perhaps this should be added

sancarn

Ruby - Class and Methods Report

Attempts to produce a list of all available classes and methods available in the current Ruby instance.

Issues

Currently does not retrieve methods of Object class and it's ancestors (e.g. BasicObject) - Perhaps this should be added

sancarn

Alter Table S104 (Add CAB Logical, KST Logical, PLT Logical)

select * from S104 where Adoption_Date <> "" into qNoBlank
select * from qNoBlank where Adoption_Date < CurDate() into qCAB
select * from qNoBlank where Adoption_Date >= CurDate() into qKST1

select * from S104 where Adoption_Date = "" into qBlank
select * from qBlank where Date_Confirmation < CurDate() or dwellings(DWF_Total_m3_per_sec) < 50 into qKST2
select * from qBlank where Date_Confirmation > CurDate() and dwellings(DWF_Total_m3_per_sec) >= 50 into qPLT

sancarn

def proxy__enwrap(obj)
    isClass = obj.is_a?(Class)
    oldClass = isClass ? obj : obj.class
    sNewClass = "Proxy#{oldClass.to_s}"
    code = <<-EOF
        class #{sNewClass}
            include InstanceProxy
            def self.__cinit__(obj)
                @@__cobj__ = obj
            end

sancarn

Test

sancarn

At C:\Users\sancarn\AppData\Local\Temp\script.ps1:20 char:20
+         $parent = [System.Windows.Forms.TreeNode]$global:database.Ite ...
+                    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Unable to find type [System.Windows.Forms.TreeNode].
At C:\Users\sancarn\AppData\Local\Temp\script.ps1:27 char:36
+ ...          [void]$node.nodes.add([System.Windows.Forms.TreeNode]::new(" ...
+                                     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Unable to find type [System.Windows.Forms.TreeNode].
At C:\Users\sancarn\AppData\Local\Temp\script.ps1:33 char:45
+ ... PSCustomObject]IWDBGetChildren([System.Windows.Forms.TreeNode]$node)  ...

sancarn

SetTimer, ActivityWatcher, 150
return

ActivityWatcher:
    if !CurrentTitle
    {
        WinGetTitle, CurrentTitle, A
        QPC(1)
    }