[问题求助] [已解决]VBS如何利用正则表达式获取网页源代码中的内容输出到txt

WindCat

因为会不定期改动
所以我想做一个读取网页的中的地址然后修改系统pac的小工具
结合计划任务达到定期自动修改的目的
代码是从网上搜来改的

url="https://freepac.co/"
Set html = CreateObject("microsoft.xmlhttp")
html.open "GET",url,False
html.send
s=html.responseText
'MsgBox s

Set re=New RegExp
re.Global=True
re.Pattern="free.upac.pro/([0-9,a-z]*)"
re.IgnoreCase=True
Set matchs=re.Execute (s)
output=""
For Each m In matchs
    output=output & m.Submatches(0) & vbCrLf
Next
MsgBox output
复制代码

现在我遇到了一个蠢问题...
虽然知道输出是SaveToFile
但是不知如何修改才能让它输出Pattern的值到1.txt
然后用bat命令读取1.txt的值修改注册表以应用

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v AutoConfigURL /d "https://free.upac.pro/%%a" /f
复制代码