Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(param)
' リクエストの作成 Dim req As HttpWebRequest _ = CType(WebRequest.Create(url), HttpWebRequest) req.Method = "POST" req.ContentType = "application/x-www-form-urlencoded" req.ContentLength = data.Length req.CookieContainer = cc req.Timeout = 10000
'サーバ証明書を信用する ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf OnRemoteCertifi cateValidationCallback)
' ポスト・データの書き込み Dim reqStream As Stream = req.GetRequestStream() reqStream.Write(data, 0, data.Length) reqStream.Close()
Dim res As WebResponse = req.GetResponse()
'受信したCookieのコレクションを取得する Dim cookies As CookieCollection = req.CookieContainer.GetCookies (req.RequestUri)
Dim ix As Integer Dim result As String = ""
'クッキー名"yyyyyyyyy"を取得 For ix = 0 To cookies.Count - 1 If cookies.Item(ix).Name = "yyyyyyyyy" Then '"id"の切り出し Dim values As String() = cookies.Item(ix).Value.Split ("&")
For Each str As String In values If str.IndexOf("id=") >= 0 Then Dim id As String = str.Substring(Len ("id=")) result = id Exit For End If Next End If Console.WriteLine(cookies.Item(ix).Name & " = " & cookies. Item(ix).Value) Next