rautomation 0.4.0 → 0.5.1

data/ext/WindowsForms/src/WindowsForms/WindowsForms/WindowsForms.csproj

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>8.0.30703</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{79C33EDA-58C4-41EF-93DC-BA679895BD43}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <AppDesignerFolder>Properties</AppDesignerFolder>
+    <RootNamespace>WindowsForms</RootNamespace>
+    <AssemblyName>WindowsForms</AssemblyName>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>Client</TargetFrameworkProfile>
+    <FileAlignment>512</FileAlignment>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="AboutBox.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="AboutBox.Designer.cs">
+      <DependentUpon>AboutBox.cs</DependentUpon>
+    </Compile>
+    <Compile Include="DataEntryForm.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="DataEntryForm.Designer.cs">
+      <DependentUpon>DataEntryForm.cs</DependentUpon>
+    </Compile>
+    <Compile Include="SimpleElementsForm.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="SimpleElementsForm.Designer.cs">
+      <DependentUpon>SimpleElementsForm.cs</DependentUpon>
+    </Compile>
+    <Compile Include="PersonForm.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="PersonForm.Designer.cs">
+      <DependentUpon>PersonForm.cs</DependentUpon>
+    </Compile>
+    <Compile Include="MainFormWindow.cs">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="MainFormWindow.Designer.cs">
+      <DependentUpon>MainFormWindow.cs</DependentUpon>
+    </Compile>
+    <Compile Include="Program.cs" />
+    <Compile Include="Properties\AssemblyInfo.cs" />
+    <EmbeddedResource Include="AboutBox.resx">
+      <DependentUpon>AboutBox.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="DataEntryForm.resx">
+      <DependentUpon>DataEntryForm.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="SimpleElementsForm.resx">
+      <DependentUpon>SimpleElementsForm.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="PersonForm.resx">
+      <DependentUpon>PersonForm.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="MainFormWindow.resx">
+      <DependentUpon>MainFormWindow.cs</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Properties\Resources.resx">
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.cs</LastGenOutput>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <Compile Include="Properties\Resources.Designer.cs">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <None Include="Properties\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <LastGenOutput>Settings.Designer.cs</LastGenOutput>
+    </None>
+    <Compile Include="Properties\Settings.Designer.cs">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

data/ext/WindowsForms/src/WindowsForms/WindowsForms/bin/Debug/WindowsForms.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

data/ext/WindowsForms/src/WindowsForms/WindowsForms/obj/x86/Debug/WindowsForms.csproj.FileListAbsolute.txt

@@ -0,0 +1,25 @@
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\bin\Debug\WindowsForms.exe
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\bin\Debug\WindowsForms.pdb
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\ResolveAssemblyReference.cache
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.Properties.Resources.resources
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\GenerateResource.read.1.tlog
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\GenerateResource.write.1.tlog
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.exe
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.pdb
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.MainFormWindow.resources
+C:\Projects\RAutomation\RAutomation\ext\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.AboutBox.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\bin\Debug\WindowsForms.exe
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\bin\Debug\WindowsForms.pdb
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\ResolveAssemblyReference.cache
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.AboutBox.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.DataEntryForm.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.PersonForm.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.MainFormWindow.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.Properties.Resources.resources
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\GenerateResource.read.1.tlog
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\GenerateResource.write.1.tlog
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.exe
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.pdb
+C:\Projects\RAutomation\RAutomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.SimpleElementsForm.resources
+C:\projects\rautomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.exe
+C:\projects\rautomation\ext\WindowsForms\src\WindowsForms\WindowsForms\obj\x86\Debug\WindowsForms.pdb

data/lib/{RAutomation.rb → rautomation.rb}

@@ -1,5 +1,7 @@
 require "rautomation/wait_helper"
 require "rautomation/adapter/helper"
+require "rautomation/element_collections"
 require "rautomation/window"
 require "rautomation/button"
-require "rautomation/text_field"
+require "rautomation/text_field"
+

data/lib/rautomation/adapter/autoit/button.rb

@@ -4,6 +4,9 @@ module RAutomation
       class Button
         include WaitHelper
         include Locators
+        
+        # Default locators used for searching buttons.
+        DEFAULT_LOCATORS = {:class => /button/i}
 
         # @private
         # Special-cased locators
@@ -33,8 +36,8 @@ module RAutomation
           wait_until do
             @window.activate
             @window.active? &&
-                    Window.autoit.ControlFocus(@window.locator_hwnd, "", @locators) == 1 &&
-                    Window.autoit.ControlClick(@window.locator_hwnd, "", @locators) == 1 &&
+                    Window.autoit.ControlFocus(@window.locator_hwnd, "", @autoit_locators) == 1 &&
+                    Window.autoit.ControlClick(@window.locator_hwnd, "", @autoit_locators) == 1 &&
                     clicked = true # is clicked at least once
 
             block_given? ? yield : clicked && !exists?
@@ -43,12 +46,12 @@ module RAutomation
 
         # @see RAutomation::Button#value
         def value
-          Window.autoit.ControlGetText(@window.locator_hwnd, "", @locators)
+          Window.autoit.ControlGetText(@window.locator_hwnd, "", @autoit_locators)
         end
 
         # @see RAutomation::Button#exists?
         def exists?
-          not Window.autoit.ControlGetHandle(@window.locator_hwnd, "", @locators).empty?
+          not Window.autoit.ControlGetHandle(@window.locator_hwnd, "", @autoit_locators).empty?
         end
       end
     end

data/lib/rautomation/adapter/autoit/locators.rb

@@ -7,7 +7,9 @@ module RAutomation
         private
 
         def extract(locators)
-          @locators = "[#{locators.map do |locator, value|
+          locators = self.class::DEFAULT_LOCATORS.merge(locators) if self.class.const_defined?(:DEFAULT_LOCATORS)
+          @locators = locators
+          @autoit_locators = "[#{@locators.map do |locator, value|
             locator_key = self.class::LOCATORS[locator] || self.class::LOCATORS[[locator, value.class]]
             value = value.to_i + 1 if locator == :index # use 0-based indexing
             value = value.to_s(16) if locator == :hwnd
@@ -17,4 +19,4 @@ module RAutomation
       end
     end
   end
-end
+end

data/lib/rautomation/adapter/autoit/text_field.rb

@@ -5,6 +5,9 @@ module RAutomation
         include WaitHelper
         include Locators
 
+        # Default locators used for searching text fields.
+        DEFAULT_LOCATORS = {:class => /edit/i}
+
         # @private
         # Special-cased locators
         LOCATORS = {
@@ -32,8 +35,8 @@ module RAutomation
           wait_until do
             @window.activate
             @window.active? &&
-                    Window.autoit.ControlFocus(@window.locator_hwnd, "", @locators) == 1 &&
-                    Window.autoit.ControlSetText(@window.locator_hwnd, "", @locators, text) == 1 &&
+                    Window.autoit.ControlFocus(@window.locator_hwnd, "", @autoit_locators) == 1 &&
+                    Window.autoit.ControlSetText(@window.locator_hwnd, "", @autoit_locators, text) == 1 &&
                     value == text
           end
         end
@@ -45,14 +48,14 @@ module RAutomation
 
         # @see RAutomation::TextField#value
         def value
-          Window.autoit.ControlGetText(@window.locator_hwnd, "", @locators)
+          Window.autoit.ControlGetText(@window.locator_hwnd, "", @autoit_locators)
         end
 
         # @see RAutomation::TextField#exists?
         def exists?
-          not Window.autoit.ControlGetHandle(@window.locator_hwnd, "", @locators).empty?
+          not Window.autoit.ControlGetHandle(@window.locator_hwnd, "", @autoit_locators).empty?
         end
       end
     end
   end
-end
+end

data/lib/rautomation/adapter/autoit/window.rb

@@ -30,9 +30,9 @@ module RAutomation
         # @private
         # Special-cased locators
         LOCATORS = {
-                [:title, Regexp] => :regexptitle,
-                :index => :instance,
-                :hwnd => :handle
+          [:title, Regexp] => :regexptitle,
+          :index => :instance,
+          :hwnd => :handle
         }
 
         # Creates the window object.
@@ -46,6 +46,8 @@ module RAutomation
         # @see RAutomation::Window#initialize
         def initialize(locators)
           @hwnd = locators[:hwnd]
+          @locator_index = locators.delete(:index) if locators[:index] && locators.size == 1
+          @locator_pid = locators.delete(:pid).to_i if locators[:pid]
           @locator_text = locators.delete(:text)
           extract(locators)
         end
@@ -54,14 +56,28 @@ module RAutomation
         # @note Searches only for visible windows.
         # @see RAutomation::Window#hwnd
         def hwnd
-          @hwnd ||= @@autoit.WinList(@locators, @locator_text).pop.compact.
-                  find {|handle| self.class.new(:hwnd => handle.hex).visible?}.
-                  hex rescue nil
+          @hwnd ||= begin
+                      locators = @autoit_locators
+                      if @locator_index || @locator_pid
+                        # @todo Come up with some better solution for this case
+                        locators = "[regexptitle:]" # match all, needed for the case when only :index or :pid is used
+                      end
+                      windows = @@autoit.WinList(locators, @locator_text).pop.compact.
+                        map {|handle| self.class.new(:hwnd => handle.hex)}
+                      windows.delete_if {|window| !window.visible?}
+                      
+                      if @locator_pid
+                        window = windows.find {|win| win.pid == @locator_pid} 
+                      else
+                        window = windows[@locator_index || 0]
+                      end
+                      window ? window.hwnd : nil
+                    end
         end
 
         # @see RAutomation::Window#pid
         def pid
-          @@autoit.WinGetProcess(hwnd)
+          @@autoit.WinGetProcess(locator_hwnd).to_i
         end
 
         # @see RAutomation::Window#title

data/lib/rautomation/adapter/win_ffi.rb

@@ -1,12 +1,18 @@
 begin
-  gem "ffi", "0.6.3"
+  gem "ffi"
 rescue Gem::LoadError
-  raise Gem::LoadError, "Unable to load FFI gem. Install it with:\n\tgem install ffi -v 0.6.3"
+  raise Gem::LoadError, "Unable to load FFI gem. Install it with:\n\tgem install ffi"
 end
 require "ffi"
 require File.dirname(__FILE__) + "/win_ffi/constants"
 require File.dirname(__FILE__) + "/win_ffi/functions"
 require File.dirname(__FILE__) + "/win_ffi/locators"
 require File.dirname(__FILE__) + "/win_ffi/window"
+require File.dirname(__FILE__) + "/win_ffi/button_helper"
+require File.dirname(__FILE__) + "/win_ffi/control"
 require File.dirname(__FILE__) + "/win_ffi/button"
-require File.dirname(__FILE__) + "/win_ffi/text_field"
+require File.dirname(__FILE__) + "/win_ffi/checkbox"
+require File.dirname(__FILE__) + "/win_ffi/radio"
+require File.dirname(__FILE__) + "/win_ffi/text_field"
+require File.dirname(__FILE__) + "/win_ffi/select_list"
+require File.dirname(__FILE__) + "/win_ffi/table"

data/lib/rautomation/adapter/win_ffi/button.rb

@@ -1,49 +1,18 @@
 module RAutomation
   module Adapter
     module WinFfi
-      class Button
+      class Button < Control
         include WaitHelper
         include Locators
 
-        # Creates the button object.
-        # @note this method is not meant to be accessed directly, but only through {RAutomation::Window#button}!
-        # @param [RAutomation::Window] window this button belongs to.
-        # @param [Hash] locators for searching the button.
-        # @option locators [String, Regexp] :value Value (text) of the button
-        # @option locators [String, Regexp] :class Internal class name of the button
-        # @option locators [String, Fixnum] :id Internal ID of the button
-        # @option locators [String, Fixnum] :index 0-based index to specify n-th button if all other criteria match
-        # @see RAutomation::Window#button
-        def initialize(window, locators)
-          @window = window
-          extract(locators)
-        end
-
-        # @see RAutomation::Button#click
-        def click
-          clicked = false
-          wait_until do
-            hwnd = Functions.control_hwnd(@window.hwnd, @locators)
-            @window.activate
-            @window.active? &&
-                    Functions.set_control_focus(hwnd) &&
-                    Functions.control_click(hwnd) &&
-                    clicked = true # is clicked at least once
-
-            block_given? ? yield : clicked && !exists?
-          end
-        end
+        # Default locators used for searching buttons.
+        DEFAULT_LOCATORS = {:class => /button/i}
 
         # @see RAutomation::Button#value
         def value
           Functions.control_value(Functions.control_hwnd(@window.hwnd, @locators))
         end
 
-        # @see RAutomation::Button#exists?
-        def exists?
-          !!Functions.control_hwnd(@window.hwnd, @locators)
-        end
-
       end
     end
   end

data/lib/rautomation/adapter/win_ffi/button_helper.rb

@@ -0,0 +1,24 @@
+module RAutomation
+  module Adapter
+    module WinFfi
+      module ButtonHelper
+
+        def set?
+          control_hwnd = Functions.control_hwnd(@window.hwnd, @locators)
+          Functions.control_set? control_hwnd
+        end
+
+        # @todo call a windows function to do this without clicking
+        def clear
+          click {!set?} if set?
+        end
+
+        # @todo call a windows function to do this without clicking
+        def set
+          click {set?} unless set?
+        end
+
+      end
+    end
+  end
+end