[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 erjnasrtnws 于 2016-1-6 16:41 编辑

如何代码实现   打开网页   实现自动点击播放按钮!求指教

家里的电脑经大侠指点已经实现开机自动打开网页,可是有的网页,打开之后,必须点击--播放--按钮,才发出声音!!
请教如何代码实现鼠标点击播放按钮的效果!!!
求大侠指点!!谢谢了

补充!我想听财经郎眼2014   网页地址 http://www.ximalaya.com/1162654/album/233577    求指教

补充2  节段网页源代码---(本人菜鸟 不知道找对了没有 playBtn这个应该是播放按钮吧!!!呵呵   )

                  <div class="detailContent_playcount">
                  <a class="playBtn"></a>
                  
                  <div class="detailContent_playcountDetail">
                    <span>1165.0万</span>
                    次播放
                  </div>

补充    发现一款神器 http://pan.baidu.com/s/1jHvfzgE 绿色单文件 用来查看任何网页按钮代码!

         请按我标记的1,2,3,3,4步骤横容易查看网页按钮代码  横强大 推荐给给位


1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
这么好的论坛!!!!

回复 14# aa77dd@163.com


    谢谢高手指点!!!我过去看看  估计本人太菜看不懂!!!哈哈
这么好的论坛!!!!

TOP

回复 13# erjnasrtnws
这是 IE 平台的 API 接口, 默认浏览器可能是任何浏览器, 而微软是否提供有 该浏览器和 VBS 之间的接口呢?

也许你可以看看 WebDriver

https://w3c.github.io/webdriver/webdriver-spec.html
1

评分人数

TOP

  1. Set ie=WScript.CreateObject("InternetExplorer.Application")
  2. ie.visible=true
  3. ie.navigate "http://www.baidu.com/"
复制代码
请教下 此代码是用IE打开网址  如何更该为用默认的浏览器(不一定是IE)打开这个网址????求指教
这么好的论坛!!!!

TOP

可以考虑手机或者电脑使用播客软件,设置有更新自动下载。
然后再点播放。
1

评分人数

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

回复 10# pcl_test


   呵呵   谢谢斑竹指教!!!!
这么好的论坛!!!!

TOP

本帖最后由 pcl_test 于 2016-11-10 14:41 编辑

换成手机端页面
  1. Set ie=WScript.CreateObject("InternetExplorer.Application")
  2. ie.visible=true
  3. ie.navigate "http://m.ximalaya.com/1162654/album/233577"
  4. Do
  5. Wscript.Sleep 200
  6. Loop Until ie.ReadyState=4
  7. 'ie.document.getElementsByTagName("ul")(0).getElementsByTagName("a")(0).Click
  8. Set divTag = ie.document.getElementsByTagName("div")
  9. For Each div In divTag
  10.     If div.className = "sound-list" Then
  11.         div.getElementsByTagName("i")(1).Click
  12.         Exit For
  13.    End If
  14. Next
复制代码
1

评分人数

TOP

本帖最后由 erjnasrtnws 于 2016-1-7 14:42 编辑

呵呵 把我整个开机自起的  流程记录下 供朋友参看下

整个流程 开机自动打开网页听财金廊眼   

1先在桌面,建立网页快解方式 http://www.youtingradio.com/webs ... al_list.html?id=901 为其设定快捷键F4

2 这个批处理
  1. @echo off
  2. >nul (ping 114.114.114.114|find/i "ttl=")&&CScript c:\1.vbs||call "%~f0"
复制代码
3 这个c:\1.vbs  每隔一段时间自动刷新网页
  1. set ws=wscript.createobject("wscript.shell")
  2.   
  3. ws.SendKeys "{F4}"
  4. do
  5. wscript.sleep 75000
  6. ws.sendkeys "{f5}"
  7. loop
  8.    
  9. ws.SendKeys "{ENTER}"
复制代码
这么好的论坛!!!!

TOP

回复 7# aa77dd@163.com


    厉害!谢谢了
这么好的论坛!!!!

TOP

本帖最后由 aa77dd@163.com 于 2015-12-31 19:24 编辑

回复 6# erjnasrtnws

我放弃 VBS 的尝试, 改用 AHK 成功实现   财经郎眼2014   http://www.ximalaya.com/1162654/album/233577  的自动播放

请安装 AHK, 官方下载地址 [url]http://ahkscript.org/download/ahk-install.exe[/url]

以下代码存为 AutoPlay.ahk  如果安装了 AHK 双击运行即可, 当然你也可以把它转成 EXE 文件(AHK 安装后有一个编译器 Ahk2Exe.exe)来运行
  1. Run, "%ComSpec%" /c start "" /max "%ProgramFiles%\Internet Explorer\iexplore.exe" http://www.ximalaya.com/#/1162654/album/233577, , Max
  2. WinActivate, 【财经郎眼 2014】在线收听_mp3下载_ 喜马拉雅官网 - Internet Explorer,
  3. Send, {ALTDOWN}{SPACE}{ALTUP}x
  4. SLEEP, 3000
  5. WinActivate, 【财经郎眼 2014】在线收听_mp3下载_ 喜马拉雅官网 - Internet Explorer,
  6. MouseMove, 0, 0
  7. ; 播放按钮色指纹信息
  8. Y_1 := 0
  9. X_1 := 0
  10. C_1 := 0xFAFAFA
  11. Y_2 := 0
  12. X_2 := 3
  13. C_2 := 0xC9DDFB
  14. Y_3 := 0
  15. X_3 := 4
  16. C_3 := 0x0168FF
  17. Y_4 := 0
  18. X_4 := 5
  19. C_4 := 0x0067FF
  20. Y_5 := 0
  21. X_5 := 20
  22. C_5 := 0xA5C9FF
  23. Y_6 := 0
  24. X_6 := 21
  25. C_6 := 0x0F70FF
  26. Y_7 := 0
  27. X_7 := 22
  28. C_7 := 0x0067FF
  29. Y_8 := 0
  30. X_8 := 47
  31. C_8 := 0x0168FF
  32. Y_9 := 0
  33. X_9 := 48
  34. C_9 := 0xC9DDFB
  35. Y_10 := 0
  36. X_10 := 49
  37. C_10 := 0xFAFAFA
  38. Y_11 := 5
  39. X_11 := 0
  40. C_11 := 0xFAFAFA
  41. Y_12 := 5
  42. X_12 := 1
  43. C_12 := 0xDEE9FB
  44. Y_13 := 5
  45. X_13 := 2
  46. C_13 := 0x0063FF
  47. Y_14 := 5
  48. X_14 := 20
  49. C_14 := 0xFFFFFF
  50. Y_15 := 5
  51. X_15 := 27
  52. C_15 := 0xB3D1FF
  53. Y_16 := 5
  54. X_16 := 28
  55. C_16 := 0x1670FF
  56. Y_17 := 5
  57. X_17 := 29
  58. C_17 := 0x0063FF
  59. Y_18 := 5
  60. X_18 := 50
  61. C_18 := 0xD9E6FB
  62. Y_19 := 10
  63. X_19 := 0
  64. C_19 := 0xFAFAFA
  65. Y_20 := 10
  66. X_20 := 1
  67. C_20 := 0x0E67FF
  68. Y_21 := 10
  69. X_21 := 2
  70. C_21 := 0x005EFF
  71. Y_22 := 10
  72. X_22 := 20
  73. C_22 := 0xFFFFFF
  74. Y_23 := 10
  75. X_23 := 34
  76. C_23 := 0xC0D7FF
  77. Y_24 := 10
  78. X_24 := 35
  79. C_24 := 0x1E71FF
  80. Y_25 := 10
  81. X_25 := 36
  82. C_25 := 0x005EFF
  83. Y_26 := 10
  84. X_26 := 50
  85. C_26 := 0x136AFF
  86. Y_27 := 15
  87. X_27 := 0
  88. C_27 := 0xFAFAFA
  89. Y_28 := 15
  90. X_28 := 1
  91. C_28 := 0x4586FE
  92. Y_29 := 15
  93. X_29 := 2
  94. C_29 := 0x0059FF
  95. Y_30 := 15
  96. X_30 := 20
  97. C_30 := 0xFFFFFF
  98. Y_31 := 15
  99. X_31 := 30
  100. C_31 := 0xFDFEFF
  101. Y_32 := 15
  102. X_32 := 31
  103. C_32 := 0x8FB6FF
  104. Y_33 := 15
  105. X_33 := 32
  106. C_33 := 0x0B60FF
  107. Y_34 := 15
  108. X_34 := 33
  109. C_34 := 0x0059FF
  110. Y_35 := 15
  111. X_35 := 50
  112. C_35 := 0x4485FE
  113. Y_36 := 20
  114. X_36 := 0
  115. C_36 := 0xFAFAFA
  116. Y_37 := 20
  117. X_37 := 2
  118. C_37 := 0x81AAFC
  119. Y_38 := 20
  120. X_38 := 3
  121. C_38 := 0x0054FF
  122. Y_39 := 20
  123. X_39 := 20
  124. C_39 := 0xFFFFFF
  125. Y_40 := 20
  126. X_40 := 23
  127. C_40 := 0xBAD1FF
  128. Y_41 := 20
  129. X_41 := 24
  130. C_41 := 0x226BFF
  131. Y_42 := 20
  132. X_42 := 25
  133. C_42 := 0x0054FF
  134. Y_43 := 20
  135. X_43 := 49
  136. C_43 := 0x7AA5FD
  137. Y_44 := 20
  138. X_44 := 50
  139. C_44 := 0xFAFAFA
  140. y_start := 0
  141. loop, %A_ScreenHeight% {
  142.     PixelSearch, xs, ys, 0, y_start, A_ScreenWidth, A_ScreenHeight, 0x0168FF, 0, Fast
  143.     xs -= 4
  144.     FoundBtn := TRUE
  145.     loop, 44{
  146.         X := xs + X_%A_INDEX%
  147.         Y := ys + Y_%A_INDEX%
  148.         PixelGetColor, color, %X%, %Y%,
  149.         if (color != C_%A_INDEX%) {
  150.             FoundBtn := FALSE
  151.             Break
  152.         }
  153.     }
  154.     if (FoundBtn) {
  155.         MouseClick, left, xs + 52 / 2,  ys + 23 / 2
  156.         ExitApp
  157.     }
  158.     y_start += 1
  159. }
  160. ExitApp
复制代码
色指纹获取代码
  1. #a::
  2. WinActivate, ahk_exe mspaint.exe,
  3. i := 0
  4. loop, 5 {
  5.     yoffs := (A_INDEX - 1) * 5
  6.     last_color := -1
  7.     loop, 51 {
  8.         xoffs := A_INDEX - 1
  9.         X := 13 + xoffs
  10.         Y := 87 + yoffs
  11.         PixelGetColor, color, %X%, %Y%, Alt
  12.         if (color != last_color) {
  13.             last_color := color
  14.             i += 1
  15.             FileAppend, Y_%i% := %yoffs%`n, TestLog.txt
  16.             FileAppend, X_%i% := %xoffs%`n, TestLog.txt
  17.             FileAppend, C_%i% := %color%`n, TestLog.txt
  18.         }
  19.     }
  20. }
  21. return
复制代码
2

评分人数

TOP

本帖最后由 erjnasrtnws 于 2016-1-6 16:45 编辑

自己东拼西凑了些

无法播放  但是有效果了  可以实现点击效果 不知道为何点击到跳转网页上 !!!

求大侠指导
  1. Set ie=WScript.CreateObject("InternetExplorer.Application")
  2. ie.visible=true
  3. ie.navigate "http://www.ximalaya.com/1162654/album/233577"
  4. Do
  5. Wscript.Sleep 200
  6. Loop Until ie.ReadyState=4
  7. Set divTag = ie.document.getElementsByTagName("div")
  8. For Each d In divTag
  9.           If d.className = "miniPlayer3" Then
  10.        d.getElementsByTagName("a")(1).Click
  11.        Exit For
  12.    End If
  13. Next
复制代码
这个网页可以自动播放了 花了2个小时逐个试的 呵呵
  1. Set ie=WScript.CreateObject("InternetExplorer.Application")
  2. ie.visible=true
  3. ie.navigate "http://www.ximalaya.com/tag/%E8%B4%A2%E7%BB%8F%E9%83%8E%E7%9C%BC/"
  4. Do
  5. Wscript.Sleep 200
  6. Loop Until ie.ReadyState=4
  7. Set divTag = ie.document.getElementsByTagName("div")
  8. For Each d In divTag
  9.           If d.className = "sound_unexpandBox" Then
  10.        d.getElementsByTagName("a")(1).Click
  11.        Exit For
  12.    End If
  13. Next
复制代码
这个打开自动播放
http://www.youtingradio.com/webs ... al_list.html?id=901
这么好的论坛!!!!

TOP

本帖最后由 erjnasrtnws 于 2015-12-31 15:07 编辑

回复 4# aa77dd@163.com


呵呵 十分感谢热心指点!!!!我依照大侠代码自己在仔细试试!!!!
这么好的论坛!!!!

TOP

本帖最后由 aa77dd@163.com 于 2015-12-30 20:17 编辑

js 脚本文件
http://s1.xmcdn.com/js/almond.js?v=20151204182200

用 VBS 定位到此按钮元素, 但 Click 无效
  1. Call test
  2. Sub test()
  3.     Set WshShell = CreateObject("WScript.Shell")
  4.     Set oExec = WshShell.Exec("%ProgramFiles%\Internet Explorer\iexplore.exe about:blank")
  5.     WScript.Sleep 5000
  6.     With Wscript.CreateObject("InternetExplorer.Application")
  7.         .Visible = True
  8.         .Navigate "http://www.ximalaya.com/#/1162654/album/233577"
  9.         Do While .Busy Or .readyState <> 4
  10.             WScript.Sleep 50
  11.         Loop
  12.         Set oDIVS = .Document.getElementsByTagName("DIV")
  13.         For Each e In oDIVS
  14.             If e.className = "detailContent_playcount" Then
  15.                 Set oAs = E.getElementsByTagName("A")
  16.                 For Each elm In oAs
  17.                     If elm.className = "playBtn" Then
  18.                         elm.Click
  19.                         degree = 0
  20.                         for i = 1 to 30000
  21.                             degree = (degree + 1) Mod 360
  22.                             elm.style.transform="rotateY(" & degree & "deg)"
  23.                         next
  24.                         REM oExec.Terminate
  25.                         EXIT Sub
  26.                         Exit For
  27.                     End If
  28.                 Next
  29.                 Exit For
  30.             End If
  31.         Next
  32.     End With
  33. End Sub
复制代码

TOP

本帖最后由 erjnasrtnws 于 2015-12-30 17:04 编辑

求高手关注!!!!
http://zhidao.baidu.com/link?url ... qpx6-gVwSRO2Dda7j_a
http://www.mzvfp.com/simple/?t80516.html  网上找的供参考
这么好的论坛!!!!

TOP

本帖最后由 erjnasrtnws 于 2015-12-30 16:34 编辑

做为一名论坛新人,不敢在坛里大声说话,也不敢得罪人,只能默默地顶完贴然后转身就走人。动作要快,姿势要帅,深藏功与名。
这么好的论坛!!!!

TOP

返回列表