Autoit 应用（1）

Y.Yooin

已于 2024-07-17 09:31:33 修改

阅读量826

点赞数 15

文章标签：笔记

于 2024-07-17 09:02:01 首次发布

本文链接：https://blog.csdn.net/qq_44955505/article/details/140484156

版权


#include <IE.au3>
#include <Array.au3>
#include <Excel.au3>
#include <File.au3>
#include <FTPEx.au3>
#include <Date.au3>
#include <IE.au3>

Global Const $xlUp = -4162

Func _DelData($filepath,$sheet,$start,$end)
   Local $oExcel = _Excel_Open(0)
   Local $oWorkbook = _Excel_BookOpen($oExcel, $filepath)

   $Q =$oWorkbook.Sheets($sheet).Range("A65536").End($xlUp).Row + 1
    ;Excel表中已经存在的数据行数 +1
   _Excel_RangeDelete($oWorkbook.ActiveSheet, $start &':' & $end & $Q, $xlShiftUp)
   ;从第一行删除到删除最后一行
   _Excel_BookSave($oWorkbook);写入之后保存
   _Excel_Close($oExcel,True);关闭Excel表
EndFunc

  Func TO_Excel($filepath,$sheet,$data)
   Local $oExcel_new = _Excel_Open(0);启动Excle链接
   Local $oWorkbook = _Excel_BookOpen($oExcel_new,$filepath,0)
   ;打开自己电脑上的一个空Excel文件用来存放抓取的数据
   $Q =$oWorkbook.Sheets($sheet).Range("A65536").End($xlUp).Row+1
    ;+ 1 ;Excel表中已经存在的数据行数+1
   _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$data , "A" & $Q)
   ;将数据写入Excel活动表中，从A单元格开始写入
   _Excel_BookSave($oWorkbook);写入之后保存
   _Excel_Close($oExcel_new,True);关闭Excel表
   EndFunc

_DelData("\\Auo\ksfs\KL6K0B\KL6KC0\KL6KC1\25.S17 AOI DATA\S17_AOI_DATA_Y.xlsx","Sheet1","A2","Q")
Sleep(1000)

Local $oIE = _IECreate("http://www.baidu.com",1,0)
_IELoadWait($oIE)

Local $but1 = _IEGetObjByName($oIE,"account")
$but1.value = '真的亮'

Local $but1 = _IEGetObjByName($oIE,"pwd")
$but1.value = 'password'

Local $but1 = _IEGetObjById($oIE,"LoginBtn")
$but1.value = "登入"
$but1.click()

_IELoadWait($oIE)
_IENavigate($oIE,"http://www.wangye.com")
_IELoadWait($oIE)
Local $but1 = _IEGetObjByName($oIE,"model_no")

$but1.value = "CXXXRAX01.0"

Local $but1 = _IEGetObjByName($oIE,"fromDate")
$but1.value = '2023/08/15'

Local $but1 = _IEGetObjByName($oIE,"toDate")
$but1.value = '2023/08/31'

Local $but1 = _IEGetObjByName($oIE,"isRejudge")
$but1.value = 'Y'

_IELoadWait($oIE)
Sleep(500)
Local $inputs1 = _IETagNameGetCollection($oIE,"input")
for $input in $inputs1
   If($input.type="button" And $input.value="Query") Then  ;没有name  没有id
	 $input.click()

   EndIf
Next

_IELoadWait($oIE)
Sleep(500)

Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended


For $step1=0 To  $iNumLinks
_IELinkClickByIndex($oIE, $step1)
_IELoadWait($oIE)
Sleep(500)
Local $table=_IETableGetCollection($oIE,0) 
;获取表格内容，0代表表格在网页中的顺序。第0个表格
     Local $data=_IETableWriteToArray($table,True) 
     ;将表格内容写到二维数组中
         _ArrayDelete($data,'0')
   TO_Excel("\\Auo\ksfs\KL6K0B\KL6KC0\KL6KC1\S17_AOI_DATA_Y.xlsx","Sheet1",$data)
Sleep(500)
      Local $inputs1 = _IETagNameGetCollection($oIE,"input")
       for $input in $inputs1
        If($input.type="button" And $input.value="Back") Then  ;没有name  没有id
	     $input.click()
       EndIf
	Next
	_IELoadWait($oIE)
Sleep(500)

Next

MsgBox(0,"","你很棒！捞取完成~")