把脚本宿主固定在任务栏后就可以随时启动了

只需要复制标准的分享格式就能一键到下载页面

代码如下：
Option Explicit
Const ProTitle = "密码输入脚本"
Dim Text,URL,Key
Text = Split(Replace(InputBox("请粘贴分享地址和密码",ProTitle)," ",""),":")
URL = Replace(Replace(Text(2),"密码",""),"//","")
Key = Text(3)
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
OpenIE(URL)
Wscript.Sleep 500
Dim objIE
Set objIE = IE.Document
dim i
For i=0 to objIE.all.length-1
If objIE.all(i).localname = "input" Then
*msgbox "found"
objIE.all(i).value = Key
Exit For
End If
Next
*objIE.all.accessCode.textContent = Key
Wscript.Sleep 500
objIE.all.submitBtn.click
If MsgBox("是否下载？",4+32+256,"提示") = 6 Then objIE.all.downFileButton.click
If MsgBox("是否存至网盘？",4+32+256,"提示") = 6 Then objIE.all.emphasizeButton.click
Function OpenIE(dz) *启动IE程序
IE.Navigate dz
Wscript.Sleep 500
IE.MenuBar = 0 *不显示菜单栏
IE.ToolBar = 0 *不显示工具栏
IE.StatusBar = 0 *不显示状态栏
IE.Width = 1080
IE.Height = 700
IE.Visible = 1 *前台执行
End Function
保存后后缀改为vbs，调用ie，所以你必须在ie登陆过才能使用保存
程序完全安全，可自行测试
注：理论上vbs可运行于任何win系统上，但不排除第三方浏览器导致的意外