Excel vba 登录网站

Question

我正在尝试登录该网站：https://cube.tradejini.com/#/并检索 cookie 信息。

下面是我的html代码..但它无法验证凭据，请任何人指导..因为我是VBA新手。

另请注意，网页需要 3 个字段进行验证。用户名、密码和问题。

url =“https://cube.tradejini.com/#/”

With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "POST", url, False
    .setRequestHeader "REFERER", url
    .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
    .setRequestHeader "content-type", "application/json"
    .setRequestHeader "Accept", "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
    .setRequestHeader "Accept-Language", "en-us,en;q=0.5"
    .setRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
    .SetCredentials "TSUser1", "Password", "1989"
    .send        
strCookie = .GetAllResponseHeaders

End With

Answer 1

您将无法在该网站上使用 SetCredentials()，因为登录使用 POST 的表单正文以以下格式提交您的登录凭据：

"jData=

{
    "uid":"TESTUSER1",
    "pwd":"580c16cbb8092433538a5155ad8852974a1f44fe38bf9cc975cbe86a35639d18",
    "factor2":"1985",
    "apkversion":"20220318",
    "imei":"da30a574e60f7a54e4beecfb9ea701d9",
    "vc":"NOREN_WEB",
    "appkey":"87b39b109b81a7b3a0173370043304a9ebfc8af19593d9acc9b5fdef7669bdc9",
    "source":"WEB",
    "addldivinf":"Chromium Edge-105.0.1343.33"
}"

其中 uid = 用户名，pwd = 密码，factor2 = 出生日期。 请注意，密码在提交时经过哈希处理，但未加盐，因此相同的密码 == 相同的哈希值。 在浏览器中按 F12 -> 填写您的登录信息 -> 在开发工具 > 网络选项卡中单击 QuickAuth 并选择有效负载选项卡以查看密码的哈希值。 Here 是一篇文章，介绍如何使用 VBA 在 POST 表单正文中发送 JSON 对象，您可以按照该 VBA 来格式化代码。 另外，请注意 - SetCredentials() 中的第三个参数用于表示请求是发送到代理还是直接发送到服务器的标志。 您将无法将其用于您的出生日期。

Answer 2

श्रेध्देयनेतेबहुजनांचेनेतेअॅडबाळासाहेबआंबे डकर साहेब वरेखाताईठाकूर वंचीत बहुजन आघाडी महाराष्ट्र प्रदेश अध्यक्ष साहेब मी मुखेड तालुका भारिप बहुजन महासंघ माजी तालुका अध्यक्ष आतारिपब्लिकनसेनातालुकाअध्यक्षमुखेडआहे मी वंचीत बहुजन आघाडी कडून विधानसभा निवडणूक लढवि ण्यासइच्छुकआहे मी रिपब्लिकन सेनेचे वतीने २०१४ मध्ये विधानसभा नि वडणूकलढविलीआहे मी आंबेडकर चळवळीत व आंबेडकर घराण्याशी गेली तेविस व व पासून काम करत आहे मीअनेकआंदोलनं。 मोर्चा.उपोषण。 करुन जनतेला न्याय मिळवून देण्यासाठी प्रयत्न केला आहे मी ईच्छूक आहे आपला श्रावण नरबागे मंडलापूरकररिपब्लिकन सेना तालुका अध यक्ष मुखेड जिल्हा नांदेड