Notes-6:LUA應用之利用luacom接收IE,Excel消息

package.cpath=[[D:\Tools\Lua\5.1\clibs\?.dll]];
require "luacom"

excel=luacom.CreateObject("Excel.Application");
assert(excel);
excel.Visible=true;

workbook=excel.Workbooks:Add();
print("workbook=" .. tostring(workbook));
workbook_events={}
function workbook_events:NewSheet(Sheet)
	print("Event: NewSheet", Sheet);
end
local res, cookie=luacom.Connect(workbook, workbook_events);
print(res, cookie);

luacom.StartMessageLoop()

package.cpath=[[C:\Program Files\Lua\5.1\clibs\?.dll]];
require "luacom"local browser=luacom.CreateObject('InternetExplorer.Application') browser.visible=truelocal 
browser_events={} 
function browser_events:DocumentComplete(d,url)   print(d, url);end-- 自動從接口DWebBrowserEvents2接收DocumentComplete事件
res, cookie=luacom.Connect(browser, browser_events); 
print(res, cookie);
browser:Navigate2("http://yahoo.com.cn");
luacom.StartMessageLoop() -- 加上這個才能正常的使用luacom.Connect

package.cpath=[[C:\Program Files\Lua\5.1\clibs\?.dll]];
require "luacom"

function MyIE()   
    local b=luacom.CreateObject('InternetExplorer.Application') 
    b.visible=true
    local obj={    
        DocumentComplete=function(o, d,url)  
			print(d, url);
        end,
        Go=function() b:Navigate2('http://www.google.co.uk') end
    }
    local meta={  
        __index = function(s,i) return rawget(s,i) or b[i]; end
    }
    setmetatable(obj,meta);
    obj.__eventobj=luacom.ImplInterface(obj, 'InternetExplorer.Application', 'DWebBrowserEvents2');
	luacom.addConnection(b, obj.__eventobj);
    return obj;
end

m = MyIE()
m.Go();
m:Navigate2("http://yahoo.com.cn");

luacom.StartMessageLoop();