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
Do
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
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})
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", 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
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
Do
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
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})
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", 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