HTTPにてデータのやり取りを行う

    Dim Http
    Dim buf As String
    Dim targetURI As String
    

'POSTサンプル
    targetURI = "http://sample.com/piyo.cgi"
    
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "POST", targetURI, False
    Http.send "piyo=hoge&hoge=piyo"
    buf = StrConv(Http.ResponseBody, vbUnicode)
    Set Http = Nothing

'GETサンプル
    targetURI = "http://sample.com/piyo.cgi?id=" & text_id & "&pw=" & text_pw
    
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", targetURI, False
    Http.send
    buf = StrConv(Http.ResponseBody, vbUnicode)
    Set Http = Nothing