发送 POST 数据

最新推荐文章于 2024-01-12 15:01:16 发布

心想才事成

最新推荐文章于 2024-01-12 15:01:16 发布

阅读量729

点赞数

分类专栏： F# 文章标签： stream string html url c

本文链接：https://blog.csdn.net/hadstj/article/details/7282838

版权

F# 专栏收录该内容

745 篇文章 3 订阅

订阅专栏

发送 POST 数据

let mutable ck = new CookieContainer()

let postHttpCookie (url : string) (postData :string) (cookie : CookieContainer byref)=
    let data = writePOST postData
    let req = WebRequest.Create( url, Timeout=100000 ) :?> HttpWebRequest
    if cookie.Count = 0 then
        let c = new CookieContainer()
        cookie <- c
    req.CookieContainer <- cookie
    req.Method <- "POST"
    req.ContentType <- "application/x-www-form-urlencoded"
    req.AllowAutoRedirect <- true
    req.KeepAlive <- true
    let ss = req.GetRequestStream()
    ss.Write(data,0,data.Length)
    ss.Close()
    let resp = req.GetResponse()
    try
        let stream = resp.GetResponseStream()
        let reader = new StreamReader(stream)
        let html = reader.ReadToEnd()
        html
    finally
        resp.Close()