win_gui 0.1.0

data/book_code/with_rspec/should_examples.rb

@@ -0,0 +1,18 @@
+#---
+# Excerpted from "Scripted GUI Testing With Ruby",
+# published by The Pragmatic Bookshelf.
+# Copyrights apply to this code. It may not be used to create training material, 
+# courses, books, articles, and the like. Contact us if you are in doubt.
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/idgtr for more book information.
+#---
+describe 'RSpec' do
+  it 'supports writing clear tests' do
+
+    (2 + 2).should == 4
+    1.should be < 2
+    ['this', 'list'].should_not be_empty
+    {:color => 'red'}.should have_key(:color)
+
+  end
+end

data/exp/exp.rb

@@ -0,0 +1,6 @@
+
+p File.dirname(__FILE__),__FILE__, __LINE__
+p __LINE__, File.open(__FILE__).lines.to_a[__LINE__-1]
+
+
+

data/exp/exp_encodings.rb

@@ -0,0 +1,40 @@
+# encoding: CP1251
+Encoding.default_internal, Encoding.default_external = ['utf-8'] * 2
+t = '��������� �����������!'
+d = t.encode('CP866')
+utf8 = t.encode('utf-8')
+
+puts '��������� �����������!', t, utf8, "#{d}  #{d.encoding}"
+
+str = "\xE2\x80\x93"
+puts "Str: #{str}, #{str.encoding}"
+
+p "Source encoding: #{__ENCODING__}"
+p "String encoding: #{t.encoding}"
+p "Def ext encoding: #{Encoding.default_external}"
+p "Def int encoding: #{Encoding.default_internal}"
+
+puts
+
+puts 'Playing with encodings: setting default to utf-8'
+Encoding.default_internal, Encoding.default_external = ['utf-8'] * 2
+p "Source encoding: #{__ENCODING__}"
+p "Def ext encoding: #{Encoding.default_external}"
+p "Def int encoding: #{Encoding.default_internal}"
+zhopa ='Yes, ��� ����!!'
+puts zhopa
+p "String encoding: #{zhopa.encoding}"
+puts zhopa.encode!('CP866', :undef => :replace)
+p "String encoding: #{zhopa.encoding}"
+
+puts
+puts 'Playing with encodings: setting default to cp866'
+Encoding.default_internal, Encoding.default_external = ['cp866'] * 2
+p "Source encoding: #{__ENCODING__}"
+p "Def ext encoding: #{Encoding.default_external}"
+p "Def int encoding: #{Encoding.default_internal}"
+zhopa ='Yes, ��� ����!!'
+puts zhopa
+p "String encoding: #{zhopa.encoding}"
+puts zhopa.encode!('CP866', :undef => :replace)
+p "String encoding: #{zhopa.encoding}"

data/exp/exp_enum_windows.rb

@@ -0,0 +1,60 @@
+#encoding: utf-8
+
+
+# When using API functions returning ANSI strings (get_window_text), force_encoding('cp1251') and encode('cp866', :undef => :replace) to display correctly
+# When using API functions returning "wide" Unicode strings (get_window_text_w), force_encoding('utf-16LE') and encode('cp866', :undef => :replace) to display correctly
+
+libdir = File.join(File.dirname(__FILE__),"lib" )
+$LOAD_PATH.unshift libdir unless $LOAD_PATH.include?(libdir)
+require 'spec/spec_helper'
+
+include WinGui
+include GuiTest
+
+@child_handles = []
+app = launch_test_app
+#keystroke(VK_ALT, 'F'.ord)
+print_callback = lambda do |handle, message|
+  name = get_window_text(handle)
+  class_name = get_class_name(handle)
+  thread, process = get_window_thread_process_id(handle) 
+  puts "#{message}  #{process}  #{thread}  #{handle}  #{class_name.rstrip} #{name.force_encoding('cp1251').encode('cp866', :undef => :replace).rstrip}"
+  @child_handles << handle if message == 'CHILD'
+  true
+end
+
+@windows = []
+@num = 0
+map_callback = lambda do |handle, message|
+  name = get_window_text_w(handle)
+  class_name = get_class_name(handle)
+  thread, process = get_window_thread_process_id(handle) 
+  @windows << { :message => message, :process => process, :thread => thread, :handle => handle, :klass => class_name.rstrip,  
+    :name => name.encode('cp866', :undef => :replace).rstrip}
+  @num +=1
+  true
+end
+
+#print_callback = callback('LP', 'I', &print_proc)
+#map_callback = callback('LP', 'I', &map_proc)
+
+puts "Top-level Windows:"
+enum_windows 'TOP', &print_callback
+
+puts
+puts "Note Windows:"
+print_callback[app.handle, 'NOTE']
+enum_child_windows app.handle, 'CHILD', &print_callback
+
+@child_handles.each do |handle|
+  enum_child_windows handle, 'CHILD', &print_callback
+end
+
+enum_windows 'TOP', &map_callback
+enum_child_windows app.handle, 'CHILD', &map_callback
+puts
+puts "Sorted Windows:"
+puts @windows.sort_by{|w| [w[:process], w[:thread], w[:handle]]}.map{|w|w.values.join('  ')}
+puts "Total #{@num} Windows"
+
+close_test_app

data/exp/exp_quik.rb

@@ -0,0 +1,38 @@
+# encoding: UTF-8
+libdir = File.join(File.dirname(__FILE__), "lib" )
+$LOAD_PATH.unshift libdir unless $LOAD_PATH.include?(libdir)
+require 'spec/spec_helper'
+
+module Quik
+  include WinGui
+  extend WinGui
+  include GuiTest
+
+  QUIK_APP_PATH = ['C:\Program Files\Info', '\info.exe']
+  QUIK_APP_START = 'start "" "' + QUIK_APP_PATH.join + '"'
+  QUIK_MAIN_CLASS = 'InfoClass'
+  QUIK_DIALOG_CLASS = '#32770'
+  QUIK_DIALOG_TITLE = 'Идентификация пользователя'
+  system 'cd "' + QUIK_APP_PATH.first + '"'
+  system QUIK_APP_START
+  handle = 0
+  timeout(20) do
+    sleep TEST_SLEEP_DELAY until (handle = find_window(QUIK_MAIN_CLASS, nil))
+  end
+  p handle
+  quik = Window.new handle
+  sleep 1
+  p visible? quik.handle
+#  hide_window(quik.handle)
+  p window? quik.handle
+  p visible? quik.handle
+  p QUIK_DIALOG_TITLE#.force_encoding('CP1251')
+  p title = QUIK_DIALOG_TITLE.encode('CP1251')
+  dialog( title, 1) do |dlg|
+    child = dlg.child 'ComboLBox'
+    p 'Found!', child.handle
+  end
+#  quik.close
+#  quik.wait_for_close
+
+end

data/exp/exp_wsh.rb

@@ -0,0 +1,115 @@
+# encoding: UTF-8
+require 'win32ole'
+
+p WIN32OLE.codepage
+
+def show ole, name = 'ole_obj'
+  puts " #{name} is: #{ole.ole_type.inspect}" if ole.respond_to? :ole_type
+  puts " #{name}'s Additonal methods:"
+  p (ole.methods - Object.methods).map(&:to_s).uniq.sort
+  if ole.respond_to? :ole_methods
+    puts " #{name}'s OLE methods:"
+    #p ole.ole_methods.map(&:to_s).uniq.sort
+    methods = ole.ole_methods.select{ |m| m.visible? }.sort{|a, b| a.to_s<=>b.to_s}
+    puts methods.map {|meth| signature_for meth }
+  end
+  puts
+end
+
+def signature_for meth
+  sig = "#{meth.return_type} "
+  sig += "#{meth.return_type_detail} " unless meth.return_type_detail.size == 1
+  sig += "#{meth.name}("
+  sig +=  meth.params.map {|param| param_for param}.join(", ") unless meth.params.empty?
+  sig += ")"
+end
+
+def param_for param
+  if param.default
+    "#{param.ole_type} #{param.name}=#{param.default}"
+  else
+    "#{param.ole_type} #{param.name}"
+  end
+end
+
+# Object WScript.Shell
+show wsh = WIN32OLE.new('Wscript.Shell'), 'Wscript.Shell'
+
+#wsh.Popup( 'message', 0, 'title', 1 ) # Pop-up, Doh
+#puts wsh.CurrentDirectory()
+show env = wsh.Environment, "wsh.Environment"
+env.each {|env_item| puts "   -  #{env_item}"}
+puts
+
+# Echo?
+#e = WIN32OLE.new('WScript.Echo "Hello World!"')
+
+show shell = WIN32OLE.new('Shell.Application'), 'Shell.Application'
+# Must be either IE or Windows Explorer
+show windows = shell.Windows, 'shell.Windows'
+
+puts "# of windows: #{windows.count.inspect}"
+show windows.ole_method('GetTypeInfo'), "ole_method('GetTypeInfo')"
+
+show expl = windows.Item(0), "windows.Item(0)"
+
+# Playing with CD-ROM
+show my_computer = shell.NameSpace(17), 'shell.NameSpace(17) - my computer'
+
+show cdrom = my_computer.ParseName("D:\\"), 'ParseName("D:\\") - cdrom'
+
+cdrom.Verbs.each do |verb|
+  show verb, verb.Name
+  #verb.doIt if verb.Name == "E&ject"
+end
+
+## Documenting Win32OLE
+#my_com_object = WIN32OLE.new("Library.Class")
+#
+## Set my_com_object = GetObject("Library.Class")
+#com_collection_object = WIN32OLE.connect("Library.Class")
+#
+## For Each com_object In com_collection_object
+## '...
+## Next
+#for com_object in com_collection_object
+#  p com_object.ole_methods
+##...
+#end
+
+exit 0
+
+# Playing with Folder
+time = Time.now.to_s
+if wsh.AppActivate('Фолдор')
+  wsh.SendKeys("%FWFRB#{time}{ENTER}")
+end
+
+# Creating new Notepad window:
+if not wsh.AppActivate('Notepad')
+  wsh.Run('Notepad')
+  sleep 1
+end
+
+# Playing with created Notepad window:
+if wsh.AppActivate('Notepad')
+  sleep 1
+  p 'Inside'
+  # Enter text into Notepad:
+  wsh.SendKeys('Ruby{TAB}on{TAB}Windows{ENTER}')
+  wsh.SendKeys("#{time}")
+  # ALT-F to pull down File menu, then A to select Save As...:
+  wsh.SendKeys('%FA')
+  sleep 1
+  wsh.SendKeys('C:\dev\apps\filename.txt{ENTER}')
+  sleep 1
+  # If prompted to overwrite existing file:
+
+  if wsh.AppActivate('Save As')
+    sleep 1
+    # Enter 'Y':
+    wsh.SendKeys('Y')
+  end
+  # Quit Notepad with ALT-F4:
+  wsh.SendKeys('%{F4}')
+end

data/exp/old/windows_basics.rb

@@ -0,0 +1,80 @@
+require 'timeout'
+require 'Win32API'
+
+def user32(name, param_types, return_value) #(1)
+  Win32API.new 'user32', name, param_types, return_value
+end
+
+find_window = user32 'FindWindow', ['P', 'P'], 'L'
+
+system 'start "" "C:/Dev/apps/gui_testing/win/locknote/LockNote.exe"'
+
+sleep 0.2 while (main_window = find_window.call \
+  nil, 'LockNote - Steganos LockNote') <= 0  #(2)
+
+puts "The main window's handle is #{main_window}."
+
+keybd_event = user32 'keybd_event', ['I', 'I', 'L', 'L'], 'V'
+
+KEYEVENTF_KEYDOWN = 0 
+KEYEVENTF_KEYUP = 2 
+
+"this is some text".upcase.each_byte do |b| #(3)
+  keybd_event.call b, 0, KEYEVENTF_KEYDOWN, 0 
+  sleep 0.05 
+  keybd_event.call b, 0, KEYEVENTF_KEYUP, 0 
+  sleep 0.05 
+end 
+
+post_message = user32 'PostMessage', ['L', 'L', 'L', 'L'], 'L'
+
+WM_SYSCOMMAND = 0x0112 
+SC_CLOSE = 0xF060
+
+post_message.call main_window, WM_SYSCOMMAND, SC_CLOSE, 0 
+
+
+
+# You might need a slight delay here.
+sleep 0.5
+
+
+
+get_dlg_item = user32 'GetDlgItem', ['L', 'L'], 'L' 
+
+dialog = timeout(3) do                    #(4)
+  sleep 0.2 while (h = find_window.call \
+    nil, 'Steganos LockNote') <= 0; h #(5)
+end
+
+IDNO = 7
+button = get_dlg_item.call dialog, IDNO 
+
+
+
+
+get_window_rect = user32 'GetWindowRect', ['L', 'P'], 'I' 
+
+rectangle = [0, 0, 0, 0].pack 'L*'
+get_window_rect.call button, rectangle 
+left, top, right, bottom = rectangle.unpack 'L*'
+
+puts "The No button is #{right - left} pixels wide." #(6)
+
+
+
+
+set_cursor_pos = user32 'SetCursorPos', ['L', 'L'], 'I' 
+
+mouse_event = user32 'mouse_event', ['L', 'L', 'L', 'L', 'L'], 'V' 
+
+MOUSEEVENTF_LEFTDOWN = 0x0002 
+MOUSEEVENTF_LEFTUP = 0x0004
+
+center = [(left + right) / 2, (top + bottom) / 2]
+
+set_cursor_pos.call *center #(7)
+
+mouse_event.call MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 
+mouse_event.call MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 
+

data/exp/old/wnote.rb

@@ -0,0 +1,80 @@
+require 'timeout'
+require 'Win32API'
+
+def user32(name, param_types, return_value)
+  Win32API.new 'user32', name, param_types, return_value
+end
+
+KEYEVENTF_KEYDOWN = 0 
+KEYEVENTF_KEYUP = 2 
+WM_GETTEXT = 0x000D
+IDNO = 7
+WM_SYSCOMMAND = 0x0112 
+SC_CLOSE = 0xF060
+MOUSEEVENTF_LEFTDOWN = 0x0002 
+MOUSEEVENTF_LEFTUP = 0x0004
+
+class Note
+  def initialize
+    find_window = user32 'FindWindow', ['P', 'P'], 'L'
+    system 'start "" "C:/Dev/apps/gui_testing/lib/win/locknote/LockNote.exe"'
+    sleep 0.2 while (@main_window = find_window.call nil, 'LockNote - Steganos LockNote') <= 0
+    #type_in 'aaaaabc'
+  end
+  
+  def type_in(text)
+    keybd_event = user32 'keybd_event', ['I', 'I', 'L', 'L'], 'V'
+    text.upcase.each_byte do |b| # upcase needed since user32 keybd_event expects upper case chars 
+      keybd_event.call b, 0, KEYEVENTF_KEYDOWN, 0 
+      sleep 0.05 
+      keybd_event.call b, 0, KEYEVENTF_KEYUP, 0 
+      sleep 0.05 
+    end 
+  end
+  
+  def text
+    find_window_ex = user32 'FindWindowEx' , ['L' , 'L' , 'P' , 'P' ], 'L'
+    send_message = user32 'SendMessage' , ['L' , 'L' , 'L' , 'P' ], 'L'
+    edit = find_window_ex.call @main_window, 0, 'ATL:00434310' , nil
+    buffer = "\x0" * 2048
+    send_message.call edit, WM_GETTEXT, buffer.length, buffer
+    return buffer
+  end
+  
+  def exit!
+    begin
+      post_message = user32 'PostMessage', ['L', 'L', 'L', 'L'], 'L'
+      find_window = user32 'FindWindow', ['P', 'P'], 'L'
+      get_dlg_item = user32 'GetDlgItem', ['L', 'L'], 'L' 
+      get_window_rect = user32 'GetWindowRect', ['L', 'P'], 'I' 
+      set_cursor_pos = user32 'SetCursorPos', ['L', 'L'], 'I' 
+      mouse_event = user32 'mouse_event', ['L', 'L', 'L', 'L', 'L'], 'V' 
+      
+      post_message.call @main_window, WM_SYSCOMMAND, SC_CLOSE, 0 
+      
+      sleep 0.2    # You might need a slight delay here.
+      
+      dialog = timeout(3) do                    #(4)
+        sleep 0.2 while (h = find_window.call nil, 'Steganos LockNote') <= 0; h
+      end
+      
+      button = get_dlg_item.call dialog, IDNO 
+      
+      rectangle = [0, 0, 0, 0].pack 'L*'
+      get_window_rect.call button, rectangle 
+      left, top, right, bottom = rectangle.unpack 'L*'
+      center = [(left + right) / 2, (top + bottom) / 2]
+
+      set_cursor_pos.call *center #(7)
+      mouse_event.call MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 
+      mouse_event.call MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 
+      
+      @prompted = true
+    rescue
+    end
+  end
+  
+  def has_prompted?
+    @prompted
+  end
+end

data/exp/old/wnote_spec.rb

@@ -0,0 +1,20 @@
+describe 'The main window' do
+  it 'launches with a welcome message' do
+    note = Note.new
+    note.text.should include('Welcome' )
+    note.exit!
+  end
+  
+  it 'exits without a prompt if nothing has changed' do
+    note = Note.new
+    note.exit!
+    note.should_not have_prompted
+  end
+  
+  it 'prompts before exiting if the document has changed' do
+    note = Note.new
+    note.type_in "changed"
+    note.exit!
+    note.should have_prompted
+  end
+end

data/features/support/env.rb

@@ -0,0 +1,4 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+require 'win_gui'
+
+require 'spec/expectations'

data/features/win_gui.feature

@@ -0,0 +1,9 @@
+Feature: something something
+  In order to something something
+  A user something something
+  something something something
+
+  Scenario: something something
+    Given inspiration
+    When I create a sweet new gem
+    Then everyone should see how awesome I am

data/lib/note/java/jnote.rb

@@ -0,0 +1,48 @@
+require 'java'
+require 'jemmy.jar'
+require 'junquenote_app'
+
+include_class 'org.netbeans.jemmy.JemmyProperties'
+include_class 'org.netbeans.jemmy.TestOut'
+
+%w(Frame TextArea MenuBar Dialog Button).each do |o| #(1)
+  include_class "org.netbeans.jemmy.operators.J#{o}Operator"
+end
+
+JemmyProperties.set_current_timeout 'DialogWaiter.WaitDialogTimeout', 3000 #(2)
+JemmyProperties.set_current_output TestOut.get_null_output #(3)
+
+class Note
+  def initialize
+    JunqueNoteApp.new
+    @main_window = JFrameOperator.new 'JunqueNote'
+  end
+  
+  def type_in(text)
+    edit = JTextAreaOperator.new @main_window
+    edit.type_text text
+  end
+  
+  def text
+    edit = JTextAreaOperator.new @main_window
+    edit.text
+  end
+  
+  def exit!
+    begin
+      menu = JMenuBarOperator.new @main_window
+      menu.push_menu_no_block 'File|Exit', '|'
+      
+      dialog = JDialogOperator.new "Quittin' time"
+      button = JButtonOperator.new dialog, "No"
+      button.push
+      
+      @prompted = true
+    rescue
+    end
+  end
+  
+  def has_prompted?
+    @prompted
+  end
+end

data/lib/note/java/jruby_basics.rb

@@ -0,0 +1,37 @@
+#---
+# Excerpted from "Scripted GUI Testing With Ruby",
+# published by The Pragmatic Bookshelf.
+# Copyrights apply to this code. It may not be used to create training material, 
+# courses, books, articles, and the like. Contact us if you are in doubt.
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/idgtr for more book information.
+#---
+
+require 'java'
+require 'jemmy.jar'
+require 'junquenote_app'
+
+include_class 'org.netbeans.jemmy.JemmyProperties'
+include_class 'org.netbeans.jemmy.TestOut'
+
+%w(Frame TextArea MenuBar Dialog Button).each do |o| #(1)
+  include_class "org.netbeans.jemmy.operators.J#{o}Operator"
+end
+
+JemmyProperties.set_current_timeout 'DialogWaiter.WaitDialogTimeout', 3000 #(2)
+JemmyProperties.set_current_output TestOut.get_null_output #(3)
+
+JunqueNoteApp.new
+main_window = JFrameOperator.new 'JunqueNote'
+
+puts "The main window's object ID is #{main_window.object_id}."
+
+edit = JTextAreaOperator.new main_window #(4)
+edit.type_text "this is some text"       #(5)
+
+menu = JMenuBarOperator.new main_window
+menu.push_menu_no_block 'File|Exit', '|'
+
+dialog = JDialogOperator.new "Quittin' time"
+button = JButtonOperator.new dialog, "No"
+button.push