suke	2008-07-26 21:49:25 +0900 (Sat, 26 Jul 2008)

  New Revision: 18226

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=18226

  Log:
    add sample script using WIN32OLE_EVENT#handler=

  Added files:
    trunk/ext/win32ole/sample/ienavi2.rb

Index: ext/win32ole/sample/ienavi2.rb
===================================================================
--- ext/win32ole/sample/ienavi2.rb	(revision 0)
+++ ext/win32ole/sample/ienavi2.rb	(revision 18226)
@@ -0,0 +1,40 @@
+require 'win32ole'
+
+class IEHandler
+  attr_reader :loop
+  def initialize
+    @urls = []
+    @loop = true
+  end
+  def method_missing(event, *args)
+    case event
+    when "BeforeNavigate2"
+      puts "Now Navigate #{args[1]}..."
+    end
+  end
+  def onNavigateComplete2(pdisp, url)
+    @urls << url
+  end
+  def onOnQuit
+    puts "Now Stop IE..."
+    @loop = false
+  end
+  def put_urls
+    puts "You Navigated the URLs ..."
+    @urls.each_with_index do |url, i|
+      puts "(#{i+1}) #{url}"
+    end
+  end
+end
+
+ie = WIN32OLE.new('InternetExplorer.Application')
+ie.visible = true
+ie.gohome
+
+ev = WIN32OLE_EVENT.new(ie)
+ev.handler = IEHandler.new
+
+while (ev.handler.loop)
+  WIN32OLE_EVENT.message_loop
+end
+ev.handler.put_urls

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/