之前写了一个,后来弄丢了!于是又写了一个,刚才又完善了下。
工具/原料
火狐、按键精灵
最终版
1、演示:
2、/*设置标记*/Rem A/*按键,当按键是A时(火狐在链接上的右键,复制链接地址的快捷键就是A犬匮渝扮),触发之下脚本,否嬴猹缥犴则返回标记等待下一次输入*/key = WaitKey()If key = 65 Then /*保存当前鼠标所在位置*/SaveMousePos/*获取窗口左上坐标*/Hwnd = Plugin.Window.Find(0,"欢迎使用百度网盘")/*获取窗口左上坐标*/Rect = Plugin.Window.GetWindowRect(Hwnd)MyArray = Split(Rect, "|")x = Clng(MyArray(0))y = Clng(MyArray(1))/*点击离线下载*/x1 = x + 522y1 = y + 118MoveTo x1, y1LeftClick 1/*点击链接栏*/x1 = x + 399y1 = y + 289MoveTo x1, y1LeftClick 1/*粘贴链接*/KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 100/*开始下载*/x1 = x + 650y1 = y + 440MoveTo x1, y1LeftClick 1Delay 300/*确认下载*/x1 = x + 565y1 = y + 545MoveTo x1, y1LeftClick 1/*等待*/Delay 2000/*关闭离线下载任务列表*/x1 = x + 711y1 = y + 141MoveTo x1, y1LeftClick 1Delay 100RestoreMousePos RightClick 1KeyDown 17, 1KeyPress 34, 1KeyUp 17, 1Delay 500RightClick 1Else Goto AEnd IfGoto A
3、其实做成判断剪切板内容更合理,但是万一...试了下,可能会弄巧成拙clb1 = Plugin.Sys.GetCLB()key = WaitKey()clb2 = Plugin.Sys.GetCLB()If clb1 <> clb2 Then
之前版本
1、/*保存当前鼠标所在位置*/SaveMousePos/*获取窗口左上坐标*/Hwnd = Plugin.Wind泠贾高框ow.Find(0,"欢迎使用百度网盘")/*获取窗口左上坐标*/Rect = Plugin.Window.GetWindowRect(Hwnd)MyArray = Split(Rect, "|")x = Clng(MyArray(0))y = Clng(MyArray(1))/*点击离线下载*/x1 = x + 522y1 = y + 118MoveTo x1, y1LeftClick 1/*点击链接栏*/x1 = x + 399y1 = y + 289MoveTo x1, y1LeftClick 1/*粘贴链接*/KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 100/*开始下载*/x1 = x + 650y1 = y + 440MoveTo x1, y1LeftClick 1Delay 300/*确认下载*/x1 = x + 565y1 = y + 545MoveTo x1, y1LeftClick 1/*等待确认完成并出现任务列表*/Delay 2000/*关闭离线下载任务列表*/x1 = x + 711y1 = y + 141MoveTo x1, y1LeftClick 1Delay 100/*恢复上次保存的鼠标位置*/RestoreMousePos RightClick 1/*火狐下一页*/KeyDown 17, 1KeyPress 34, 1KeyUp 17, 1/*这里要等待较长时间再右键,不然复制的是上页内容*/Delay 500RightClick 1/*保存当前鼠标所在位置*/SaveMousePos/*获取窗口左上坐标*/Hwnd = Plugin.Window.Find(0,"欢迎使用百度网盘")/*获取窗口左上坐标*/Rect = Plugin.Window.GetWindowRect(Hwnd)MyArray = Split(Rect, "|")x = Clng(MyArray(0))y = Clng(MyArray(1))/*点击离线下载*/x1 = x + 522y1 = y + 118MoveTo x1, y1LeftClick 1/*点击链接栏*/x1 = x + 399y1 = y + 289MoveTo x1, y1LeftClick 1/*粘贴链接*/KeyDown 17, 1KeyPress 86, 1KeyUp 17, 1Delay 100/*开始下载*/x1 = x + 650y1 = y + 440MoveTo x1, y1LeftClick 1Delay 300/*确认下载*/x1 = x + 565y1 = y + 545MoveTo x1, y1LeftClick 1/*等待*/Delay 2000/*关闭离线下载任务列表*/x1 = x + 711y1 = y + 141MoveTo x1, y1LeftClick 1Delay 100/*恢复上次保存的鼠标位置*/RestoreMousePos RightClick 1KeyDown 17, 1KeyPress 34, 1KeyUp 17, 1Delay 500RightClick 1
2、其实这是下载某个批量任务,很多页,每页一个链接,如果这个批量是同一规格的话,下一页的链接和上一页位置是一样的。热键设置的是A,因为火狐的右键:复制链接地址的快捷键也是A,所以A即复制了链接地址,也触发了脚本,但是每次完成任务都要关闭脚本,不然的话按到A很麻烦。当然要是有个快捷键可以开启关闭脚本就更方便了!