rmajly 发表于 2022-2-16 00:10:53

(转贴)AutoIt:AutoIt比我想象的更加强大

前段时间,我一直认为,通过AutoIt进行自动化操作,也只有几个方法可以用,它们只是controlClick, controlsend等如下图:https://images0.cnblogs.com/blog/558488/201309/03173424-6dd19083331c43fba8cdbca36689146c.png我一直认为,AutoIt的所有的GUI 方法,都是用来创建界面使用的。今天,开发找我,让我把他的一个GUI页面上所有的资源获取下来:页面上一个ListView中,一共有大约70个list,我现在需要遍历这70个list,然后当该list获取焦点的时候,右键点击,然后在弹出框中点击第二个选项,从而保存图片?我一直期待能找到一个函数,比喻:ControlGetFocusPos,可是没有这个函数,mouseGetPos函数只能获取鼠标所在的位置,google搜索也得不到想要的答案。https://images0.cnblogs.com/blog/558488/201309/03174248-e550595a99744e14803f4a380fdfbead.png问题最终还是被我解决了:1. 遍历每个list的位置坐标X, Y;2. 在该坐标上右键点击;3. 用键盘上的Down和Enter键,点击弹出框的第二个按钮;4. 保存相应资源具体代码如下:#include <GuiListView.au3>;获取窗口句柄$handle = WinGetHandle(".NET Reflector 6")WinActivate($handle);获取控件句柄;$control = ControlGetHandle($handle,"","WindowsForms10.SysListView32.app.0.232467a_r11_ad11");获取列表中List数目$count = ControlListView($handle,"",$control,"GetItemCount")for $i = 1 to 10    ;获取位置信息    $x = _GUICtrlListView_GetItemPositionX($control, $i-1)    $y = _GUICtrlListView_GetItemPositionY($control, $i-1)    ControlClick($handle,"", $control,"right",1, $x, $y)    ControlSend($handle,"",$control,"{down 2}{enter}")    WinWait("Save As")    WinWaitActive("Save As")    $handle2 = WinGetHandle("Save As")    ControlSetText($handle2,"", "Edit1", "C:\Users\chenpassion\Desktop\Autoit\pic\" & $i & ".png")    ControlClick($handle2,"","Button1")    WinWaitClose("Save As")    ControlSend($handle,"",$control,"{down}")Next

看来又有得深入学习了!_GUICtrl***函数,是非常强大的,可以做更多的识别页面元素,操作Windows GUI 控件。


转载于:https://www.cnblogs.com/autotest/p/3299200.html

rmajly 发表于 2022-2-16 00:13:02

本帖最后由 rmajly 于 2022-2-16 00:15 编辑

程序界面中SysTreeView及其节点控件的自动化操作(AutoIt3)

楼主菜鸟一枚,目前遇到一个任务 如下图1所示,在SysTreeView控件中,运用递归方法检索到“LS_账户清洗_多金产品账户日终对账-副本”节点;
然后上移两级,如图2所示,点击右键菜单中的“生成模块代码(无目录结构)”。






本来想用Python+Win32+Spy++方法,无奈只能抓到SysTreeView的句柄,里面的控件句柄抓不到,无奈只能放弃。

冥思苦想之际,偶遇AutoIt,定睛一看,卧槽!正解!于是花了两天学习了一下,侥幸达到了任务要求。具体实现代码如下:

#include <GuiTreeView.au3>

;声明变量
Global $hWnd,$goalfile,$result,$htzqchtz,$count,$isgo
Local $str,$location,$j,$hItem,$start,$end

_main()

Func _main()
   ;运行Eclipse,等待配置完毕
   Run('D:\研究生\4:研二下\hs_eclipse\eclipse.exe')
   WinWaitActive("")

   ;激活目标程序窗口
   $htzqchtz="资源 - Eclipse SDK"
   WinActivate($htzqchtz, "")
   ConsoleWrite("资源 -- Eclipse SDK被激活" & @CRLF)
   $count=1
   $isgo=True
   ;清理项目
   WinMenuSelectItem('资源 - Eclipse SDK','','项目(&P)','清理(&N)...')
   ;Sleep(10)
   send("{ENTER}")

   ;获取目标TreeView,并全部展开
   $hWnd=ControlGetHandle($htzqchtz,"","SysTreeView321") ;控件句柄
   ;$goalfile='(11111056)LS_账户同步多金融_客户风险等级维护(银行试题)'
   $goalfile='LS_账户清洗_多金产品账户日终对账'
   ;将树节点全部展开
   _GUICtrlTreeView_Expand($hWnd)

   ;点击根结点,刷新工程目录
   ControlTreeView ($htzqchtz,"",$hWnd,"Select",'#0')
   ;Sleep(10)
   $hItem =_GUICtrlTreeView_GetSelection($hWnd)
   _GUICtrlTreeView_ClickItem($hWnd,$hItem,"right", False,1);点击项目
   ;sleep(10)
   for $i = 1 to 10;发送按键来实现
         ;sleep(10)
         send("{DOWN}")
   next
   ;sleep(10)
   send("{ENTER}")

   ;自定义函数求节点书目
   ConsoleWrite('TreeView总节点个数:'&_GUICtrlTreeView_GetCount($hWnd)&@CR)
   ;sleep(10)
   $str='#0'

   $start=TimerInit()    ;计时开始
   SearchTree($str)
   $end=TimerDiff($start);计时结束

   ConsoleWrite('检索时间:'&$end&@CR)
   ConsoleWrite('检索结果:'&$result&@CR)
   ConsoleWrite('检索节点个数:'&$count&@CR)

   ;将目标根节点路径拆分
   $location=StringSplit($result,'|')

   ;获取上级目标节点路径
   for $j=2 to $location-2
          ;ConsoleWrite('目标操作路径数是:'&$location[$j]&@CR)
          $str=$str&'|'&$location[$j]
   Next
   ConsoleWrite('目标操作路径数:'&$str&@CR)
   ;Sleep(10)

   ;获取上级目标节点,右键点击弹出菜单窗口
   ControlTreeView ($htzqchtz,"",$hWnd,"Select",$str)
   ;Sleep(10)
   $hItem =_GUICtrlTreeView_GetSelection($hWnd)
   _GUICtrlTreeView_ClickItem($hWnd,$hItem,"right", False,1);点击项目
   ;sleep(10)
   ;#cs

   ;发送按键来实现
   for $i = 1 to 16
         ;sleep(10)
         send("{DOWN}")
      next
   ;sleep(10)
   send("{RIGHT}")
   ;sleep(1000)
   send("{ENTER}")
   ;#ce

   ;将树节点全部折叠
   ;_GUICtrlTreeView_Expand($hWnd,'',False)
EndFunc

;TreeView的根结点遍历函数
Func SearchTree($str)
   Local $i,$temp,$str1,$num
   $str1=$str
   $num=ControlTreeView($htzqchtz,"",$hWnd,"GetItemCount",$str1)
   $count+=$num
   ;#cs只要有匹配结果,立马跳出递归
   If $isgo=False Then
          Return $str1
   EndIf
   ;#ce
   If $num=0 Then

          $temp=ControlTreeView($htzqchtz,"",$hWnd, "GetText", $str1)
          If StringInStr($temp,$goalfile) Then
               $isgo=False
               ConsoleWrite('匹配节点名称:'&$temp&@CR)
               $result=$str1
          EndIf
   Else
          For $i=0 to $num-1
               SearchTree($str1&StringFormat('|#%d',$i))
          Next
   EndIf

#cs
   If $isgo=False Then
          Return $str1
   EndIf
#ce
EndFunc
————————————————
版权声明:本文为CSDN博主「PARKZHOU」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/PARKZHOU/article/details/76522165



haijie1223 发表于 2022-2-16 10:13:09

这种用wg的方法更合适

chishingchan 发表于 2022-2-16 13:40:34

可惜此软件不开源!

ren6688 发表于 2022-5-9 11:17:18

功能强大,无从下嘴
页: [1]
查看完整版本: (转贴)AutoIt:AutoIt比我想象的更加强大