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

WindCat

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

1. url="https://freepac.co/"
   
2. Set html = CreateObject("microsoft.xmlhttp")
   
3. html.open "GET",url,False
   
4. html.send
   
5. s=html.responseText
   
6. 'MsgBox s
   
7. 
   
8. Set re=New RegExp
   
9. re.Global=True
   
10. re.Pattern="free.upac.pro/([0-9,a-z]*)"
    
11. re.IgnoreCase=True
    
12. Set matchs=re.Execute (s)
    
13. output=""
    
14. For Each m In matchs
    
15.     output=output & m.Submatches(0) & vbCrLf
    
16. Next
    
17. MsgBox output

复制代码

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

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

复制代码

yu2n

1. Option Explicit
   
2. 
   
3. Dim wso, http, url, html, re, matchs, m, s
   
4. Set wso = CreateObject("WScript.Shell")
   
5. Set http = CreateObject("microsoft.xmlhttp")
   
6. 
   
7. '获取url网页内容
   
8. url = "https://freepac.co/"
   
9. http.open "GET", url, False
   
10. http.send
    
11. html = http.responseText
    
12. 
    
13. '提取网页中的字符串
    
14. Set re = New RegExp
    
15. re.Global = True
    
16. re.Pattern = "free.upac.pro/([0-9,a-z]*)"
    
17. re.IgnoreCase = True
    
18. Set matchs = re.Execute(html)
    
19. If matchs.Count > 0 Then
    
20.         s = matchs.Item(0).Submatches(0)        '提取第一个匹配项
    
21.         '写入注册表
    
22.         wso.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", url & s, "REG_SZ"
    
23. End If
    
24. 
    
25. '打开IE代理设定界面
    
26. wso.Run "control inetcpl.cpl,,4", 1, False
    
27. wso.AppActivate "internet"
    
28. WScript.Sleep 500
    
29. wso.Sendkeys "%L"
    

复制代码