Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6b444f9342
Fetching contributors…

Cannot retrieve contributors at this time

46 lines (30 sloc) 0.717 kB
require 'win32ole'
$urls = []
def navigate(url)
$urls << url
end
def stop_msg_loop
puts "IE has exited..."
$done = true
end
def default_handler(event, *args)
case event
when "BeforeNavigate"
puts "Now Navigating to #{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("NavigateComplete2") {|obj, url| navigate(url)}
ev.on_event("OnQuit") {|*args| stop_msg_loop}
while !$done do
WIN32OLE_EVENT.message_loop
sleep 0.5
end
puts "You Navigated to the following URLs: "
$urls.each_with_index do |url, i|
puts "(#{i+1}) #{url}"
end
Jump to Line
Something went wrong with that request. Please try again.