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

erjnasrtnws · 发表于 2015-12-30 11:15:46

本帖最后由 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步骤横容易查看网页按钮代码  横强大推荐给给位

erjnasrtnws · 发表于 2015-12-30 14:07:29

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

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

erjnasrtnws · 发表于 2015-12-30 16:01:39

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

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

aa77dd@163.com · 发表于 2015-12-30 17:19:55

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

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

用 VBS 定位到此按钮元素, 但 Click 无效

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

复制代码

erjnasrtnws · 发表于 2015-12-31 07:38:59

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

回复 4# aa77dd@163.com

呵呵十分感谢热心指点！！！！我依照大侠代码自己在仔细试试！！！！

erjnasrtnws · 发表于 2015-12-31 14:52:58

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

自己东拼西凑了些

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

求大侠指导

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

复制代码

这个网页可以自动播放了花了2个小时逐个试的呵呵

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

复制代码

这个打开自动播放
http://www.youtingradio.com/webs ... al_list.html?id=901

aa77dd@163.com · 发表于 2015-12-31 17:23:50

本帖最后由 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)来运行

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

复制代码

erjnasrtnws · 发表于 2016-1-1 09:54:26

回复 7# aa77dd@163.com

厉害！谢谢了

erjnasrtnws · 发表于 2016-1-1 11:36:42

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

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

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

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

2 这个批处理

@echo off
>nul (ping 114.114.114.114|find/i "ttl=")&&CScript c:\1.vbs||call "%~f0"

复制代码

3 这个c:\1.vbs 每隔一段时间自动刷新网页

set ws=wscript.createobject("wscript.shell")
ws.SendKeys "{F4}"
do
wscript.sleep 75000
ws.sendkeys "{f5}"
loop
ws.SendKeys "{ENTER}"

复制代码

pcl_test · 发表于 2016-1-1 12:44:08

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

换成手机端页面

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

复制代码

erjnasrtnws · 发表于 2016-1-2 11:57:14

回复 10# pcl_test

呵呵谢谢斑竹指教!!!!

codegay · 发表于 2016-1-5 09:15:03

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

erjnasrtnws · 发表于 2016-1-6 16:53:38

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

复制代码

请教下此代码是用IE打开网址如何更该为用默认的浏览器(不一定是IE)打开这个网址？？？？求指教

aa77dd@163.com · 发表于 2016-1-6 18:10:52

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

也许你可以看看 WebDriver

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

erjnasrtnws · 发表于 2016-1-7 08:08:32

回复 14# aa77dd@163.com

谢谢高手指点！！！我过去看看估计本人太菜看不懂！！！哈哈

		自动登录	找回密码
密码			注册

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

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

评分

评分

评分

评分

评分