网站POST数据 搜索内容的一个方法
Http = CreateObject("MSXML2.XMLHttp")Http.Open("Post","https://www.,.F.)
Http.setRequestHeader("Host"," www.)
Http.setRequestHeader("Connection"," keep-alive")
Http.setRequestHeader("Content-Length"," 11")
Http.setRequestHeader("Cache-Control"," max-age=0")
Http.setRequestHeader("Upgrade-Insecure-Requests"," 1")
Http.setRequestHeader("Origin"," https://www.)
Http.setRequestHeader("User-Agent"," Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36")
Http.setRequestHeader("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.9")
Http.setRequestHeader("Sec-Fetch-Site"," same-origin")
Http.setRequestHeader("Sec-Fetch-Mode"," navigate")
Http.setRequestHeader("Sec-Fetch-User"," ?1")
Http.setRequestHeader("Sec-Fetch-Dest"," document")
Http.setRequestHeader("Referer"," https://www.)
Http.setRequestHeader("Accept-Encoding"," gzip, deflate, br")
Http.setRequestHeader("Accept-Language"," zh-CN,zh;q=0.9")
Http.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
postdata="searchkey=88" &&替换要搜索的内容
Http.send(postdata)
_CLIPTEXT=Http.ResponseText
有没有更简单的办法？
