请问，能提取如下网址的内容吗？

lhj323323

老师


我想提取如下网址的内容
http://page.tdx.com.cn:7615/site ... olor=##tdxbkcolor##



求助.rar (36.53 KB, 下载次数: 0)

2024-1-30 19:19 上传

点击文件名下载附件

在本论坛的某个贴子里，偶然发现这两个自定义函数里，竟然包含了这个网址。

就是不知道怎么把它搞出输出来

1. Private Function GetstrSource1(sCode As String) As String '第一个自定义函数【GetstrSource1】
   
2.     Dim url As String
   
3.     url = "http://page.tdx.com.cn:7615/TQLEX?Entry=CWServ.cfg_fx_yzlhb"
   
4.     Dim strSend As String
   
5.     strSend = "{""Params"":["
   
6.     strSend = strSend & """yybxq"","
   
7.     strSend = strSend & """""," & """"","
   
8.     strSend = strSend & """" & sCode & ""","
   
9.     strSend = strSend & """""," & "0,20]}"
   
10.     '{"Params":["yybxq","","","001319","",0,20]}
    
11. 
    
12.     With CreateObject("MSXML2.XMLHTTP")
    
13.         .Open "POST", url, False
    
14.         .send CStr(strSend)
    
15.         GetstrSource1 = StrConv(.Responsetext, vbNarrow)
    
16.     End With
    
17.    
    
18.     Open ThisWorkbook.Path & "" & sCode & ".txt" For Output As #1
    
19.     Print #1, GetstrSource1: Close #1   '关闭文件
    
20.   
    
21. End Function
    
22. 
    
23. Private Function NewStock(strStock As String) As String '第二个自定义函数【NewStock】
    
24.     Select Case left(strStock, 2)
    
25.         Case "60", "68", "11"
    
26.             NewStock = "sh" & Replace(strStock, Chr(34), "")
    
27.         Case "00", "30", "12"
    
28.             NewStock = "sz" & Replace(strStock, Chr(34), "")
    
29.         Case Else
    
30.             NewStock = "bj" & Replace(strStock, Chr(34), "")
    
31.     End Select
    
32. End Function

复制代码

perfect131

用抓包工具 或 f12 分析出来的

试试 自动化 IE直接复制法
https://club.excelhome.net/thread-1628424-1-1.html

lhj323323

perfect131 发表于 2024-1-31 14:56
用抓包工具 或 f12 分析出来的

试试 自动化 IE直接复制法

谢谢老师！