Sub nsmc_jiaowuxitong_login()
Dim http As HttpJob
http.Initialize("http", Me)
http.Download(url)
http.GetRequest.SetHeader("Connection", "keep-alive")
http.GetRequest.SetHeader("Cache-Control", "max-age=0")
http.GetRequest.SetHeader("sec-ch-ua", """Not.A/Brand"";v=\""8\"", \""Chromium\""v=\""114\"", \""Google Chrome\""v=\""114\""")
http.GetRequest.SetHeader("sec-ch-ua-mobile", "?0")
http.GetRequest.SetHeader("sec-ch-ua-platform", """Windows""")
http.GetRequest.SetHeader("Upgrade-Insecure-Requests", "1")
http.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
http.GetRequest.SetHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7")
http.GetRequest.SetHeader("Sec-Fetch-Site", "same-origin")
http.GetRequest.SetHeader("Sec-Fetch-Mode", "navigate")
http.GetRequest.SetHeader("Sec-Fetch-User", "?1")
http.GetRequest.SetHeader("Sec-Fetch-Dest", "document")
http.GetRequest.SetHeader("Referer", url2)
http.GetRequest.SetHeader("Accept-Encoding", "gzip, deflate, br")
http.GetRequest.SetHeader("Accept-Language", "zh-CN,zh;q=0.9")