. .
12. IE操作
IE操作，不像GUI界面一样，通过AutoIt Window Info就能得到相关控件，进而获取控件句柄进行操作。 我们在操作IE网页时候，需要事先获取HTML页面中的相关Dom节点或元素，所以需要对HTML有一些了解。下面是一个简单的例子： $oIE = _IECreate (\_IEPropertySet ($oIE, \欢迎访问\$oForm = _IEFormGetObjByName ($oIE, \查找表单名 $oQuery1 = _IEFormElementGetObjByName ($oForm, \查找表单控件 _IEFormElementSetValue ($oQuery1, \赋值\给控件赋值 _IEFormSubmit ($oForm,1) ;点击提交表单请求 实例是一个简单操作，打开一个IE窗口，访问百度，然后在搜索网页表单，输入一个要查询的关键字，点击百度搜索。
一般网页很多超，对于这些的页面，都有很多的Dom节点嵌套，单纯的以对象名称不一定能够获取到某个操作的对象，这时需要从顶级Dom节点，一级一级缩小围，直到获取到最终操作对象节点，如下所示： $oIE = _IECreate (\$iFrame = _IEFrameGetObjByName ($oIE, \$oDiv = _IEGetObjById ($iFrame, \$ohrefArray = _IETagNameGetCollection ($oDiv,\For $oLink In $ohrefArray If $oLink.href = \ _IEAction($oLink,'click') ExitLoop EndIf Next 这里实例主要是从一个打开的浏览器窗口，获取名为iFrame的frame页面，然后获取其中为Id为divId的节点，进而，取到divId节点下的所有超对象，最后一个一个判断，找到某个url，点击超。 13. 自定义函数
把一些常用而相关逻辑的操作，抽离出来，独立成一个模块，供脚本调用，这就需要涉及到自定义函数。 用户可通过使用 Func...EndFunc 语句来自定义函数，函数中可以有Return返回值，也可以无，下面我们列出了一些常用的自定义函数，供参考： #include
. .
Func GetConfigFile()
Return String(\EndFunc
;根据给定的日期格式字符串转换成当前日期格式 Func ReplaceDateStr($DateStr) Select
Case StringInStr($DateStr,\
Return StringReplace($DateStr,\& DateMM() & DateDD())
Case StringInStr($DateStr,\
Return StringReplace($DateStr,\&\DateMM() &\
Case StringInStr($DateStr,\
Return StringReplace($DateStr,\&\DateMM() &\
Case StringInStr($DateStr,\ ;ABC代表英文的短月份格式，如1月=Jan Return StringReplace($DateStr,\& DateDD() &\
Case StringInStr($DateStr,\
Return StringReplace($DateStr,\ Case Else
Return $DateStr EndSelect EndFunc
;返回日期格式 Func DateYYYY()
Return String(YEAR) EndFunc
Func DateYY()
Return StringRight(String(YEAR),2) EndFunc
Func DateMM()
Return String(MON) EndFunc
Func DateDD()
Return String(MDAY) EndFunc
;写日志，截屏等操作 ;$fileName 日志文件
;$flag 操作标识 1为成功，0为失败 ;$logTxt 写入日志容，增加在行尾
Func WriteLog($fileName,$flag,$logTxt)
. . .
. .
;根据代理约定的相对目录
$File_dat= $fileName & \ $File_do = $fileName & \ $File_jpg = $fileName & \ ;截屏文件
_ScreenCapture_Capture($File_jpg) ;如果截屏失败，则启动画板
If FileExists($File_jpg) = 0 Then SaveImage($File_jpg) EndIf
;脚本执行结果文件
$file1=FileOpen($File_dat,2) FileWriteLine($file1, $flag) FileWriteLine($file1,$logTxt) FileClose($file1) ;状态文件
$file2=FileOpen($File_do,2) FileWriteLine($file2,\ FileClose($file2) EndFunc
;启动画图程序，将全屏截图保存为文件 ;$imgFile 文件保存路径 Func SaveImage($imgFile) Send(\
$picProcess = \ $pid = Run(\ $picWin = \未命名 - 画图\ $warnWin = \画图\ $saveWin = \保存为\ $imgFilePath = StringReplace(GetConfigFile(),\ If WinWait($picWin,\ WinActivate($picWin) Send(\
If WinActivate($warnWin) Then ControlClick($warnWin,\ WinMenuSelectItem($picWin,\文件\保存\ If WinWait($saveWin,\ WinActivate($saveWin)
ControlSetText($saveWin,\
ControlCommand($saveWin,\\(*.JPG;*.JPEG;*.JPE;*.JFIF)\
ControlClick($saveWin,\ If WinWait($saveWin,\已存在\
ControlClick($saveWin,\已存在\ EndIf
. . .
. .
EndIf
WinWait($imgFile)
If WinExists($imgFile) Then WinClose($imgFile) EndIf EndFunc
;判断窗口
;$win 窗口名称
;返回值 如果找存在返回1,否则返回0 Func ChkProgram($win) Dim $ret $ret=-1
If WinExists($win) Then $ret =1 Else
$ret =0 EndIf
Return $ret EndFunc
;判断程序进程
;$process 进程名称
;返回值 如果找存在返回1,否则返回0 Func ChkService($process) Dim $ret $ret=-1
$flag = ProcessExists($process) If $flag=0 Then $ret =0 Else
$ret =1 EndIf
Return $ret EndFunc
;根据给定的字符串匹配ListBox控件中的数据 ;$title 窗口标题
;$listBoxCmp ListBox控件
;$matchStr 匹配字符串.如果字符串以\连接，则匹配所有，如果字符串以\连接则匹配部分
;返回值 如果找到匹配的字符串返回1,否则返回0 Func MatchListBox($title,$listBoxCmp,$matchStr) Dim $ret,$count $ret=0 $num=0 $flag=1
. . .
. .
WinActivate($title)
If StringInStr($matchStr,'||')>0 Then
$array = StringSplit($matchStr, '||', 1) $flag=0 Else
$array = StringSplit($matchStr, '&&', 1) EndIf
$hWnd = ControlGetHandle($title,\ $count = _GUICtrlListBox_GetCount($hWnd) For $i=0 To $count-1
$hLabel = _GUICtrlListBox_GetText($hWnd, $i) If MatchStrArray($hLabel,$array) Then $num = $num + 1 If $flag Then
If $num = $array[0] Then $ret=1 ExitLoop EndIf Else
$ret=1 ExitLoop EndIf EndIf Next
Return $ret EndFunc
;匹配ListView控件字符串 ;$title 窗口标题
;$listViewCmp ListView控件 ;$cols 要查找的列，从0开始 ;$matchStr 匹配字符串
;返回值 如果找到匹配的字符串返回1,否则返回0
Func MatchListView($title,$listViewCmp,$cols,$matchStr) Dim $ret,$count,$rows $ret=0
WinActivate($title)
$rows = ControlListView($Title,\ $count=0
For $i=0 To $rows-1
$iText = ControlListView($Title,\ If StringInStr($iText,$matchStr)>0 Then $count=$count+1 EndIf Next
If $count=$rows Then $ret=1
. . .
autoit快速开发指南
