[系统相关] [已解决]批处理如何实现打开指定网页并点击网页上播放按钮？

Call test

Sub test()

    Set WshShell = CreateObject("WScript.Shell")

    Set oExec = WshShell.Exec("%ProgramFiles%\Internet Explorer\iexplore.exe about:blank")

    WScript.Sleep 5000

    With Wscript.CreateObject("InternetExplorer.Application")

        .Visible = True
        .Navigate "http://www.ximalaya.com/#/1162654/album/233577"

        Do While .Busy Or .readyState <> 4
            WScript.Sleep 50
        Loop

        Set oDIVS = .Document.getElementsByTagName("DIV")
        For Each e In oDIVS
            If e.className = "detailContent_playcount" Then

                Set oAs = E.getElementsByTagName("A")

                For Each elm In oAs
                    If elm.className = "playBtn" Then

                        elm.Click

                        degree = 0
                        for i = 1 to 30000
                            degree = (degree + 1) Mod 360
                            elm.style.transform="rotateY(" & degree & "deg)"
                        next

                        REM oExec.Terminate
                        EXIT Sub

                        Exit For
                    End If
                Next

                Exit For
            End If
        Next
    End With
End Sub
复制代码

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "http://www.ximalaya.com/1162654/album/233577"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4 
Set divTag = ie.document.getElementsByTagName("div")
For Each d In divTag
          If d.className = "miniPlayer3" Then
       d.getElementsByTagName("a")(1).Click
       Exit For
   End If
Next
复制代码

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "http://www.ximalaya.com/tag/%E8%B4%A2%E7%BB%8F%E9%83%8E%E7%9C%BC/"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4 
Set divTag = ie.document.getElementsByTagName("div")
For Each d In divTag
          If d.className = "sound_unexpandBox" Then
       d.getElementsByTagName("a")(1).Click
       Exit For
   End If
Next
复制代码

Run, "%ComSpec%" /c start "" /max "%ProgramFiles%\Internet Explorer\iexplore.exe" http://www.ximalaya.com/#/1162654/album/233577, , Max


WinActivate, 【财经郎眼 2014】在线收听_mp3下载_ 喜马拉雅官网 - Internet Explorer,

Send, {ALTDOWN}{SPACE}{ALTUP}x

SLEEP, 3000

WinActivate, 【财经郎眼 2014】在线收听_mp3下载_ 喜马拉雅官网 - Internet Explorer,

MouseMove, 0, 0

; 播放按钮色指纹信息
Y_1 := 0
X_1 := 0
C_1 := 0xFAFAFA
Y_2 := 0
X_2 := 3
C_2 := 0xC9DDFB
Y_3 := 0
X_3 := 4
C_3 := 0x0168FF
Y_4 := 0
X_4 := 5
C_4 := 0x0067FF
Y_5 := 0
X_5 := 20
C_5 := 0xA5C9FF
Y_6 := 0
X_6 := 21
C_6 := 0x0F70FF
Y_7 := 0
X_7 := 22
C_7 := 0x0067FF
Y_8 := 0
X_8 := 47
C_8 := 0x0168FF
Y_9 := 0
X_9 := 48
C_9 := 0xC9DDFB
Y_10 := 0
X_10 := 49
C_10 := 0xFAFAFA
Y_11 := 5
X_11 := 0
C_11 := 0xFAFAFA
Y_12 := 5
X_12 := 1
C_12 := 0xDEE9FB
Y_13 := 5
X_13 := 2
C_13 := 0x0063FF
Y_14 := 5
X_14 := 20
C_14 := 0xFFFFFF
Y_15 := 5
X_15 := 27
C_15 := 0xB3D1FF
Y_16 := 5
X_16 := 28
C_16 := 0x1670FF
Y_17 := 5
X_17 := 29
C_17 := 0x0063FF
Y_18 := 5
X_18 := 50
C_18 := 0xD9E6FB
Y_19 := 10
X_19 := 0
C_19 := 0xFAFAFA
Y_20 := 10
X_20 := 1
C_20 := 0x0E67FF
Y_21 := 10
X_21 := 2
C_21 := 0x005EFF
Y_22 := 10
X_22 := 20
C_22 := 0xFFFFFF
Y_23 := 10
X_23 := 34
C_23 := 0xC0D7FF
Y_24 := 10
X_24 := 35
C_24 := 0x1E71FF
Y_25 := 10
X_25 := 36
C_25 := 0x005EFF
Y_26 := 10
X_26 := 50
C_26 := 0x136AFF
Y_27 := 15
X_27 := 0
C_27 := 0xFAFAFA
Y_28 := 15
X_28 := 1
C_28 := 0x4586FE
Y_29 := 15
X_29 := 2
C_29 := 0x0059FF
Y_30 := 15
X_30 := 20
C_30 := 0xFFFFFF
Y_31 := 15
X_31 := 30
C_31 := 0xFDFEFF
Y_32 := 15
X_32 := 31
C_32 := 0x8FB6FF
Y_33 := 15
X_33 := 32
C_33 := 0x0B60FF
Y_34 := 15
X_34 := 33
C_34 := 0x0059FF
Y_35 := 15
X_35 := 50
C_35 := 0x4485FE
Y_36 := 20
X_36 := 0
C_36 := 0xFAFAFA
Y_37 := 20
X_37 := 2
C_37 := 0x81AAFC
Y_38 := 20
X_38 := 3
C_38 := 0x0054FF
Y_39 := 20
X_39 := 20
C_39 := 0xFFFFFF
Y_40 := 20
X_40 := 23
C_40 := 0xBAD1FF
Y_41 := 20
X_41 := 24
C_41 := 0x226BFF
Y_42 := 20
X_42 := 25
C_42 := 0x0054FF
Y_43 := 20
X_43 := 49
C_43 := 0x7AA5FD
Y_44 := 20
X_44 := 50
C_44 := 0xFAFAFA

y_start := 0
loop, %A_ScreenHeight% {
    PixelSearch, xs, ys, 0, y_start, A_ScreenWidth, A_ScreenHeight, 0x0168FF, 0, Fast

    xs -= 4
    FoundBtn := TRUE
    loop, 44{

        X := xs + X_%A_INDEX%
        Y := ys + Y_%A_INDEX%

        PixelGetColor, color, %X%, %Y%,
        if (color != C_%A_INDEX%) {
            FoundBtn := FALSE
            Break
        }
    }

    if (FoundBtn) {
        MouseClick, left, xs + 52 / 2,  ys + 23 / 2
        ExitApp
    }
    y_start += 1
}
ExitApp
复制代码

#a::
WinActivate, ahk_exe mspaint.exe,

i := 0

loop, 5 {
    yoffs := (A_INDEX - 1) * 5
    last_color := -1
    loop, 51 {
        xoffs := A_INDEX - 1
        X := 13 + xoffs
        Y := 87 + yoffs

        PixelGetColor, color, %X%, %Y%, Alt

        if (color != last_color) {
            last_color := color
            i += 1

            FileAppend, Y_%i% := %yoffs%`n, TestLog.txt
            FileAppend, X_%i% := %xoffs%`n, TestLog.txt
            FileAppend, C_%i% := %color%`n, TestLog.txt
        }
    }
}

return
复制代码

@echo off

>nul (ping 114.114.114.114|find/i "ttl=")&&CScript c:\1.vbs||call "%~f0"
复制代码

set ws=wscript.createobject("wscript.shell")
  
ws.SendKeys "{F4}"

do
wscript.sleep 75000
ws.sendkeys "{f5}"
loop
    
ws.SendKeys "{ENTER}"
复制代码

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "http://m.ximalaya.com/1162654/album/233577" 

Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4 

'ie.document.getElementsByTagName("ul")(0).getElementsByTagName("a")(0).Click

Set divTag = ie.document.getElementsByTagName("div")
For Each div In divTag
    If div.className = "sound-list" Then
        div.getElementsByTagName("i")(1).Click
        Exit For
   End If
Next
复制代码

Set ie=WScript.CreateObject("InternetExplorer.Application") 
ie.visible=true 
ie.navigate "http://www.baidu.com/"
复制代码