求助网页获取数据

leege86

请问我有这个网站   https://www.lijingzy.com/#/index   的登录账号 13952885713   和密码A123456   我想要从这个网站固定模块获取每一个学校的录取专业数据，请问通过EXcel可以获取？
需求格式如附件
网站的固定板块   

excel玉米

用python容易实现

perfect131

excel玉米 发表于 2024-11-30 08:26
用python容易实现

不如vba容易

leege86

perfect131 发表于 2024-11-30 11:59
不如vba容易

请问这个          怎么弄？

perfect131

leege86 发表于 2024-12-1 20:12
请问这个          怎么弄？

写代码呗 vba代码

向東

要使用VBA从需要用户名和密码登录的网页获取内容，你可以利用Internet Explorer对象或者XMLHTTP请求来实现。这里我将展示如何使用XMLHTTP请求结合基本认证（Basic Authentication）的方式来获取内容。请注意，这种方法适用于支持基本认证的网站。如果网站使用的是表单提交的方式进行认证，那么你需要模拟表单提交的过程，这会稍微复杂一些。

以下是一个使用XMLHTTP请求并结合基本认证的示例代码：

Sub GetWebContent()
    Dim http As Object
    Dim url As String
    Dim username As String
    Dim password As String
    Dim authString As String
    Dim responseText As String
   
    ' 设置URL、用户名和密码
    url = "http://example.com/protectedpage"
    username = "your_username"
    password = "your_password"
   
    ' 创建XMLHTTP对象
    Set http = CreateObject("MSXML2.XMLHTTP")
   
    ' 构建基本认证字符串
    authString = "Basic " & EncodeBase64(username & ":" & password)
   
    ' 打开连接
    http.Open "GET", url, False
   
    ' 添加基本认证头
    http.setRequestHeader "Authorization", authString
   
    ' 发送请求
    http.Send
   
    ' 获取响应文本
    responseText = http.responseText
   
    ' 输出响应文本到立即窗口（Immediate Window）
    Debug.Print responseText
   
    ' 清理
    Set http = Nothing
End Sub

Function EncodeBase64(text As String) As String
    Dim xmlDoc As Object
    Dim xmlNode As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    Set xmlNode = xmlDoc.createElement("b64")
    xmlNode.DataType = "bin.base64"
    xmlNode.NodeTypedValue = Stream_StringToBinary(text)
    EncodeBase64 = xmlNode.Text
    Set xmlDoc = Nothing
    Set xmlNode = Nothing
End Function

Function Stream_StringToBinary(Text As String) As Object
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    stream.Type = 1 ' adTypeBinary
    stream.Open
    stream.WriteText Text
    stream.Position = 0
    stream.Type = 1 ' adTypeBinary
    Stream_StringToBinary = stream.Read
    Set stream = Nothing
End Function
注意：

替换url、username和password为你实际需要访问的网站地址以及你的用户名和密码。
这段代码使用了基本认证（Basic Authentication）。如果目标网站不支持这种认证方式，你可能需要模拟浏览器的行为，例如通过POST方法提交表单。
基本认证通常会将用户名和密码以明文形式编码在HTTP请求头中，因此这种方法可能不适合用于敏感信息。
如果网站使用的是HTTPS协议，确保你的系统支持SSL/TLS连接。
如果你需要处理更复杂的登录过程，比如表单提交，那么你可能需要使用Internet Explorer对象来模拟浏览器行为，但这会涉及到更多的步骤和代码。

cai2532

这个问题还没有老师帮忙解决吗？

xjl565135022

1. import requests
   
2. def get_data(url):
   
3.     login_data={
   
4.         'username': '13952885713',
   
5.         'password': 'A123456',
   
6.         'saveLogin': 'true'
   
7.           }
   
8.     login_url='https://ljsxclb.lijingzy.com/login'
   
9.     res = requests.session()  # session对象,保持链接
   
10.     response = res.post(login_url,data=login_data)
    
11.     accesstoken=response.json()['result']
    
12.     headers = {
    
13.         'User-Agent': 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0',
    
14.         'accesstoken': accesstoken
    
15.     }
    
16.     response = res.get(url, headers=headers)
    
17.     print(response.status_code)
    
18.     response.encoding = 'utf-8'
    
19.     for i in response.json()['result']['zyList']:
    
20.         print(i['dnzszymc'],i['jhzsrs'],i['xf'],i['xz'],i['lqzdf'],i['lqzdfwc'])
    
21. url='https://ljsxclb.lijingzy.com/yuanxiaoLqxxJssdt/getYxByCmd?lqnf=2024&course=1&batch=2&yxzsdm=&yxId=965'
    
22. get_data(url)
    

复制代码

用python挺简单

xjl565135022

xjl565135022

简单做了个GUI
需要源码可以留言