08 2013 档案
摘要：我应用自动化测试技术提高自己的测试效率，已经实践了好几年了，也从0开始搭建过Web自动化测试框架，回过头来，发现下面这篇文章，与我这么多年实践遵循的方式，以及我自己对自动化测试的理解，完全如出一辙，现在转载这篇文章，给对自动化测试技术感兴趣的童孩们分享一下。以下是自动化测试框架的建议，需要在以后的实践中改进。自动化测试框架一般可以分为上下两个层次，上层是管理整个自动化测试的开发，执行以及维护，在比较庞大的项目中，它体现重要的作用，它可以管理整个自动测试，包括自动化测试用例执行的次序、测试脚本的维护、以及集中管理测试用例、测试报告和测试任务等。下层主要是测试脚本的开发，充分的使用相关的测试工具，
阅读全文
摘要：$file = FileOpen(@ScriptDir&"\RegInstalledItems.csv",1)if $file = -1 Then ConsoleWrite("ERROR: Unable to write to the output file") ExitEndIf$i = 1While not @error $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i) If @er
阅读全文
摘要：我的自动化脚本在运行的时候，会生成一个界面，点击该页面上的按钮能够进行自动化操作。经常遇到的一个问题是：脚本运行一半，GUI程序出现了异常情况，这个时候，再次点击生成的界面上的按钮，不会有任何反应，我需要重新启动exe文件，程序的健壮性受到了考验。为了解决这个问题，只需要在脚本中加入少量的错误验证即可： $check = WinWaitActive("License Examiner", "", 5) if $check = 0 Then ConsoleWrite(@HOUR & ":" & @MIN & &q
阅读全文
摘要：2008年的时候第一次接触AutoIt，当时觉得局限性太多了，就不想学，觉得把Watir，Ruby搞好就行了。最近一段时间比较闲，发现自己对GUI的自动化操完全是短板，就把AutoIt重新拾起来了。不再考虑什么局限性了，想着，反正现在，GUI自动化操作我啥也不会，学习了解一下总是好的。也许是先入为主的想法太严重了，我对Send，controlSend命令是有偏见的，觉得定位能力差，一旦一个界面不是在前端就定位不了。习惯性的使用controlClick， ControlCommand， ControlSetText命令。但是当使用AutoIt脚本越来越多，我发现，AutoIt自动化操作的短板就出
阅读全文
摘要：有一个界面如上图：黑色框框部分是一个整体，也是一个gridview，如果我想把框框中右侧数据获取出来，该如何操作？我尝试过了很多途径，都无法成功。今天，我发现，当鼠标焦点在黑色框框左侧的部分的时候，该焦点右侧的内容可以通过ControlGetText获得，于是我就有办法获取该gridview中右侧所有的内容了。方法如下：opt("WinTitleMatchMode")$handle = WinGetHandle(".NET Reactor v4.5.9.8 - Full Versio")WinActivate($handle)dim $arrayx[6]
阅读全文
摘要：require 'nokogiri'XML_FILE = "C:\\Users\\chenpassion\\Desktop\\20130806.xml"xml = Nokogiri::XML.parse(File.read(XML_FILE), XML_FILE)xml.xpath('//NewspaperReport').each {|x| if !x.attributes.include?("DownloadState") || x.attributes["DownloadState"].value
阅读全文
摘要：如果使用Ruby脚本，uniq函数就能搞定一切。不过我们现在还是讨论怎么用excel的Countif函数吧。假设Excel中有一列数据：我现在想把重复的数据只留下一个，该如何处理？方法如下：1. 使用Countif函数，计算A列中各个数字重复次数，每次计算的行号是递增的2. 对Excel中所有列进行降序排列，得到如下图：3. 把B列所有大于1的行全部删除即可。
阅读全文
摘要：假设Excel中有两列，现在要比较两列数据的不同。我们可以使用Match函数（最后一个参数是0）或者VLookup函数来操作， C列中，#N/A标示，B列中没有A列中的数值。VLookup方法：
阅读全文
摘要：require 'win32ole'ai = WIN32OLE.new("AutoItX3.Control")ai.RunWait("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255")
阅读全文
摘要：假设我书写了很多测试用例，测试用例中都有：require 'test/unit'后来我想把很多这样的测试用例组织在一起运行，我使用了两个require：require 'test/unit'require 'test/unit/ui/console/testrunner'于是我运行如下用例集合：include Test::Unit::UI::Console testcases = [TC_AddPeople] testcases.each{|testcase| TestRunner.run(testcase)}我得到的错误提示如下：Loaded
阅读全文
摘要：如果存在以下的场景：1. 放置在公司的读报机服务器，每天都是开启的；2. 读报机每天下载报纸，一旦成功/失败，就会有相应的记录生成在某个xml文件中；3. 现在有过去一年的读报机下载xml，大约有200多份，每份xml中存储了记录如下：现在你的经理想从测试人员你那儿获取一些知识：过去一年，我们的读报机功能，哪些报纸一直能够给客户下载？哪些报纸我们告诉客户是可以下载的，但是实际上是下载失败的？如果去找开发，也许通过连接数据库，运行一下SQL查询，记录就出来了，但是如果服务器不允许你访问，需要你统计结果，那怎么办？如果你会Ruby脚本，一切都非常简单：path = "C:\\Users\
阅读全文
摘要：Similar Threads1. WIN32OLE - failed to create WIN32OLE2. WIN32OLE#[] and WIN32OLE#[]= method in Ruby 1.9 (or later)For example, excel = WIN32OLE.excel("Excel.Application") excel["Visible"] = trueis NG.Instead, You must write excel = WIN32OLE.excel("Excel.Application") e
阅读全文
摘要：如果安装了搜狗，Watir::Browser.new并不一定能打开新的IE浏览器。这种情况下，必须卸载搜狗浏览器，当然，attach，find方法还是可以用的
阅读全文
摘要：Watir-WebDriver对于已经打开的浏览器，没有办法进行Attach操作。但是对于自动化操作浏览器过程中点击某链接，打开的新浏览器，是能够定位到的。require 'watir-webdriver'def attach_browser(browser, how, url) browser.driver.switch_to.window(browser.driver.window_handles[0]) browser.window(how, /#{url}/).useendie2 = Watir::Browser.new :chromeie2.goto("ht
阅读全文
摘要：#Suppose we will access an SVN netrequire 'watir-webdriver'b = Watir::Browser.new :chromeb.goto 'https://admin:password@yourwebsite.com'#Firefox Deal with Certification:profile = Selenium::WebDriver::Firefox::Profile.new profile.assume_untrusted_certificate_issuer = falseb = Watir::B
阅读全文
摘要：Watir对富文本编辑，一般可以采用b.frame().document.body.innerText = "Value you want to insert"但是Watir-WebDriver不支持这种方法。不过有两种方法可以通过Watir-WebDriver向所见即所得编辑器(应该指的是富文本编辑器)中输入文字：定位编辑器所在的iFrame，然后使用.send_keys方法(缺点是浏览器必须在前台运行)在浏览器上执行javascript,通过js脚本去设置编辑器的值。#CKEditorrequire 'watir-webdriver'b = Watir:
阅读全文
摘要：以下代码支持Firefox，IE，Chromerequire 'watir-webdriver'#require "watir-webdriver/extensions/alerts"b = Watir::Browser.new :chromeb.goto("http://192.168.10.110:ab/PersonInfo.aspx")b.text_field(:id, "txtName").set("w3")b.text_field(:id, "txtPwd").set(
阅读全文
摘要：特别声明：该报表框架不是我搭建的。
阅读全文
摘要：我在群空间，总是看到很多Watir新手，反复的问：我对元素的定位怎么又出错？我该从哪里着手啊？我给一个我认为最简单方便的学习方法。1. Ruby语法基础要入门，网上有一个不到2M的帮助文档，从头到尾仔细瞅瞅，每个语句自己手动执行一下，Ruby就能入门了；2. 进入安装好的Ruby，Watir的目录：D:\Ruby193\lib\ruby\gems\1.9.1\gems\watir-classic-3.0.0，把该文件夹导出到eclipse或者Netbeans项目中，就这些Example一个个执行下去，之后基本上就是Watir入门了。
阅读全文
摘要：以下是一个很经典的把Watir与AutoIt连接在一起的实例。如果我们对AutoIT了解的更多，处理类似的问题会更加简单。以下实例会判断页面上是否有某“删除”链接，一旦有该链接，就点击，然后点击弹出的警告框上的“确定”按钮，直到页面上不再有“删除”链接为止。require 'watir'require 'win32ole'class WindowHelper def initialize( ) @autoit = WIN32OLE.new('AutoItX3.Control') end def push_alert_button() @autoi
阅读全文
摘要：class WIN32OLE def list_ole_methods method_names = ole_methods.collect {|m| m.name} puts method_names.sort.uniq endendWIN32OLE.new('Shell.Application').list_ole_methods得到如下方法：AddRefAddToRecentApplicationBrowseForFolderCanStartStopServiceCascadeWindowsControlPanelItemEjectPCExploreExplorerPol
阅读全文
摘要：对于Ruby 1.8版本，以管理员身份运行命令行窗口，输入Regsvr32 AutoItX3.dll路径即可。对于1.9 版本，路径与1.8版本是不同的，我们可以进入Ruby安装目录下，搜索AutoItX3.dll，搜索到之后，找到相应路径，然后以管理员身份运行命令行窗口，输入：regsvr32 D:\Ruby193\lib\ruby\gems\1.9.1\gems\rautomation-0.7.2\ext\AutoItX\AutoItX3.dll回车即可。
阅读全文
摘要：为了提高自己的工作效率，我曾经对Watir进行了系统性的学习，比起学习C++，Java等始终不得门，Watir还是学进去了，能够完整搭建出一个自己很容易理解的自动化架构。之后我想继续在自动化测试方明提高自己，就把Ruby语言从头到尾走了一遍，还是有些收获的，虽然现在脑海里面也记不起来多少东西，但是就自动化测试这一方面来说，还是很有自信的。Watir，Ruby能够很大程度上提高测试效率，这点是毋庸置疑的，印象深刻的是，以下场景下，Watir和Ruby帮了我的忙。场景1：重现一些难以重现的Bug公司产品有一个功能，用户可以在google地图上画一条路线，然后可以在这条路线上跑步健身，从而进行一些统
阅读全文
摘要：1. Kill the taskcmd2="taskkill /F /IM typeperf.exe"stdout2=%x{#{cmd2}}2. Start counters:cmd="typeperf -cfc:\\test.txt>c:\\test3.csv"3. Get system info:require "sys/cpu"include SysCPU.processors{ |cs| cs.members.each{ |m| puts "#{m}: " + cs[m].to_s }}puts &q
阅读全文
摘要：b =Watir::IE.newb.goto'http://www.google.com/'txt =b.element_by_xpath("//*[@name='q']")txt.value= 'Richard Lawrence'btn =b.element_by_xpath("//*[@name='btnG']")btn.click@b.elements_by_xpath("//div[@class='UserServiceValues']").eac
阅读全文
摘要：require'win32/registry'hkey_local_machine=Win32::Registry::HKEY_LOCAL_MACHINEdefgetKeyValue(hive, key_path, key_name)reg_obj=hive.open(key_path, Win32::Registry::KEY_READ)beginreg_typ, reg_val = reg_obj.read(key_name)rescue Win32::Registry::Errorputs "key not found : #{key_name}"en
阅读全文
摘要：def save_file(filepath) ai =WIN32OLE.new("AutoItX3.Control") ai.WinWait("FileDownload", "", 2) ai.ControlFocus("FileDownload", "", "&Save") sleep 1 ai.ControlClick("FileDownload", "", "&Save", "lef
阅读全文
摘要：require 'watir'module Watir class Element def top_edge assert_exists assert_enabled ole_object.getBoundingClientRect.top.to_i end def top_edge_absolute top_edge + page_container.document.parentWindow.screenTop.to_i end def left...
阅读全文
摘要：ie.#{element}(:id,"foo").document.currentstyle.attributeAsCamelCasesoie.#{element}(:id,"foo").document.currentstyle.fontFamilyie.#{element}(:id,"foo").document.currentstyle.fontSizeie.#{element}(:id,"foo").document.currentstyle.colorSometimesyou have to use in
阅读全文
摘要：$!latesterror message$@locationof error$_stringlast read by gets$.linenumber last read by interpreter$&stringlast matched by regexp$~thelast regexp match, as an array of subexpressions$nthenth subexpression in the last match (same as $~[n])$=case-insensitivityflag$/inputrecord separator$\outputr
阅读全文
摘要：1). buttons Xpath1)Button propertiesbrowser.button(:xpath,"//input[@id='b2']/").namebrowser.button(:xpath,"//input[@id='b2']/").idbrowser.button(:xpath,"//input[@id='b2']/").type2)browser.button(:xpath,"//input[@value='Click Me']/&qu
阅读全文
摘要：可以应用AutoIT开发出界面，从而把AutoIT对GUI的自动化测试与Watir对web的自动化测结合在一起。以下代码是我学习GUI界面开发的实例代码。1. 当点击Watir_Test_Button，就会打开IE 浏览器，到达百度页面；2. 当点击GUI_Automation_Test，就会打开notepad，并在其中输入一些文字。#include #include #include #include #include #include #include ; Window, Pic, Label, Lable background colorGUICreate("Sample GU
阅读全文
摘要：以前用Ruby脚本，对于中文，数字结合的文件名，修改名字也不是非常简单，需要修改字符集，可是用autoit来实现，也挺简单的，并且可以替换已有文件名中的汉字部分。$filepath = "Filewith\2000.7月底延期事宜"if FileExists($filepath) Then FileChangeDir($filepath) $search = FileFindFirstFile("*.*") ; 检查搜索是否成功 If $search = -1 Then ConsoleWrite("No file") Exit End
阅读全文
摘要：GUICtrlCreateCombo中选中的选项是可修改的，也可设置为不可修改状态。#includeGUICtrlCreateLabel("ComboTest: ", 180, 280, 120, 20)GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT); Combo 选中的选项是可修改的状态GUICtrlCreateCombo("",250, 277, 120, 100); Combo 选中的选项是不可修改的状态，最后一个参数也可只为：$CBS_DROPDOWNLISTGUICtrlCreateCombo(&q
阅读全文
摘要：GUISetFont 可以设置默认字体，后面的资源都会用该字体，而 GUICtrlSetFont 可以对特定控件的字体进行设置。;Combo,setfont, GUICtrlSetFont$font= "Comic Sans MS"$fontlabel= GUICtrlCreateLabel("Combo Test: ", 160, 280, 120, 20)GUICtrlSetFont($fontlabel,10,20, 2, $FONT)GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)$comboFont=
阅读全文
摘要：#include $excel = _ExcelBookAttach("Book1.xlsx" ,"FileName")Dim $i = 1;_ExcelReadCell($excel,"b"&$i) "" 并不等于 not(_ExcelReadCell($excel,"b"&$i) ==""),使用的时候尽量使用后者While IsInt(_ExcelReadCell($excel,"b"&$i)) $ten = _ExcelRe
阅读全文
摘要：#include$conn= ObjCreate("ADODB.Connection")$RS= ObjCreate("ADODB.Recordset")$conn.Open("driver={SQLServer};server=a\demo;uid=sa;pwd=bcd;database=Test")$RS.ActiveConnection= $conn$RS.open("SELECT* FROM GIS_CROP");以下代码可以获取数据库表的标题名;$count = $RS.Fields.Count;dim
阅读全文
摘要：_filelist("D:\Snagit 10")Func _filelist($searchdir) ;;;函数名(形参) $search = FileFindFirstFile($searchdir & "\*.*") ;;;;查找c:根目下的文件 If $search = -1 Then return -1 ;;;;如果找不到,返回值 -1 While 1 $file = FileFindNextFile($search) ;;;查找下一个文件 If @error Then ...
阅读全文
摘要：Func down() $Size=InetGetSize($a[$j][1]);获得FTP上的文件的大小 InetGet($a[$j][1],$a[$j][2],1,1);下载 ProgressOn("下载进度表", "正在下载 ..."& StringRight($a[$j][1],20),"0 %") While @InetGetActive $i=round(@InetGetBytesRead / $Size * 100) ProgressSet( $i, $i & " %") ;TrayT
阅读全文
摘要：一般情况下，GridView中的数据来自数据库，我们通过Windows Info，是无法获取GridView中的信息的。而软件定制的Menu，很多时候无法通过系统提供的WinMenuSelectItem来获取。对于GridView窗口或者WinMenuSelectItem窗口等等，如果无法通过常规手段获取的资源，都可以使用ControlClick和ControlSetText命令对字段进行点击/双击/赋值操作。;Get the handle of the main window$handle = WinGetHandle("[class:WindowsForms10.Window.2
阅读全文
摘要：WinGetText是一个非常有用的函数，可以获取页面上一切可见的资源，这为自动化测试的验证功能提供了保证。可以使用一些字符串处理函数来对获取来的页面文本进行分析。If StringInStr(WinGetText($handle),"Trial_Days") Then MsgBox(0,"Test", "String is set successfully")Else MsgBox(0,"Test2", "No value")EndIfMsgBox(0,"Test3", W
阅读全文
摘要：一般情况下，Gridview是无法通过AutoIT Window Info来获取控件信息的，但是可以有折中的办法对Gridview中的字段赋值。#include$handle= WinGetHandle("[Handle:0x0000000000260D3E]") ;MsgBox(0,"Test", $handle);WinActivate($handle);ControlClick($handle,"","WindowsForms10.Window.8.app.0.1f550a4_r15_ad129","
阅读全文
摘要：$url2 = "AX.XXX.XXX.COM"$oIE = _IECreate ($url2, 0, 1, 0, 1)Sleep(1000)ControlSetText('[REGEXPTITLE:连接到.+]', '', 1003, 'username')ControlSetText('[REGEXPTITLE:连接到.+]', '', 1005, 'password')ControlClick('[REGEXPTITLE:连接到.+]', ''
阅读全文
摘要：#include$handle =WinGetHandle("Windows 任务管理器");$ctrl =ControlGetHandle($handle,"","SysListView321")dim $count =ControlListView($handle,"","SysListView321","GetItemCount")MsgBox(0,"Test",$count)dim $idim $array1[2] = [0, 4]dim $arr
阅读全文
摘要：$handle= WinGetHandle("Sample GUI");MsgBox(0,"SRE Example 3 Result", $handle)$ctrl= ControlGetHandle($handle, "", "Static1");MsgBox(0,"SRE Example 3 Result", $ctrl)$a1= ControlGetHandle($handle, "", "msctls_progress321");MsgBox(0,
阅读全文
摘要：$fHandle= FileOpen("文件", 0)if $fHandle -1 Then While 1 $line= FileReadLine($fHandle) If@error = -1 Then ExitLoop WendEndIfFileClose($fHandle)
阅读全文
摘要：ControlCommand可以确定窗口中的复选框是否选中状态，然后可以对这些复选框进行操作。可以对ComboBox和ListBox进行操作如选择下拉框的某个选项if WinExists("AutoIt 帮助") Then MsgBox(1,"OK", "Start") WinActivate("AutoIt帮助") if ControlCommand("AutoIt 帮助","","Button5","IsChecked", &quo
阅读全文
摘要：对文件系统的菜单进行操作，有专门的语句WinMenuSelectItem:Run("notepad.exe")WinWaitActive("[CLASS:Notepad]")WinMenuSelectItem("[CLASS:Notepad]","", "文件(&F)", "页面设置(&U)..." )WinMenuSelectItem 有很强的局限性，很多定制的Menu无法操作。以后出现了新的Menu，一旦能够操作，将把代码拷贝到当前页面。
阅读全文
摘要：句柄是独一无二的，很多时候，Title，Command都可以用句柄来代替。以下写法是能够起一样的作用。$handle= WinGetHandle("autoit cn")$ctrl= ControlGetHandle("autoit cn","","[CLASS:Button;INSTANCE:5]")ControlClick($handle,"",$ctrl);controlclick("autoitcn", "", "[CLASS:Butto
阅读全文
摘要：$handle= WinGetHandle("Program Manager")$ctrl= ControlGetHandle("ProgramManager","","[CLASS:SysListView32; INSTANCE:1]") $pos= WinGetPos ($handle)MsgBox(0,"DesktopWidth","Desktopwidth: " & $pos[2] & @CRLF & "Desktop height:
阅读全文
摘要：Example()FuncExample() ; Run Notepad Run("notepad.exe") ; Wait 10 seconds for the Notepad window toappear. Local $hWnd =WinWait("[CLASS:Notepad]", "", 10) MsgBox(1,"Test1", $hWnd, 3) ; Convert the handle to a string. Local $sHWnd = String($hWnd) MsgBox(1,"
阅读全文
摘要：If WinExists("[CLASS:Notepad2]") Then Local $hWnd = WinWait("[CLASS:Notepad]", "",10) ; Convert the handle to a string. Local $sHWnd = String($hWnd) WinActivate("[CLASS:Notepad]") ;WinWaitActive("[class:Notepad]") Send("Hello")EndIf
阅读全文
摘要：1. ControlSetText :可以摆脱Send的限制，在适当的文本框位置输入用户想要输入的信息。2. ControlGetText可以获取文本Run("notepad.exe")WinWait("[CLASS:Notepad]") ControlSetText("[CLASS:Notepad]", "", 15,"New Text Here")Local $sText = ControlGetText("[CLASS:Notepad]","", 1
阅读全文
浙公网安备 33010602011771号