findcontrol 0.0.1

data/bin/FindControlGui.rb

@@ -0,0 +1,47 @@
+require 'Win32API'
+
+class FindControlGui
+
+	include GladeGUI
+	include Win32
+
+	
+
+	def mousePosition
+		@@getCursorPos ||= Win32API.new("user32", "GetCursorPos", ['P'], 'V')
+		lpPoint = " " * 8 # store two LONGs
+		@@getCursorPos.Call(lpPoint)
+		lpPoint.unpack("ll") # get the actual values
+	end
+
+
+	def show()
+		load_glade(__FILE__) 
+
+		my_path = File.expand_path(File.dirname(__FILE__))
+		@proj ||= Proj.new(File.join(my_path,"..", "lib", "testcomplete", "project", "AutomationPathProject", "AutomationPathProject.pjs").gsub("/","\\"))
+
+		@image1 = my_path + "/crosshairs.jpg"
+		set_glade_all() 
+
+		target_flags = Gtk::Drag::TARGET_OTHER_APP #useless
+		action = Gdk::DragContext::ACTION_COPY #useless
+		dest =  Gtk::Drag::DEST_DEFAULT_ALL #useless
+		button = Gdk::Window::BUTTON1_MASK #mouse button 1
+
+		Gtk::Drag.source_set(@builder["button1"], button, [ ],  action)	
+		
+
+		show_window() 
+	end
+
+	def button1__drag_failed(*argv)
+		@loc = mousePosition
+		control_path=@proj.get_control_automation_path_from_location(@loc[0], @loc[1],  @builder["include_text"].active?)
+		Clipboard.set_data(control_path)
+		@builder["label1"].text = control_path
+		false
+	end
+
+end
+

data/bin/glade/FindControlGui.glade

@@ -0,0 +1,85 @@
+<?xml version="1.0"?>
+<interface>
+  <requires lib="gtk+" version="2.16"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkWindow" id="window1">
+    <property name="visible">True</property>
+    <property name="events">GDK_POINTER_MOTION_MASK | GDK_STRUCTURE_MASK</property>
+    <property name="resizable">False</property>
+    <property name="modal">True</property>
+    <property name="window_position">mouse</property>
+    <signal name="destroy" handler="destroy_window"/>
+    <child>
+      <object class="GtkVBox" id="vbox2">
+        <property name="visible">True</property>
+        <child>
+          <object class="GtkHBox" id="hbox2">
+            <property name="visible">True</property>
+            <child>
+              <object class="GtkLabel" id="label3">
+                <property name="visible">True</property>
+                <property name="xalign">0</property>
+                <property name="label" translatable="yes">Control Path:</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkCheckButton" id="include_text">
+                <property name="label" translatable="yes">include text?</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">False</property>
+                <property name="draw_indicator">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="padding">43</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="button1">
+                <property name="label" translatable="yes">DragMe</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="image">image1</property>
+              </object>
+              <packing>
+                <property name="position">2</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkHBox" id="hbox1">
+            <property name="visible">True</property>
+            <child>
+              <object class="GtkLabel" id="label1">
+                <property name="visible">True</property>
+                <property name="label" translatable="yes">label</property>
+              </object>
+              <packing>
+                <property name="position">0</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="padding">5</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+  </object>
+  <object class="GtkImage" id="image1">
+    <property name="visible">True</property>
+    <property name="stock">gtk-missing-image</property>
+  </object>
+</interface>

data/bin/testcomplete.rb

@@ -0,0 +1,117 @@
+require 'win32ole'
+require 'rubygems'
+require 'pry'
+
+include WIN32OLE::VARIANT
+
+
+class TCLibrary
+    def initialize(name, tc)
+        @framework, @unit = name.split(".")
+        @integration = tc.integration
+    end
+    def method_missing(meth, *args, &blk)
+        @integration.RunRoutineEx(@framework, @unit, meth.to_s, WIN32OLE_VARIANT.new(args.map{|a| 
+            a.is_a?(String) ? WIN32OLE_VARIANT.new(a, VT_BSTR) : WIN32OLE_VARIANT.new(a, VT_VARIANT|VT_BYREF)}
+        ))
+    end
+end
+
+class TC
+    def initialize
+        @tc = TC.get_TC
+    end
+
+    def library(name)
+        TCLibrary.new(name, @tc)
+    end
+
+    def method_missing(meth, *args, &blk)
+       @tc.send(meth, *args, &blk)
+    end
+
+    def StartProcess(executable, parameter, timeout)
+        shell = WIN32OLE.new('WScript.Shell')
+        shell.Run("#{executable} \"#{parameter}\"")
+
+        processName = executable.split(/[\/\\]/).last.split(/\./).first
+        sys = @tc.GetObjectByName("Sys")
+        x = Now + timeout
+
+        begin
+            process = sys.Find("ProcessName", processName)
+        end while(!process.Exists && Now < x) 
+        return process
+    end
+
+   
+    def LaunchIe(url, timeout)
+        executable = "C:\\Program Files (x86)\\Internet Explorer\\iexplore.exe"
+        StartProcess(executable, url, timeout)
+    end
+
+private
+    def self.get_TC
+        tc = get_OLE("TestComplete.TestCompleteApplication.8")
+        tc = get_OLE("TestExecute.TestExecuteApplication.8") unless tc
+        tc
+    end
+    
+    def self.get_OLE(strAutomationEngine)
+        begin
+            tc = WIN32OLE.connect(strAutomationEngine)
+        rescue WIN32OLERuntimeError
+            begin
+                tc = WIN32OLE.new(strAutomationEngine)
+            rescue WIN32OLERuntimeError
+            end
+        end
+        tc
+    end
+end
+
+def run_test(filename)
+    integration = TC.new.integration
+    raise("Test Complete is already Running a test") if(integration.IsRunning) 
+    integration.OpenProjectSuite("C:\\LeicaAutomation\\LeicaAutomation.pjs")
+    integration.RunRoutineEx("Framework", "MainProcessors", "ExecuteStandaloneTest", WIN32OLE_VARIANT.new(filename, VT_BSTR))
+
+    sleep(1) while integration.IsRunning 
+end
+
+def run_qc_test_or_timeout(testId, runId, timeout_time, i= nil)
+    integration = i || TC.get_TC.integration
+    raise("Test Complete is already Running a test") if(integration.IsRunning) 
+    integration.OpenProjectSuite("C:\\LeicaAutomation\\LeicaAutomation.pjs")
+    integration.RunRoutineEx("Framework", "MainProcessors", "ExecuteFromQC", WIN32OLE_VARIANT.new( "#{testId}|#{runId}", VT_BSTR))
+    sleep(1) while integration.IsRunning 
+end
+
+def PageLoaded(process)
+    page = process.Page("*")
+    return false if !page.Exists
+end
+
+# exit if Object.const_defined?(:Ocra)
+
+# if(__FILE__ == $0 )
+
+#     filename = ARGV[0] || "\\\\bedrock\\bsd srg\\Projects\\Tool Validation\\Automation framework\\Verification\\CerebroAutomation\\nigel.ts"
+
+#     tc = TC.new
+#     integration = tc.integration
+#     Sys = integration.GetObjectByName("Sys")
+#     #run_qc_test_or_timeout(1515, 485, Time.now + 120, integration)
+#     #puts integration.GetLastResultDescription().Status == 0 ? "Passed" : "Failed" 
+#     integration.OpenProjectSuite("C:\\LeicaAutomation\\LeicaAutomation.pjs")
+
+#     kw = tc.library("Framework.CommonKeywords")
+#     ac = tc.library("Framework.ApplicationClass")
+#     pc = tc.library("Framework.ProcessClass")
+#     fl = tc.library("Framework.FrameworkLibrary")
+#     fl.Framework_Initialise
+
+#     binding.pry
+
+# end
+

data/findcontrol.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/ruby
+
+require 'vrlib'
+require 'win32ole'
+require 'win32/clipboard'
+
+#make program output in real time so errors visible in VR.
+STDOUT.sync = true
+STDERR.sync = true
+
+#everything in these directories will be included
+my_path = File.expand_path(File.dirname(__FILE__))
+require_all Dir.glob(my_path + "/bin/**/*.rb") 
+require_all Dir.glob(my_path + "/lib/*.rb") 
+
+FindControlGui.new().show
+
+
+
+# 	begin
+# 		@proj ||= Proj.new(File.join(my_path, "lib", "testcomplete", "project", "AutomationPathProject", "AutomationPathProject.pjs").gsub("/","\\"))
+# 		control_path=@proj.AutomationPathProject.Helper.GetAutomationPathForControlUnderMouse
+# 		Clipboard.set_data(control_path)
+# 		puts control_path	
+# 	rescue => e
+# 		puts e
+# 	end
+

data/lib/TCLib.rb

@@ -0,0 +1,162 @@
+require 'win32ole'
+require 'rubygems'
+require 'pry'
+
+include WIN32OLE::VARIANT
+
+class String
+  def strip_quotes
+    gsub(/\A['"]+|['"]+\Z/, "").gsub("\\\\","\\")
+  end
+end
+
+class TCFramework
+    def initialize(name, tc)
+        @name, @tc = name, tc
+    end    
+
+private
+    def method_missing(meth, *args, &blk)
+        TCLibrary.new(@name+"."+meth.to_s, @tc)
+    end
+end
+
+class TCLibrary
+    def initialize(name, tc)
+        @framework, @unit = name.split(".")
+        @integration = tc.integration
+    end
+
+private
+    def method_missing(meth, *args, &blk)
+        raise("Test Complete is already Running a test") if(@integration.IsRunning) 
+        @integration.RunRoutineEx(@framework, @unit, meth.to_s, WIN32OLE_VARIANT.new(args.map{|a| 
+            a.is_a?(String) ? WIN32OLE_VARIANT.new(a, VT_BSTR) : WIN32OLE_VARIANT.new(a, VT_VARIANT|VT_BYREF)}
+        ))
+        while @integration.IsRunning 
+            sleep(1) 
+        end
+        @integration.RoutineResult
+    end
+end
+
+class Proj
+	def initialize(proj_file)
+		@tc = TC.new
+		@integration = @tc.integration
+		raise("Test Complete is already Running a test") if(@integration.IsRunning) 
+        if (!@integration.IsProjectSuiteOpened || @integration.ProjectSuiteFileName != proj_file)
+    		@suite = @integration.OpenProjectSuite(proj_file)
+        end
+        raise "can't open project" unless @integration.IsProjectSuiteOpened
+	end
+
+    def get_current_control_automation_path(include_text = true)
+        sys = @integration.GetObjectByName("Sys")
+        get_control_automation_path_from_location(sys.Desktop.MouseX, sys.Desktop.MouseY, include_text)
+    end
+
+		def get_control_automation_path_from_location(x,y,include_text)
+        sys = @integration.GetObjectByName("Sys")
+        sys.Refresh
+        objTest = sys.Desktop.ObjectFromPoint( x, y )
+        get_automation_path(objTest, include_text)
+		end
+
+	private
+
+    def get_automation_path(object, include_text)
+        object = object.Parent until object.nil? || object.Name.to_s.start_with?("UIAObject")
+        return "" unless object && object.Exists
+        return "Process" if(object.Name.to_s.start_with? "Process")
+        return "#{get_automation_path(object.Parent, include_text)}/#{get_automation_name(object, include_text)}"
+    end
+
+    def get_automation_name(object, include_text)
+        return "" if object.nil?
+        begin
+        automation_id = object.AutomationID
+        rescue
+        end
+        begin
+        class_name = object.ClassName
+        rescue
+        end
+        begin
+        text = object.NativeUIAObject.Name if include_text
+        rescue
+        end
+
+        id= ''
+        id+= automation_id if automation_id && automation_id.is_a?(String) && !automation_id.empty?
+        id+= "(#{class_name})" if class_name && class_name.is_a?(String) && !class_name.empty?
+        id+= "\"#{text}\"" if text && text.is_a?(String) && !text.empty?
+        id+= "Unknown Control" if id.empty?
+        id    
+    end
+
+    def method_missing(meth, *args, &blk)
+        TCFramework.new(meth.to_s, @tc)
+    end
+end
+
+class TC
+    def initialize
+        @tc = TC.get_TC
+    end
+
+    def self.get_TC
+        tc = get_OLE("TestComplete.TestCompleteApplication.8")
+        tc = get_OLE("TestExecute.TestExecuteApplication.8") unless tc
+        tc
+    end
+    
+    def self.get_OLE(strAutomationEngine)
+        begin
+            tc = WIN32OLE.connect(strAutomationEngine)
+        rescue WIN32OLERuntimeError
+            begin
+                tc = WIN32OLE.new(strAutomationEngine)
+            rescue WIN32OLERuntimeError
+            end
+        end
+        tc
+    end
+
+    def library(name)
+        TCLibrary.new(name, @tc)
+    end
+
+    def method_missing(meth, *args, &blk)
+       @tc.send(meth, *args, &blk)
+    end
+
+    def StartProcess(executable, parameter, timeout)
+        shell = WIN32OLE.new('WScript.Shell')
+        shell.Run("#{executable} \"#{parameter}\"")
+
+        processName = executable.split(/[\/\\]/).last.split(/\./).first
+        sys = @tc.integration.GetObjectByName("Sys")
+        x = Now + timeout
+
+        begin
+            process = sys.Find("ProcessName", processName)
+        end while(!process.Exists && Now < x) 
+        return process
+    end
+    
+    def LaunchIe(url, timeout)
+        executable = "C:\\Program Files (x86)\\Internet Explorer\\iexplore.exe"
+        StartProcess(executable, url, timeout)
+    end
+end
+
+if $0 == __FILE__
+#testId, runId = *ARGV
+
+#proj = Proj.new("C:\\LeicaAutomation\\LeicaAutomation.pjs")
+#proj.run_qc_test_or_timeout(testId, runId)
+
+proj.get_current_control_automation_path
+
+end

data/lib/testcomplete/project/AutomationPathProject/AutomationPathProject.pjs

@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE Nodes [
+
+<!ENTITY % NameValue "CDATA">
+<!ENTITY % PropType "(I|S|D|L|H|B)">
+<!ENTITY % VersionValue "CDATA">
+
+<!ELEMENT Prp (#PCDATA)>
+<!ELEMENT Node (Node|Prp)*>
+<!ELEMENT Nodes (Node)+>
+
+<!ATTLIST Nodes version CDATA "1">
+
+<!ATTLIST Node name CDATA #REQUIRED>
+
+<!ATTLIST Prp name CDATA #REQUIRED>
+<!ATTLIST Prp type CDATA #REQUIRED>
+<!ATTLIST Prp value CDATA #REQUIRED>
+]>
+<Nodes version="1">
+	<Node name="root">
+		<Node name="analysis">
+			<Prp name="key" type="S" value="{04BF666E-7F31-473C-A151-12DF5C009F71}"/>
+		</Node>
+		<Node name="child list">
+			<Node name="item0000000000">
+				<Node name="item data">
+					<Prp name="relpath" type="S" value="AutomationPathProject\AutomationPathProject.mds"/>
+				</Node>
+				<Prp name="index" type="I" value="0"/>
+				<Prp name="key" type="S" value="{9216F808-DE60-489C-AF9C-530CCDDD2B35}"/>
+				<Prp name="type" type="S" value="{362A8EE5-675E-43A9-869D-06ECE80B0CB4}"/>
+				<Prp name="typename" type="S" value="Project"/>
+			</Node>
+		</Node>
+		<Node name="files">
+			<Node name="automationpathproject\automationpathproject.mds"/>
+		</Node>
+		<Node name="folders">
+			<Node name="folders"/>
+		</Node>
+		<Node name="scc"/>
+		<Node name="settings">
+			<Node name="{5a85e200-b5d2-4f74-972a-0221f2956a19}">
+				<Prp name="type" type="I" value="5"/>
+				<Prp name="value" type="S" value="Log"/>
+			</Node>
+			<Prp name="key" type="S" value="{83202538-1411-4CA8-BFEF-AABB8A57D941}"/>
+			<Prp name="settingsversion" type="S" value="8.70"/>
+		</Node>
+		<Node name="test data">
+			<Node name="child list">
+				<Node name="item0000000000">
+					<Prp name="description" type="S" value=""/>
+					<Prp name="enabled" type="B" value="-1"/>
+					<Prp name="index" type="I" value="0"/>
+					<Prp name="key" type="S" value="{9216F808-DE60-489C-AF9C-530CCDDD2B35}"/>
+					<Prp name="stoponerror" type="B" value="-1"/>
+					<Prp name="timeout" type="I" value="0"/>
+				</Node>
+			</Node>
+			<Prp name="key" type="S" value="{C1B71503-885A-47E1-82DD-9C8D1DB24D8C}"/>
+		</Node>
+		<Node name="variables">
+			<Prp name="key" type="S" value="{93F2EC91-B2B2-491E-AE45-7DA877EA87CE}"/>
+		</Node>
+		<Prp name="key" type="S" value="{5A62B844-22C0-40D8-89C8-678519FAB81E}"/>
+		<Prp name="signature" type="S" value="{24B6FA0B-0143-461A-9758-AEB9E9A9428B}"/>
+		<Prp name="version" type="S" value="8.0"/>
+	</Node>
+</Nodes>