好友
阅读权限35
听众
最后登录1970-1-1
|
本人也是纯小白，不懂写代码与E文，主要重在学习
使用AutoHotKey 如不会使用 请去多学习 很简单
.ahk文件可以直接运行，压制成.exe程序也可运行
思路:
打开视频播放页面(网址)
左键点击浏览器的空白处(指定坐标)，使浏览器处于当前活动窗口
运行央视视频下载器.exe
利用浏览器的快捷键 Alt+Space+X 最大化浏览器窗口
Alt+D 直接进入地址栏
Ctrl+C 复制网址
Alt+Space+R 还原浏览器窗口
左键点击浏览器的空白处(指定坐标)，使浏览器处于当前活动窗口
代码中添加了个 左键拖选复制 功能
非常实用 这个代码是网上搜寻的 感谢代码原作者！！！
将运行央视视频下载器.exe改名为ysspxzq.exe
将以下代码保存为后缀名.ahk文件
央视视频下载器.ahk
由于每个人的电脑屏幕不一样大小
请修改x与y处的坐标为自己浏览器的空白处(指定坐标)
645, 85 为浏览器的空白处(指定坐标)
640, 370 为央视视频下载器的空白处(指定坐标)
修改这两个(指定坐标)
保存到同一目录下
-----------------此虚拟线为全部代码 全部复制保存为.ahk文件
;功能
;鼠标左键拖选文字选定后自动复制
;将光标移动到浏览器界面中
;按 小键盘数字1 一键下载视频
;将光标移动到剧集序号上
;按 小键盘数字2 一键下载视频
;将光标移动到活动窗口中
;按 小键盘数字3 关闭程序窗口
;按 ↓ 打开 下载目录
;托盘菜单
Menu, tray, add,下载目录(↓),Dfolder,Dfolder ;创建托盘下载目录菜单按钮
Menu, tray, add,帮助(F1),Help,Help ;创建托盘帮助菜单按钮
Menu, tray, add,退出(Esc),Exit,Exit ;创建托盘退出菜单按钮
Menu, tray, add,暂停脚本/激活脚本(F9),suspend,suspend ;创建托盘暂停脚本/激活脚本菜单按钮
Menu, Tray, NoStandard ;删除AutoHotkey自带托盘菜单
Return
;左键拖选复制
;鼠标左键拖选文字选定后自动复制
~LButton::
cos_mousedrag_treshold := 20 ; pixels
MouseGetPos, cos_mousedrag_x, cos_mousedrag_y
win1 := WinActive("A")
KeyWait LButton
MouseGetPos, cos_mousedrag_x2, cos_mousedrag_y2
win2 := WinActive("A")
WinGetClass cos_class, A
if(((abs(cos_mousedrag_x2 - cos_mousedrag_x) > cos_mousedrag_treshold
or abs(cos_mousedrag_y2 - cos_mousedrag_y) > cos_mousedrag_treshold)) and win1 = win2
and cos_class != "ConsoleWindowClass")
{
SendInput ^c ;复制
}
Return ;结束
;浏览器可以最大化(但不要全屏)
;将光标移动到浏览器界面中
;按 小键盘数字1 一键下载视频
Numpad1::
MouseClick, Left, 645, 85 ;在指定坐标x与y处点击鼠标左键 ;光标位于浏览器界面中
Run, ysspxzq.exe ;运行央视视频下载器.exe
;浏览器最大化(但不是全屏)
Send,!{Space}
Send,{X}
Sleep 2000 ;等待2秒
Send,!{d} ;直接进入地址栏
Sleep 500 ;等待500毫秒
Send,^{c} ;复制网址
Sleep 1000 ;等待1秒
;还原浏览器原始窗口
Send,!{Space}
Send,{R}
MouseClick, left, 640, 370 ;在指定坐标x与y处点击鼠标左键
Sleep 2000 ;等待2秒
ClipBoard := ;清空剪切板
Return ;结束
;将光标移动到剧集序号上
;按 小键盘数字2 一键下载视频
Numpad2::
ClipBoard := ;清空剪切板
Run, ysspxzq.exe ;运行央视视频下载器.exe
Sleep 2000 ;等待2秒
MouseClick, Right ;模拟鼠标右键点击
Sleep 400 ;等待400毫秒
Send,{E} ;复制网址链接
Click, 640, 370 ;移动光标到指定坐标并点击左键
Sleep 2000 ;等待2秒
ClipBoard := ;清空剪切板
Return ;结束
;按 小键盘数字3 关闭窗口
Numpad3::
Send {Mbutton} ;模拟发送鼠标中键点击
WinGetActiveTitle, Title ;窗口标题
WinKill, %Title% ;关闭程序窗口
process,close,ysspxzq.exe ; 关闭ysspxzq.exe进程
process,close,FFMPEG.EXE ; 关闭FFMPEG.exe进程
Sleep 2000 ;等待2秒
FileRemoveDir, %A_Temp%\RES, 1 ;删除RES文件夹内所有文件和子目录
FileRemoveDir, %A_Temp%\RES ;删除RES文件夹(空文件夹)
ClipBoard := ;清空剪切板
Return ;结束
;下载目录
Down::
Dfolder:
Run %A_WorkingDir% ;下载目录 ;当前目录
Return ;结束
;帮助
F1::
Help:
MsgBox , , 一键下载视频 , 使用方法:`n1. 鼠标左键拖选文字选定后自动复制`n2. 浏览器可以最大化(但不要全屏)`n 将光标移动到浏览器界面中`n 按小键盘数字1 一键下载视频`n3. 将光标移动到剧集序号上`n 按小键盘数字2 一键下载视频`n4. 将光标移动到活动窗口中`n 按 小键盘数字3，关闭程序窗口`n5. 按 ↓ 打开 下载目录`n`n帮助(F1) 退出(Esc)`n暂停脚本/激活脚本(F9)`n`n如果不点击"确定"按钮!!!`n8秒后此消息框自动退出!!! , 8 ;8秒后消息框自动退出
Return ;结束
;退出
Esc::
Exit:
process,close,ysspxzq.exe ; 关闭ysspxzq.exe进程
process,close,FFMPEG.EXE ; 关闭FFMPEG.exe进程
Sleep 2000 ;等待2秒
FileRemoveDir, %A_Temp%\RES, 1 ;删除RES文件夹内所有文件和子目录
FileRemoveDir, %A_Temp%\RES ;删除RES文件夹(空文件夹)
ClipBoard := ;清空剪切板
ExitApp
;暂停脚本/激活脚本
F9::
suspend:
suspend ;暂停脚本/激活脚本
|
|
[复制链接]
发表于 2022-5-21 23:06
