04.百度日历的选择

Dim 年, iRet, temp, hWeb, arrayData, 月, bRet, 日, arrRet, objRect, arrElement0, arrElement1, arrElement2, arrElement3, sRet1

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

年 = CInt(年)

年 = 年-1900

TracePrint(年)

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

月 = CInt(月)

月 = 月-1

日 = Dialog.InputBox("", "请输入具体几号", "", false)

TracePrint($PrevResult)

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"000", 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>_2", "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"月", 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})

日 = CInt(日)

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

For j = 1 To 6 step 1

    arrElement = UiElement.GetChildren(arrElement0[j], 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

    For i = 0 To 6 step 1

        arrElement1 = UiElement.GetChildren(arrElement[i], 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

        arrElement2 = UiElement.GetChildren(arrElement1[0], 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

        sRet = UiElement.GetAttribute(arrElement2[0], "class", {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

        TracePrint($PrevResult)

        arrElement3 = UiElement.GetChildren(arrElement2[0], 1, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

        sRet1 = UiElement.GetValue(arrElement3[1], {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

        sRet1 = CInt(sRet1)

        TracePrint($PrevResult)

        bRet = Text.Exists(sRet, "other", "instr", 1, 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true})

        If bRet = false

            If sRet1 = 日

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

                Exit()

            End If

        End If

    Next 

Next 

 

 

 

Dim arrElement

Dim sRet

日的选择（JS单击的方法）

Dim temp, hWeb, sRet, iRet

日 = Dialog.InputBox("请输入天：", "Laiye Automation", "", false)

日 = CInt(日)

日 = 日-1

hWeb = WebBrowser.BindBrowser("chrome", 10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})

sRet = WebBrowser.RunJS(hWeb, "function(){document.querySelectorAll(\"div[class=' cell-inner-box'],[class=' cell-inner-box'],[class='cell-weekend cell-inner-box'],[class='cell-weekend cell-today cell-inner-box'],[class='cell-festival cell-rest cell-inner-box'],[class='cell-weekend cell-work cell-inner-box'],[class='cell-weekend cell-festival cell-rest cell-inner-box'],[class='cell-selected cell-weekend cell-today cell-inner-box '],[class='cell-selected cell-inner-box'],[class='cell-selected cell-weekend cell-inner-box'],[class='cell-selected cell-festival cell-rest cell-inner-box'],[class='cell-selected cell-weekend cell-work cell-inner-box'],[class='cell-selected cell-weekend cell-festival cell-rest cell-inner-box'],[class='cell-today cell-inner-box'],[class='cell-selected cell-today cell-inner-box']\")[" & 日 & "].click();return 123}", true, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200})