Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'リクエストパラメータのセット Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim url As String = "****"
Dim req As WebRequest = WebRequest.Create(url) req.Method = "POST"
Dim res As WebResponse = req.GetResponse() Dim reader As New XmlTextReader(res.GetResponseStream)