diff options
Diffstat (limited to 'trunk/ext/win32ole/sample/ienavi.rb')
-rw-r--r-- | trunk/ext/win32ole/sample/ienavi.rb | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/trunk/ext/win32ole/sample/ienavi.rb b/trunk/ext/win32ole/sample/ienavi.rb deleted file mode 100644 index c7fa3f5ec2..0000000000 --- a/trunk/ext/win32ole/sample/ienavi.rb +++ /dev/null @@ -1,40 +0,0 @@ -require 'win32ole' - -$urls = [] - -def navigate(url) - $urls << url -end - -def stop_msg_loop - puts "Now Stop IE..." - $LOOP = FALSE; -end - -def default_handler(event, *args) - case event - when "BeforeNavigate" - puts "Now Navigate #{args[0]}..." - end -end - -ie = WIN32OLE.new('InternetExplorer.Application') -ie.visible = TRUE -ie.gohome - -ev = WIN32OLE_EVENT.new(ie, 'DWebBrowserEvents') - -ev.on_event {|*args| default_handler(*args)} -ev.on_event("NavigateComplete") {|url| navigate(url)} -ev.on_event("Quit") {|*args| stop_msg_loop} - -$LOOP = TRUE -while ($LOOP) - WIN32OLE_EVENT.message_loop -end - -puts "You Navigated the URLs ..." -$urls.each_with_index do |url, i| - puts "(#{i+1}) #{url}" -end - |