06.百度日历的选择另一种方法（快）

Dim bRet, arrElement, iRet, temp, 年, i, 号 = "", 月 = "", 月份验证 = ""

年 = Dialog.InputBox("请输入年份", "年份", "", false)

年 = CInt(年)

年 = 年-1900

月 = Dialog.InputBox("请输入月份", "月份", "", false)

月 = CInt(月)

月 = 月-1

号 = Dialog.InputBox("请输入几号", "号数", "", false)

号 = CStr(号)

Mouse.Action(@ui"文本<i>_", "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate", "bMoveSmoothly": false})

arrElement = UiElement.GetChildren(@ui"123", 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

Mouse.Action(arrElement[年], "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate", "bMoveSmoothly": false})

Mouse.Action(@ui"文本<i>_1", "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate", "bMoveSmoothly": false})

arrElement = UiElement.GetChildren(@ui"456", 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

Mouse.Action(arrElement[月], "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate", "bMoveSmoothly": false})

Text.Click(@ui"789", 号, "instr", 1, "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate"})

i = 1

i = i+1

月份验证 = Text.Get(@ui"块级元素<div>_8月1月2月3月4月5月6月7月8月9月10月11月12月", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true})

月份验证 = DigitFromStr(月份验证)

月份验证 = CInt(月份验证)

If 月+1 = 月份验证

Exit()

Else

Text.Click(@ui"789", 号, "instr", i, "left", "click", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [], "sSimulate": "simulate"})

End If

Loop

Dim sRet