;采集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月初二  庚寅年 己丑月 庚申日