fzeet 0.6.5 → 0.6.6

data/lib/fzeet/windows/kernel/Common.rb

@@ -0,0 +1,92 @@
+require_relative '../core'
+
+module Fzeet
+	module Windows
+		ffi_lib 'kernel32'
+		ffi_convention :stdcall
+
+		attach_function :GetModuleHandle, :GetModuleHandleA, [:string], :pointer
+
+		attach_function :LoadLibrary, :LoadLibraryA, [:string], :pointer
+		attach_function :FreeLibrary, [:pointer], :int
+
+		attach_function :GetSystemDefaultLCID, [], :ulong
+
+		if Version >= :xp
+			class ACTCTX < FFI::Struct
+				layout \
+					:cbSize, :ulong,
+					:dwFlags, :ulong,
+					:lpSource, :pointer,
+					:wProcessorArchitecture, :ushort,
+					:wLangId, :ushort,
+					:lpAssemblyDirectory, :pointer,
+					:lpResourceName, :pointer,
+					:lpApplicationName, :pointer,
+					:hModule, :pointer
+			end
+
+			attach_function :CreateActCtx, :CreateActCtxA, [:pointer], :pointer
+			attach_function :ReleaseActCtx, [:pointer], :void
+
+			attach_function :ActivateActCtx, [:pointer, :pointer], :int
+			attach_function :DeactivateActCtx, [:ulong, :ulong], :int
+
+			COMMON_CONTROLS_ACTCTX = {
+				handle: INVALID_HANDLE_VALUE,
+				cookie: FFI::MemoryPointer.new(:ulong),
+				activated: false
+			}
+
+			at_exit {
+				DeactivateActCtx(0, COMMON_CONTROLS_ACTCTX[:cookie].get_ulong(0)) if
+					COMMON_CONTROLS_ACTCTX[:activated]
+
+				COMMON_CONTROLS_ACTCTX[:cookie].free
+
+				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]) unless
+					COMMON_CONTROLS_ACTCTX[:handle] == INVALID_HANDLE_VALUE
+			}
+		end
+
+		def EnableVisualStyles
+			return unless Version >= :xp
+
+			raise 'Visual styles already enabled.' if COMMON_CONTROLS_ACTCTX[:activated]
+
+			manifest = "#{ENV['TEMP']}/Fzeet.Common-Controls.manifest"
+
+			File.open(manifest, 'w:utf-8') { |file|
+				file << <<-XML
+<?xml version='1.0' encoding='utf-8' standalone='yes' ?>
+<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
+	<dependency>
+		<dependentAssembly>
+			<assemblyIdentity type='Win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*' />
+		</dependentAssembly>
+	</dependency>
+</assembly>
+				XML
+			}
+
+			ac = ACTCTX.new
+
+			ac[:cbSize] = ac.size
+			ac[:lpSource] = source = FFI::MemoryPointer.from_string(File.expand_path(manifest))
+
+			COMMON_CONTROLS_ACTCTX[:handle] = DetonateLastError(INVALID_HANDLE_VALUE, :CreateActCtx, ac) { source.free }
+
+			DetonateLastError(0, :ActivateActCtx, COMMON_CONTROLS_ACTCTX[:handle], COMMON_CONTROLS_ACTCTX[:cookie]) { |failed|
+				next unless failed
+
+				ReleaseActCtx(COMMON_CONTROLS_ACTCTX[:handle]); COMMON_CONTROLS_ACTCTX[:handle] = INVALID_HANDLE_VALUE
+			}
+
+			COMMON_CONTROLS_ACTCTX[:activated] = true
+		end
+
+		module_function :EnableVisualStyles
+
+		attach_function :MulDiv, [:int, :int, :int], :int
+	end
+end

data/lib/fzeet/windows/libc.rb

@@ -1,4 +1,4 @@
-require_relative 'common'
+require_relative 'core'
 
 module Fzeet
 	module Windows

data/lib/fzeet/windows/libcef.rb

@@ -0,0 +1 @@
+require_relative 'libcef/CefBrowser'

data/lib/fzeet/windows/mshtml.rb

@@ -1,1135 +1 @@
-require_relative 'ole'
-
-module Fzeet
-	module Windows
-		ffi_lib 'mshtml'
-		ffi_convention :stdcall
-
-		IHTMLDocument = COM::Interface[IDispatch,
-			GUID['626FC520-A41E-11cf-A731-00A0C9082637'],
-
-			get_Script: [[:pointer], :long]
-		]
-
-		HTMLDocument = COM::Instance[IHTMLDocument]
-
-		IHTMLDocument2 = COM::Interface[IHTMLDocument,
-			GUID['332c4425-26cb-11d0-b483-00c04fd90119'],
-
-			get_all: [[:pointer], :long],
-			get_body: [[:pointer], :long],
-			get_activeElement: [[:pointer], :long],
-			get_images: [[:pointer], :long],
-			get_applets: [[:pointer], :long],
-			get_links: [[:pointer], :long],
-			get_forms: [[:pointer], :long],
-			get_anchors: [[:pointer], :long],
-			put_title: [[:pointer], :long],
-			get_title: [[:pointer], :long],
-			get_scripts: [[:pointer], :long],
-			put_designMode: [[:pointer], :long],
-			get_designMode: [[:pointer], :long],
-			get_selection: [[:pointer], :long],
-			get_readyState: [[:pointer], :long],
-			get_frames: [[:pointer], :long],
-			get_embeds: [[:pointer], :long],
-			get_plugins: [[:pointer], :long],
-			put_alinkColor: [[VARIANT], :long],
-			get_alinkColor: [[:pointer], :long],
-			put_bgColor: [[VARIANT], :long],
-			get_bgColor: [[:pointer], :long],
-			put_fgColor: [[VARIANT], :long],
-			get_fgColor: [[:pointer], :long],
-			put_linkColor: [[VARIANT], :long],
-			get_linkColor: [[:pointer], :long],
-			put_vlinkColor: [[VARIANT], :long],
-			get_vlinkColor: [[:pointer], :long],
-			get_referrer: [[:pointer], :long],
-			get_location: [[:pointer], :long],
-			get_lastModified: [[:pointer], :long],
-			put_URL: [[:pointer], :long],
-			get_URL: [[:pointer], :long],
-			put_domain: [[:pointer], :long],
-			get_domain: [[:pointer], :long],
-			put_cookie: [[:pointer], :long],
-			get_cookie: [[:pointer], :long],
-			put_expando: [[:short], :long],
-			get_expando: [[:pointer], :long],
-			put_charset: [[:pointer], :long],
-			get_charset: [[:pointer], :long],
-			put_defaultCharset: [[:pointer], :long],
-			get_defaultCharset: [[:pointer], :long],
-			get_mimeType: [[:pointer], :long],
-			get_fileSize: [[:pointer], :long],
-			get_fileCreatedDate: [[:pointer], :long],
-			get_fileModifiedDate: [[:pointer], :long],
-			get_fileUpdatedDate: [[:pointer], :long],
-			get_security: [[:pointer], :long],
-			get_protocol: [[:pointer], :long],
-			get_nameProp: [[:pointer], :long],
-			write: [[:pointer], :long],
-			writeln: [[:pointer], :long],
-			open: [[:pointer, VARIANT, VARIANT, VARIANT, :pointer], :long],
-			close: [[], :long],
-			clear: [[], :long],
-			queryCommandSupported: [[:pointer, :pointer], :long],
-			queryCommandEnabled: [[:pointer, :pointer], :long],
-			queryCommandState: [[:pointer, :pointer], :long],
-			queryCommandIndeterm: [[:pointer, :pointer], :long],
-			queryCommandText: [[:pointer, :pointer], :long],
-			queryCommandValue: [[:pointer, :pointer], :long],
-			execCommand: [[:pointer, :short, VARIANT, :pointer], :long],
-			execCommandShowHelp: [[:pointer, :pointer], :long],
-			createElement: [[:pointer, :pointer], :long],
-			put_onhelp: [[VARIANT], :long],
-			get_onhelp: [[:pointer], :long],
-			put_onclick: [[VARIANT], :long],
-			get_onclick: [[:pointer], :long],
-			put_ondblclick: [[VARIANT], :long],
-			get_ondblclick: [[:pointer], :long],
-			put_onkeyup: [[VARIANT], :long],
-			get_onkeyup: [[:pointer], :long],
-			put_onkeydown: [[VARIANT], :long],
-			get_onkeydown: [[:pointer], :long],
-			put_onkeypress: [[VARIANT], :long],
-			get_onkeypress: [[:pointer], :long],
-			put_onmouseup: [[VARIANT], :long],
-			get_onmouseup: [[:pointer], :long],
-			put_onmousedown: [[VARIANT], :long],
-			get_onmousedown: [[:pointer], :long],
-			put_onmousemove: [[VARIANT], :long],
-			get_onmousemove: [[:pointer], :long],
-			put_onmouseout: [[VARIANT], :long],
-			get_onmouseout: [[:pointer], :long],
-			put_onmouseover: [[VARIANT], :long],
-			get_onmouseover: [[:pointer], :long],
-			put_onreadystatechange: [[VARIANT], :long],
-			get_onreadystatechange: [[:pointer], :long],
-			put_onafterupdate: [[VARIANT], :long],
-			get_onafterupdate: [[:pointer], :long],
-			put_onrowexit: [[VARIANT], :long],
-			get_onrowexit: [[:pointer], :long],
-			put_onrowenter: [[VARIANT], :long],
-			get_onrowenter: [[:pointer], :long],
-			put_ondragstart: [[VARIANT], :long],
-			get_ondragstart: [[:pointer], :long],
-			put_onselectstart: [[VARIANT], :long],
-			get_onselectstart: [[:pointer], :long],
-			elementFromPoint: [[:long, :long, :pointer], :long],
-			get_parentWindow: [[:pointer], :long],
-			get_styleSheets: [[:pointer], :long],
-			put_onbeforeupdate: [[VARIANT], :long],
-			get_onbeforeupdate: [[:pointer], :long],
-			put_onerrorupdate: [[VARIANT], :long],
-			get_onerrorupdate: [[:pointer], :long],
-			toString: [[:pointer], :long],
-			createStyleSheet: [[:pointer, :long, :pointer], :long]
-		]
-
-		HTMLDocument2 = COM::Instance[IHTMLDocument2]
-
-		class HTMLDocument2
-			attr_reader :handlers
-
-			def on(event, &block)
-				_event, _block = if event == :ready
-					[:readystatechange, -> *args { next unless readyState == 'complete'; block.(*args) }]
-				else
-					[event, block]
-				end
-
-				((@handlers ||= {})[_event] ||= []) << _block
-				@dcallbacks ||= []
-
-				send("put_on#{_event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@document, self)
-						dcb.instance_variable_set(:@event, _event)
-
-						def dcb.Invoke(*args)
-							@document.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-
-			def parentWindow
-				FFI::MemoryPointer.new(:pointer) { |pwindow|
-					get_parentWindow(pwindow)
-
-					return HTMLWindow2.new(pwindow.read_pointer)
-				}
-			end
-
-			alias window parentWindow
-
-			def request?; Windows.CoInternetIsFeatureEnabled(FEATURE_XMLHTTP, GET_FEATURE_FROM_PROCESS) == S_OK end
-			def request=(enabled) Windows.DetonateHresult(:CoInternetSetFeatureEnabled, FEATURE_XMLHTTP, SET_FEATURE_ON_PROCESS, (enabled) ? 1 : 0) end
-
-			def request
-				disp = nil
-
-				window.QueryInstance(HTMLWindow5) { |htmlwindow5|
-					disp = Dispatch.new(VARIANT.new.tap { |v| htmlwindow5.get_XMLHttpRequest(v) }[:pdispVal])
-
-					disp.QueryInstance(HTMLXMLHttpRequestFactory) { |factory|
-						FFI::MemoryPointer.new(:pointer) { |prequest|
-							factory.create(prequest)
-
-							return HTMLXMLHttpRequest.new(prequest.read_pointer)
-						}
-					}
-				}
-			ensure
-				disp.Release if disp
-			end
-
-			def xrequest
-				disp = nil
-
-				window.QueryInstance(HTMLWindow6) { |htmlwindow6|
-					disp = Dispatch.new(VARIANT.new.tap { |v| htmlwindow6.get_XDomainRequest(v) }[:pdispVal])
-
-					disp.QueryInstance(HTMLXDomainRequestFactory) { |factory|
-						FFI::MemoryPointer.new(:pointer) { |pxrequest|
-							factory.create(pxrequest)
-
-							return HTMLXDomainRequest.new(pxrequest.read_pointer)
-						}
-					}
-				}
-			ensure
-				disp.Release if disp
-			end
-
-			def readyState
-				FFI::MemoryPointer.new(:pointer) { |pstate|
-					get_readyState(pstate)
-
-					return Windows.WCSTOMBS(pstate.read_pointer)
-				}
-			end
-
-			def all
-				pdisp = nil
-
-				FFI::MemoryPointer.new(:pointer) { |pdisp|
-					get_all(pdisp)
-
-					disp = Dispatch.new(pdisp.read_pointer)
-
-					return disp.QueryInstance(HTMLElementCollection)
-				}
-			ensure
-				pdisp.Release if pdisp
-			end
-
-			alias old_createElement createElement
-
-			def createElement(tag)
-				bstr = nil
-
-				FFI::MemoryPointer.new(:pointer) { |pelem|
-					old_createElement(bstr = Windows.SysAllocString("#{tag}\0".encode('utf-16le')), pelem)
-
-					return HTMLElement.new(pelem.read_pointer)
-				}
-			ensure
-				Windows.SysFreeString(bstr)
-			end
-		end
-
-		IHTMLFramesCollection2 = COM::Interface[IDispatch,
-			GUID['332c4426-26cb-11d0-b483-00c04fd90119'],
-
-			item: [[:pointer, :pointer], :long],
-			get_length: [[:pointer], :long]
-		]
-
-		HTMLFramesCollection2 = COM::Instance[IHTMLFramesCollection2]
-
-		IHTMLWindow2 = COM::Interface[IHTMLFramesCollection2,
-			GUID['332c4427-26cb-11d0-b483-00c04fd90119'],
-
-			get_frames: [[:pointer], :long],
-			put_defaultStatus: [[:pointer], :long],
-			get_defaultStatus: [[:pointer], :long],
-			put_status: [[:pointer], :long],
-			get_status: [[:pointer], :long],
-			setTimeout: [[:pointer, :long, :pointer, :pointer], :long],
-			clearTimeout: [[:long], :long],
-			alert: [[:pointer], :long],
-			confirm: [[:pointer, :pointer], :long],
-			prompt: [[:pointer, :pointer, :pointer], :long],
-			get_Image: [[:pointer], :long],
-			get_location: [[:pointer], :long],
-			get_history: [[:pointer], :long],
-			close: [[], :long],
-			put_opener: [[VARIANT], :long],
-			get_opener: [[:pointer], :long],
-			get_navigator: [[:pointer], :long],
-			put_name: [[:pointer], :long],
-			get_name: [[:pointer], :long],
-			get_parent: [[:pointer], :long],
-			open: [[:pointer, :pointer, :pointer, :short, :pointer], :long],
-			get_self: [[:pointer], :long],
-			get_top: [[:pointer], :long],
-			get_window: [[:pointer], :long],
-			navigate: [[:pointer], :long],
-			put_onfocus: [[VARIANT], :long],
-			get_onfocus: [[:pointer], :long],
-			put_onblur: [[VARIANT], :long],
-			get_onblur: [[:pointer], :long],
-			put_onload: [[VARIANT], :long],
-			get_onload: [[:pointer], :long],
-			put_onbeforeunload: [[VARIANT], :long],
-			get_onbeforeunload: [[:pointer], :long],
-			put_onunload: [[VARIANT], :long],
-			get_onunload: [[:pointer], :long],
-			put_onhelp: [[VARIANT], :long],
-			get_onhelp: [[:pointer], :long],
-			put_onerror: [[VARIANT], :long],
-			get_onerror: [[:pointer], :long],
-			put_onresize: [[VARIANT], :long],
-			get_onresize: [[:pointer], :long],
-			put_onscroll: [[VARIANT], :long],
-			get_onscroll: [[:pointer], :long],
-			get_document: [[:pointer], :long],
-			get_event: [[:pointer], :long],
-			get__newEnum: [[:pointer], :long],
-			showModalDialog: [[:pointer, :pointer, :pointer, :pointer], :long],
-			showHelp: [[:pointer, VARIANT, :pointer], :long],
-			get_screen: [[:pointer], :long],
-			get_Option: [[:pointer], :long],
-			focus: [[], :long],
-			get_closed: [[:pointer], :long],
-			blur: [[], :long],
-			scroll: [[:long, :long], :long],
-			get_clientInformation: [[:pointer], :long],
-			setInterval: [[:pointer, :long, :pointer, :pointer], :long],
-			clearInterval: [[:long], :long],
-			put_offscreenBuffering: [[VARIANT], :long],
-			get_offscreenBuffering: [[:pointer], :long],
-			execScript: [[:pointer, :pointer, :pointer], :long],
-			toString: [[:pointer], :long],
-			scrollBy: [[:long, :long], :long],
-			scrollTo: [[:long, :long], :long],
-			moveTo: [[:long, :long], :long],
-			moveBy: [[:long, :long], :long],
-			resizeTo: [[:long, :long], :long],
-			resizeBy: [[:long, :long], :long],
-			get_external: [[:pointer], :long]
-		]
-
-		HTMLWindow2 = COM::Instance[IHTMLWindow2]
-
-		class HTMLWindow2
-			attr_reader :handlers
-
-			def on(event, &block)
-				((@handlers ||= {})[event] ||= []) << block
-				@dcallbacks ||= []
-
-				send("put_on#{event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@window, self)
-						dcb.instance_variable_set(:@event, event)
-
-						def dcb.Invoke(*args)
-							@window.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-		end
-
-		IHTMLWindow5 = COM::Interface[IDispatch,
-			GUID['3051040e-98b5-11cf-bb82-00aa00bdce0b'],
-
-			put_XMLHttpRequest: [[VARIANT], :long],
-			get_XMLHttpRequest: [[:pointer], :long]
-		]
-
-		HTMLWindow5 = COM::Instance[IHTMLWindow5]
-
-		IHTMLWindow6 = COM::Interface[IDispatch,
-			GUID['30510453-98b5-11cf-bb82-00aa00bdce0b'],
-
-			put_XDomainRequest: [[VARIANT], :long],
-			get_XDomainRequest: [[:pointer], :long],
-			get_sessionStorage: [[:pointer], :long],
-			get_localStorage: [[:pointer], :long],
-			put_onhashchange: [[VARIANT], :long],
-			get_onhashchange: [[:pointer], :long],
-			get_maxConnectionsPerServer: [[:pointer], :long],
-			postMessage: [[:pointer, VARIANT], :long],
-			toStaticHTML: [[:pointer, :pointer], :long],
-			put_onmessage: [[VARIANT], :long],
-			get_onmessage: [[:pointer], :long],
-			msWriteProfilerMark: [[:pointer], :long]
-		]
-
-		HTMLWindow6 = COM::Instance[IHTMLWindow6]
-
-		class HTMLWindow6
-			attr_reader :handlers
-
-			def on(event, &block)
-				((@handlers ||= {})[event] ||= []) << block
-				@dcallbacks ||= []
-
-				send("put_on#{event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@window, self)
-						dcb.instance_variable_set(:@event, event)
-
-						def dcb.Invoke(*args)
-							@window.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-		end
-
-		IHTMLXMLHttpRequestFactory = COM::Interface[IDispatch,
-			GUID['3051040c-98b5-11cf-bb82-00aa00bdce0b'],
-
-			create: [[:pointer], :long]
-		]
-
-		HTMLXMLHttpRequestFactory = COM::Instance[IHTMLXMLHttpRequestFactory]
-
-		IHTMLXMLHttpRequest = COM::Interface[IDispatch,
-			GUID['3051040a-98b5-11cf-bb82-00aa00bdce0b'],
-
-			get_readyState: [[:pointer], :long],
-			get_responseBody: [[:pointer], :long],
-			get_responseText: [[:pointer], :long],
-			get_responseXML: [[:pointer], :long],
-			get_status: [[:pointer], :long],
-			get_statusText: [[:pointer], :long],
-			put_onreadystatechange: [[VARIANT], :long],
-			get_onreadystatechange: [[:pointer], :long],
-			abort: [[], :long],
-			open: [[:pointer, :pointer, VARIANT, VARIANT, VARIANT], :long],
-			send: [[VARIANT], :long],
-			getAllResponseHeaders: [[:pointer], :long],
-			getResponseHeader: [[:pointer, :pointer], :long],
-			setRequestHeader: [[:pointer, :pointer], :long]
-		]
-
-		HTMLXMLHttpRequest = COM::Instance[IHTMLXMLHttpRequest]
-
-		class HTMLXMLHttpRequest
-			attr_reader :handlers
-
-			def on(event, &block)
-				((@handlers ||= {})[event] ||= []) << block
-				@dcallbacks ||= []
-
-				__send__("put_on#{event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@request, self)
-						dcb.instance_variable_set(:@event, event)
-
-						def dcb.Invoke(*args)
-							@request.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-
-			%w{readyState status}.each { |name|
-				define_method(name) {
-					FFI::MemoryPointer.new(:pointer) { |plong|
-						__send__("get_#{name}", plong)
-
-						return plong.read_long
-					}
-				}
-			}
-
-			%w{statusText responseText}.each { |name|
-				define_method(name) {
-					ppbstr = FFI::MemoryPointer.new(:pointer)
-
-					begin
-						__send__("get_#{name}", ppbstr)
-
-						return nil if (pbstr = ppbstr.read_pointer).null?
-
-						begin
-							Windows.WCSTOMBS(pbstr)
-						ensure
-							Windows.SysFreeString(pbstr)
-						end
-					ensure
-						ppbstr.free
-					end
-				}
-			}
-
-			alias old_open open
-
-			def open(url, method = 'get')
-				old_open(
-					bstr = Windows.SysAllocString("#{method}\0".encode('utf-16le')),
-					bstr2 = Windows.SysAllocString("#{url}\0".encode('utf-16le')),
-					VARIANT.new.tap { |v| v[:vt] = VT_BOOL; v[:boolVal] = -1 },
-					VARIANT.new,
-					VARIANT.new
-				)
-
-				self
-			ensure
-				Windows.SysFreeString(bstr)
-				Windows.SysFreeString(bstr2)
-			end
-		end
-
-		IHTMLXDomainRequestFactory = COM::Interface[IDispatch,
-			GUID['30510456-98b5-11cf-bb82-00aa00bdce0b'],
-
-			create: [[:pointer], :long]
-		]
-
-		HTMLXDomainRequestFactory = COM::Instance[IHTMLXDomainRequestFactory]
-
-		IHTMLXDomainRequest = COM::Interface[IDispatch,
-			GUID['30510454-98b5-11cf-bb82-00aa00bdce0b'],
-
-			get_responseText: [[:pointer], :long],
-			put_timeout: [[:long], :long],
-			get_timeout: [[:pointer], :long],
-			get_contentType: [[:pointer], :long],
-			put_onprogress: [[VARIANT], :long],
-			get_onprogress: [[:pointer], :long],
-			put_onerror: [[VARIANT], :long],
-			get_onerror: [[:pointer], :long],
-			put_ontimeout: [[VARIANT], :long],
-			get_ontimeout: [[:pointer], :long],
-			put_onload: [[VARIANT], :long],
-			get_onload: [[:pointer], :long],
-			abort: [[], :long],
-			open: [[:pointer, :pointer], :long],
-			send: [[VARIANT], :long]
-		]
-
-		HTMLXDomainRequest = COM::Instance[IHTMLXDomainRequest]
-
-		class HTMLXDomainRequest
-			attr_reader :handlers
-
-			def on(event, &block)
-				((@handlers ||= {})[event] ||= []) << block
-				@dcallbacks ||= []
-
-				__send__("put_on#{event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@xrequest, self)
-						dcb.instance_variable_set(:@event, event)
-
-						def dcb.Invoke(*args)
-							@xrequest.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-
-			%w{responseText}.each { |name|
-				define_method(name) {
-					ppbstr = FFI::MemoryPointer.new(:pointer)
-
-					begin
-						__send__("get_#{name}", ppbstr)
-
-						return nil if (pbstr = ppbstr.read_pointer).null?
-
-						begin
-							Windows.WCSTOMBS(pbstr)
-						ensure
-							Windows.SysFreeString(pbstr)
-						end
-					ensure
-						ppbstr.free
-					end
-				}
-			}
-
-			alias old_open open
-
-			def open(url, method = 'get')
-				old_open(
-					bstr = Windows.SysAllocString("#{method}\0".encode('utf-16le')),
-					bstr2 = Windows.SysAllocString("#{url}\0".encode('utf-16le'))
-				)
-
-				self
-			ensure
-				Windows.SysFreeString(bstr)
-				Windows.SysFreeString(bstr2)
-			end
-		end
-
-		IHTMLElement = COM::Interface[IDispatch,
-			GUID['3050f1ff-98b5-11cf-bb82-00aa00bdce0b'],
-
-			setAttribute: [[:pointer, VARIANT, :long], :long],
-			getAttribute: [[:pointer, :long, :pointer], :long],
-			removeAttribute: [[:pointer, :long, :pointer], :long],
-			put_className: [[:pointer], :long],
-			get_className: [[:pointer], :long],
-			put_id: [[:pointer], :long],
-			get_id: [[:pointer], :long],
-			get_tagName: [[:pointer], :long],
-			get_parentElement: [[:pointer], :long],
-			get_style: [[:pointer], :long],
-			put_onhelp: [[VARIANT], :long],
-			get_onhelp: [[:pointer], :long],
-			put_onclick: [[VARIANT], :long],
-			get_onclick: [[:pointer], :long],
-			put_ondblclick: [[VARIANT], :long],
-			get_ondblclick: [[:pointer], :long],
-			put_onkeydown: [[VARIANT], :long],
-			get_onkeydown: [[:pointer], :long],
-			put_onkeyup: [[VARIANT], :long],
-			get_onkeyup: [[:pointer], :long],
-			put_onkeypress: [[VARIANT], :long],
-			get_onkeypress: [[:pointer], :long],
-			put_onmouseout: [[VARIANT], :long],
-			get_onmouseout: [[:pointer], :long],
-			put_onmouseover: [[VARIANT], :long],
-			get_onmouseover: [[:pointer], :long],
-			put_onmousemove: [[VARIANT], :long],
-			get_onmousemove: [[:pointer], :long],
-			put_onmousedown: [[VARIANT], :long],
-			get_onmousedown: [[:pointer], :long],
-			put_onmouseup: [[VARIANT], :long],
-			get_onmouseup: [[:pointer], :long],
-			get_document: [[:pointer], :long],
-			put_title: [[:pointer], :long],
-			get_title: [[:pointer], :long],
-			put_language: [[:pointer], :long],
-			get_language: [[:pointer], :long],
-			put_onselectstart: [[VARIANT], :long],
-			get_onselectstart: [[:pointer], :long],
-			scrollIntoView: [[VARIANT], :long],
-			contains: [[:pointer, :pointer], :long],
-			get_sourceIndex: [[:pointer], :long],
-			get_recordNumber: [[:pointer], :long],
-			put_lang: [[:pointer], :long],
-			get_lang: [[:pointer], :long],
-			get_offsetLeft: [[:pointer], :long],
-			get_offsetTop: [[:pointer], :long],
-			get_offsetWidth: [[:pointer], :long],
-			get_offsetHeight: [[:pointer], :long],
-			get_offsetParent: [[:pointer], :long],
-			put_innerHTML: [[:pointer], :long],
-			get_innerHTML: [[:pointer], :long],
-			put_innerText: [[:pointer], :long],
-			get_innerText: [[:pointer], :long],
-			put_outerHTML: [[:pointer], :long],
-			get_outerHTML: [[:pointer], :long],
-			put_outerText: [[:pointer], :long],
-			get_outerText: [[:pointer], :long],
-			insertAdjacentHTML: [[:pointer, :pointer], :long],
-			insertAdjacentText: [[:pointer, :pointer], :long],
-			get_parentTextEdit: [[:pointer], :long],
-			get_isTextEdit: [[:pointer], :long],
-			click: [[], :long],
-			get_filters: [[:pointer], :long],
-			put_ondragstart: [[VARIANT], :long],
-			get_ondragstart: [[:pointer], :long],
-			put_onbeforeupdate: [[VARIANT], :long],
-			get_onbeforeupdate: [[:pointer], :long],
-			put_onafterupdate: [[VARIANT], :long],
-			get_onafterupdate: [[:pointer], :long],
-			put_onerrorupdate: [[VARIANT], :long],
-			get_onerrorupdate: [[:pointer], :long],
-			put_onrowexit: [[VARIANT], :long],
-			get_onrowexit: [[:pointer], :long],
-			put_onrowenter: [[VARIANT], :long],
-			get_onrowenter: [[:pointer], :long],
-			put_ondatasetchanged: [[VARIANT], :long],
-			get_ondatasetchanged: [[:pointer], :long],
-			put_ondataavailable: [[VARIANT], :long],
-			get_ondataavailable: [[:pointer], :long],
-			put_ondatasetcomplete: [[VARIANT], :long],
-			get_ondatasetcomplete: [[:pointer], :long],
-			put_onfilterchange: [[VARIANT], :long],
-			get_onfilterchange: [[:pointer], :long],
-			get_children: [[:pointer], :long],
-			get_all: [[:pointer], :long]
-		]
-
-		HTMLElement = COM::Instance[IHTMLElement]
-
-		class HTMLElement
-			attr_reader :handlers
-
-			def on(event, &block)
-				((@handlers ||= {})[event] ||= []) << block
-				@dcallbacks ||= []
-
-				send("put_on#{event}", VARIANT.new.tap { |v|
-					v[:vt] = VT_DISPATCH
-
-					v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
-						dcb.instance_variable_set(:@element, self)
-						dcb.instance_variable_set(:@event, event)
-
-						def dcb.Invoke(*args)
-							@element.handlers[@event].each { |handler|
-								(handler.arity == 0) ? handler.call : handler.call(*args)
-							}
-
-							S_OK
-						end
-					}).last
-				})
-
-				self
-			end
-
-			%w{offsetLeft offsetTop offsetWidth offsetHeight}.each { |name|
-				define_method(name) {
-					FFI::MemoryPointer.new(:pointer) { |plong|
-						send("get_#{name}", plong)
-
-						return plong.read_long
-					}
-				}
-			}
-
-			%w{className id tagName title language lang innerHTML innerText outerHTML outerText}.each { |name|
-				define_method(name) {
-					ppbstr = FFI::MemoryPointer.new(:pointer)
-
-					begin
-						send("get_#{name}", ppbstr)
-
-						return nil if (pbstr = ppbstr.read_pointer).null?
-
-						begin
-							Windows.WCSTOMBS(pbstr)
-						ensure
-							Windows.SysFreeString(pbstr)
-						end
-					ensure
-						ppbstr.free
-					end
-				}
-
-				next if name == 'tagName'
-
-				define_method("#{name}=") { |v|
-					bstr = Windows.SysAllocString("#{v}\0".encode('utf-16le'))
-
-					begin
-						send("put_#{name}", bstr)
-					ensure
-						Windows.SysFreeString(bstr)
-					end
-				}
-			}
-
-			def attr(*args)
-				case args.length
-				when 1
-					getAttribute(bstr = Windows.SysAllocString("#{args[0]}\0".encode('utf-16le')), 0, v = VARIANT.new)
-
-					case v[:vt]
-					when VT_BSTR; (v[:bstrVal].null?) ? nil : Windows.WCSTOMBS(v[:bstrVal])
-					when VT_I4; v[:lVal]
-					when VT_BOOL; v[:boolVal] == -1
-					else raise
-					end
-				when 2
-					v = VARIANT.new
-
-					case args[1]
-					when String; v[:vt] = VT_BSTR; v[:bstrVal] = bstrv = Windows.SysAllocString("#{args[0]}\0".encode('utf-16le'))
-					when Integer; v[:vt] = VT_I4; v[:lVal] = args[1]
-					when TrueClass; v[:vt] = VT_BOOL; v[:boolVal] = -1
-					when FalseClass, NilClass; v[:vt] = VT_BOOL; v[:boolVal] = 0
-					else raise ArgumentError
-					end
-
-					setAttribute(bstr = Windows.SysAllocString("#{args[0]}\0".encode('utf-16le')), v, 0)
-
-					self
-				else raise ArgumentError
-				end
-			ensure
-				Windows.SysFreeString(bstr) if bstr
-				Windows.SysFreeString(bstrv) if bstrv
-			end
-
-			def node; QueryInstance(HTMLDOMNode) end
-
-			def style
-				FFI::MemoryPointer.new(:pointer) { |pstyle|
-					get_style(pstyle)
-
-					return HTMLStyle.new(pstyle.read_pointer)
-				}
-			end
-
-			def css(hash) s = style; hash.each { |k, v| s.send("#{k}=", v) }; self end
-		end
-
-		IHTMLDOMNode = COM::Interface[IDispatch,
-			GUID['3050f5da-98b5-11cf-bb82-00aa00bdce0b'],
-
-			get_nodeType: [[:pointer], :long],
-			get_parentNode: [[:pointer], :long],
-			hasChildNodes: [[:pointer], :long],
-			get_childNodes: [[:pointer], :long],
-			get_attributes: [[:pointer], :long],
-			insertBefore: [[:pointer, VARIANT, :pointer], :long],
-			removeChild: [[:pointer, :pointer], :long],
-			replaceChild: [[:pointer, :pointer, :pointer], :long],
-			cloneNode: [[:short, :pointer], :long],
-			removeNode: [[:short, :pointer], :long],
-			swapNode: [[:pointer, :pointer], :long],
-			replaceNode: [[:pointer, :pointer], :long],
-			appendChild: [[:pointer, :pointer], :long],
-			get_nodeName: [[:pointer], :long],
-			put_nodeValue: [[VARIANT], :long],
-			get_nodeValue: [[:pointer], :long],
-			get_firstChild: [[:pointer], :long],
-			get_lastChild: [[:pointer], :long],
-			get_previousSibling: [[:pointer], :long],
-			get_nextSibling: [[:pointer], :long]
-		]
-
-		HTMLDOMNode = COM::Instance[IHTMLDOMNode]
-
-		class HTMLDOMNode
-			alias old_appendChild appendChild
-
-			def appendChild(node)
-				FFI::MemoryPointer.new(:pointer) { |pnode|
-					old_appendChild(node, pnode)
-
-					return HTMLDOMNode.new(pnode)
-				}
-			end
-		end
-
-		IHTMLElementCollection = COM::Interface[IDispatch,
-			GUID['3050f21f-98b5-11cf-bb82-00aa00bdce0b'],
-
-			toString: [[:pointer], :long],
-			put_length: [[:long], :long],
-			get_length: [[:pointer], :long],
-			get__newEnum: [[:pointer], :long],
-			item: [[VARIANT, VARIANT, :pointer], :long],
-			tags: [[VARIANT, :pointer], :long]
-		]
-
-		HTMLElementCollection = COM::Instance[IHTMLElementCollection]
-
-		class HTMLElementCollection
-			def get(selector)
-				v = VARIANT.new
-
-				case selector
-				when String
-					v[:vt] = VT_BSTR
-					v[:bstrVal] = bstr = if selector[0] == '#'
-						Windows.SysAllocString("#{selector[1..-1]}\0".encode('utf-16le'))
-					else
-						_tags = true
-						Windows.SysAllocString("#{selector}\0".encode('utf-16le'))
-					end
-				when Integer
-					v[:vt] = VT_I4; v[:intVal] = selector
-				else raise ArgumentError
-				end
-
-				pdisp = nil
-
-				FFI::MemoryPointer.new(:pointer) { |pdisp|
-					(_tags) ? tags(v, pdisp) : item(v, VARIANT.new, pdisp)
-
-					return nil if (pdisp = pdisp.read_pointer).null?
-
-					disp = Dispatch.new(pdisp)
-
-					return disp.QueryInstance((_tags) ? HTMLElementCollection : HTMLElement)
-				}
-			ensure
-				Windows.SysFreeString(bstr) if bstr
-				pdisp.Release if pdisp && !pdisp.null?
-			end
-		end
-
-		IHTMLStyle = COM::Interface[IDispatch,
-			GUID['3050f25e-98b5-11cf-bb82-00aa00bdce0b'],
-
-			put_fontFamily: [[:pointer], :long],
-			get_fontFamily: [[:pointer], :long],
-			put_fontStyle: [[:pointer], :long],
-			get_fontStyle: [[:pointer], :long],
-			put_fontVariant: [[:pointer], :long],
-			get_fontVariant: [[:pointer], :long],
-			put_fontWeight: [[:pointer], :long],
-			get_fontWeight: [[:pointer], :long],
-			put_fontSize: [[:pointer], :long],
-			get_fontSize: [[:pointer], :long],
-			put_font: [[:pointer], :long],
-			get_font: [[:pointer], :long],
-			put_color: [[VARIANT], :long],
-			get_color: [[:pointer], :long],
-			put_background: [[:pointer], :long],
-			get_background: [[:pointer], :long],
-			put_backgroundColor: [[VARIANT], :long],
-			get_backgroundColor: [[:pointer], :long],
-			put_backgroundImage: [[:pointer], :long],
-			get_backgroundImage: [[:pointer], :long],
-			put_backgroundRepeat: [[:pointer], :long],
-			get_backgroundRepeat: [[:pointer], :long],
-			put_backgroundAttachment: [[:pointer], :long],
-			get_backgroundAttachment: [[:pointer], :long],
-			put_backgroundPosition: [[:pointer], :long],
-			get_backgroundPosition: [[:pointer], :long],
-			put_backgroundPositionX: [[VARIANT], :long],
-			get_backgroundPositionX: [[:pointer], :long],
-			put_backgroundPositionY: [[VARIANT], :long],
-			get_backgroundPositionY: [[:pointer], :long],
-			put_wordSpacing: [[VARIANT], :long],
-			get_wordSpacing: [[:pointer], :long],
-			put_letterSpacing: [[VARIANT], :long],
-			get_letterSpacing: [[:pointer], :long],
-			put_textDecoration: [[:pointer], :long],
-			get_textDecoration: [[:pointer], :long],
-			put_textDecorationNone: [[:short], :long],
-			get_textDecorationNone: [[:pointer], :long],
-			put_textDecorationUnderline: [[:short], :long],
-			get_textDecorationUnderline: [[:pointer], :long],
-			put_textDecorationOverline: [[:short], :long],
-			get_textDecorationOverline: [[:pointer], :long],
-			put_textDecorationLineThrough: [[:short], :long],
-			get_textDecorationLineThrough: [[:pointer], :long],
-			put_textDecorationBlink: [[:short], :long],
-			get_textDecorationBlink: [[:pointer], :long],
-			put_verticalAlign: [[VARIANT], :long],
-			get_verticalAlign: [[:pointer], :long],
-			put_textTransform: [[:pointer], :long],
-			get_textTransform: [[:pointer], :long],
-			put_textAlign: [[:pointer], :long],
-			get_textAlign: [[:pointer], :long],
-			put_textIndent: [[VARIANT], :long],
-			get_textIndent: [[:pointer], :long],
-			put_lineHeight: [[VARIANT], :long],
-			get_lineHeight: [[:pointer], :long],
-			put_marginTop: [[VARIANT], :long],
-			get_marginTop: [[:pointer], :long],
-			put_marginRight: [[VARIANT], :long],
-			get_marginRight: [[:pointer], :long],
-			put_marginBottom: [[VARIANT], :long],
-			get_marginBottom: [[:pointer], :long],
-			put_marginLeft: [[VARIANT], :long],
-			get_marginLeft: [[:pointer], :long],
-			put_margin: [[:pointer], :long],
-			get_margin: [[:pointer], :long],
-			put_paddingTop: [[VARIANT], :long],
-			get_paddingTop: [[:pointer], :long],
-			put_paddingRight: [[VARIANT], :long],
-			get_paddingRight: [[:pointer], :long],
-			put_paddingBottom: [[VARIANT], :long],
-			get_paddingBottom: [[:pointer], :long],
-			put_paddingLeft: [[VARIANT], :long],
-			get_paddingLeft: [[:pointer], :long],
-			put_padding: [[:pointer], :long],
-			get_padding: [[:pointer], :long],
-			put_border: [[:pointer], :long],
-			get_border: [[:pointer], :long],
-			put_borderTop: [[:pointer], :long],
-			get_borderTop: [[:pointer], :long],
-			put_borderRight: [[:pointer], :long],
-			get_borderRight: [[:pointer], :long],
-			put_borderBottom: [[:pointer], :long],
-			get_borderBottom: [[:pointer], :long],
-			put_borderLeft: [[:pointer], :long],
-			get_borderLeft: [[:pointer], :long],
-			put_borderColor: [[:pointer], :long],
-			get_borderColor: [[:pointer], :long],
-			put_borderTopColor: [[VARIANT], :long],
-			get_borderTopColor: [[:pointer], :long],
-			put_borderRightColor: [[VARIANT], :long],
-			get_borderRightColor: [[:pointer], :long],
-			put_borderBottomColor: [[VARIANT], :long],
-			get_borderBottomColor: [[:pointer], :long],
-			put_borderLeftColor: [[VARIANT], :long],
-			get_borderLeftColor: [[:pointer], :long],
-			put_borderWidth: [[:pointer], :long],
-			get_borderWidth: [[:pointer], :long],
-			put_borderTopWidth: [[VARIANT], :long],
-			get_borderTopWidth: [[:pointer], :long],
-			put_borderRightWidth: [[VARIANT], :long],
-			get_borderRightWidth: [[:pointer], :long],
-			put_borderBottomWidth: [[VARIANT], :long],
-			get_borderBottomWidth: [[:pointer], :long],
-			put_borderLeftWidth: [[VARIANT], :long],
-			get_borderLeftWidth: [[:pointer], :long],
-			put_borderStyle: [[:pointer], :long],
-			get_borderStyle: [[:pointer], :long],
-			put_borderTopStyle: [[:pointer], :long],
-			get_borderTopStyle: [[:pointer], :long],
-			put_borderRightStyle: [[:pointer], :long],
-			get_borderRightStyle: [[:pointer], :long],
-			put_borderBottomStyle: [[:pointer], :long],
-			get_borderBottomStyle: [[:pointer], :long],
-			put_borderLeftStyle: [[:pointer], :long],
-			get_borderLeftStyle: [[:pointer], :long],
-			put_width: [[VARIANT], :long],
-			get_width: [[:pointer], :long],
-			put_height: [[VARIANT], :long],
-			get_height: [[:pointer], :long],
-			put_styleFloat: [[:pointer], :long],
-			get_styleFloat: [[:pointer], :long],
-			put_clear: [[:pointer], :long],
-			get_clear: [[:pointer], :long],
-			put_display: [[:pointer], :long],
-			get_display: [[:pointer], :long],
-			put_visibility: [[:pointer], :long],
-			get_visibility: [[:pointer], :long],
-			put_listStyleType: [[:pointer], :long],
-			get_listStyleType: [[:pointer], :long],
-			put_listStylePosition: [[:pointer], :long],
-			get_listStylePosition: [[:pointer], :long],
-			put_listStyleImage: [[:pointer], :long],
-			get_listStyleImage: [[:pointer], :long],
-			put_listStyle: [[:pointer], :long],
-			get_listStyle: [[:pointer], :long],
-			put_whiteSpace: [[:pointer], :long],
-			get_whiteSpace: [[:pointer], :long],
-			put_top: [[VARIANT], :long],
-			get_top: [[:pointer], :long],
-			put_left: [[VARIANT], :long],
-			get_left: [[:pointer], :long],
-			get_position: [[:pointer], :long],
-			put_zIndex: [[VARIANT], :long],
-			get_zIndex: [[:pointer], :long],
-			put_overflow: [[:pointer], :long],
-			get_overflow: [[:pointer], :long],
-			put_pageBreakBefore: [[:pointer], :long],
-			get_pageBreakBefore: [[:pointer], :long],
-			put_pageBreakAfter: [[:pointer], :long],
-			get_pageBreakAfter: [[:pointer], :long],
-			put_cssText: [[:pointer], :long],
-			get_cssText: [[:pointer], :long],
-			put_pixelTop: [[:long], :long],
-			get_pixelTop: [[:pointer], :long],
-			put_pixelLeft: [[:long], :long],
-			get_pixelLeft: [[:pointer], :long],
-			put_pixelWidth: [[:long], :long],
-			get_pixelWidth: [[:pointer], :long],
-			put_pixelHeight: [[:long], :long],
-			get_pixelHeight: [[:pointer], :long],
-			put_posTop: [[:float], :long],
-			get_posTop: [[:pointer], :long],
-			put_posLeft: [[:float], :long],
-			get_posLeft: [[:pointer], :long],
-			put_posWidth: [[:float], :long],
-			get_posWidth: [[:pointer], :long],
-			put_posHeight: [[:float], :long],
-			get_posHeight: [[:pointer], :long],
-			put_cursor: [[:pointer], :long],
-			get_cursor: [[:pointer], :long],
-			put_clip: [[:pointer], :long],
-			get_clip: [[:pointer], :long],
-			put_filter: [[:pointer], :long],
-			get_filter: [[:pointer], :long],
-			setAttribute: [[:pointer, VARIANT, :long], :long],
-			getAttribute: [[:pointer, :long, :pointer], :long],
-			removeAttribute: [[:pointer, :long, :pointer], :long],
-			toString: [[:pointer], :long]
-		]
-
-		HTMLStyle = COM::Instance[IHTMLStyle]
-
-		class HTMLStyle
-			%w{
-				fontFamily fontStyle fontVariant fontWeight fontSize font
-				background backgroundImage backgroundRepeat backgroundAttachment backgroundPosition
-				textDecoration textTransform textAlign
-				margin padding
-				border borderTop borderRight borderBottom borderLeft borderColor borderWidth borderStyle borderTopStyle borderRightStyle borderBottomStyle borderLeftStyle
-				styleFloat clear display visibility
-				listStyleType listStylePosition listStyleImage listStyle
-				whiteSpace position overflow pageBreakBefore pageBreakAfter cssText cursor clip filter
-			}.each { |name|
-				define_method(name) {
-					ppbstr = FFI::MemoryPointer.new(:pointer)
-
-					begin
-						send("get_#{name}", ppbstr)
-
-						return nil if (pbstr = ppbstr.read_pointer).null?
-
-						begin
-							Windows.WCSTOMBS(pbstr)
-						ensure
-							Windows.SysFreeString(pbstr)
-						end
-					ensure
-						ppbstr.free
-					end
-				}
-
-				define_method("#{name}=") { |v|
-					bstr = Windows.SysAllocString("#{v}\0".encode('utf-16le'))
-
-					begin
-						send("put_#{name}", bstr)
-					ensure
-						Windows.SysFreeString(bstr)
-					end
-				}
-			}
-		end
-	end
-end
+require_relative 'mshtml/Common'