日期:2014-05-16 浏览次数:20386 次
;采集2011全年的农历日 如:1月1日 是 农历11月廿七 庚寅年 戊子月 丙辰日 #include <IE.au3> ;创建一个IE浏览器,并且打开指定地址,试着附着在已存在窗口,浏览器窗口可见,在返回之前等待网页加载完毕,使窗口聚焦 $oIE = _IECreate ("http://www.365rili.com/huangliQuery.html",1,1,1,0) ;通过标签名获取当前网页所有INPUT和DIV 的DOC标签对象 $oButtons = _IETagNameGetCollection ($oIE, "input") $oInputs = _IETagNameGetCollection ($oIE, "div") ;通过ID获取网页DOM对象 $oMonSelect=_IEGetObjById($oIE, "oth_month") $oDaySelect=_IEGetObjById($oIE, "oth_day") For $mon=1 to 12 ;获取11年每个月份的天数 if $mon<=7 Then if mod($mon,2)=1 Then $day=31 Else if $mon=2 Then $day=28 Else $day=30 EndIf EndIf else if mod($mon,2)=0 Then $day=31 Else $day=30 EndIf EndIf ;通过指定option的文字来设定当前月份 _IEFormElementOptionSelect ($oMonSelect, $mon & "", 1, "byText") For $today=1 to $day ;打印日期 ;ConsoleWrite($mon & "-" & $today & @CRLF) ;通过指定option的文字来设定当前日期 _IEFormElementOptionSelect ($oDaySelect, $today & "", 1, "byText") ;########################### ;获取网页中指定序号的input的按钮 ;########################### ;$oButtons = _IETagNameGetCollection ($oIE, "input") $j=0; For $oButton In $oButtons If $j=0 Then _IEAction ($oButton, "click") EndIf $j=$j+1 Next ;########################### ;获取网页中指定需要的div标签内的text ;########################### ;$oInputs = _IETagNameGetCollection ($oIE, "div") $i=0; For $oInput In $oInputs If $i=27 Then ConsoleWrite($mon & "-" & $today &" "&_IEPropertyGet($oInput, "innertext") & @CR) EndIf $i=$i+1 Next Sleep(500);休息0.5秒 Next Next ;一下是运行时控制台打印的部分结果 1-1 农历11月廿七 庚寅年 戊子月 丙辰日 1-2 农历11月廿八 庚寅年 戊子月 丁巳日 1-3 农历11月廿九 庚寅年 戊子月 戊午日 1-4 农历12月初一 庚寅年 戊子月 己未日 1-5 农历12月初二 庚寅年 己丑月 庚申日