直接上干货
Private Function POST(ByVal URL$, ByVal data$) Dim http On Error Resume Next http = CreateObject("WinHttp.WinHttpRequest.5.1") With http .Open("POST", URL, True) .setRequestHeader("Accept-Language", "zh-CN") .setRequestHeader("Cache-Control", "no-cache") .setRequestHeader("User-Agent", "Mozilla/4.0") .setRequestHeader("Connection", "Keep-Alive") .setRequestHeader("Content-Length", data.Length) .setRequestHeader("Content-Type", "application/x-www-form-urlencoded") .Send(data) .WaitForResponse() POST = .getallresponseheaders Dim request = http.responseText End With http = Nothing End Function
- 感谢你的阅读。如果你觉得这篇文章对你有帮助或者有启发，就请推荐一下吧～你的精神支持是博主强大的写作动力。欢迎转载！
- 博主的文章没有高度、深度和广度，只是凑字数。由于博主的水平不高（其实是个菜B），不足和错误之处在所难免，希望大家能够批评指出。
- 欢迎加入.NET 从入门到精通技术讨论群→523490820 期待你的加入
- 不舍得打乱，就永远学不会复原。被人嘲笑的梦想，才更有实现的价值。
- 我的博客：http://www.cnblogs.com/zhangxiaoyong/
