这就帮你把这段用来获取URL跳转直链的VBS脚本整理成清晰的Markdown格式：

脚本作用 #

• 提取URL响应头中的Location字段，也就是跳转后的真实直链
• 自带输入框让用户粘贴目标URL，最终用弹窗展示获取到的直链结果

完整代码片段 #

Option Explicit
Const Title = "Get Header Location"
Const WHR_EnableRedirects = 6
Dim URL,Result
URL = "https://downloads.malwarebytes.com/file/mb3/"
Result = InputBox("Copy and Paste your link here to get the response header",Title,URL)
MsgBox GetHeaderLocation(Result),vbInformation,Title
'----------------------------------------------------------------------

小提示：当前代码片段仅调用了GetHeaderLocation函数，你需要补充这个函数的具体实现逻辑，脚本才能完整运行哦～

内容的提问来源于stack exchange，提问作者Hackoo