|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Sub test() '参照設定する場合(Microsoft XML, v6.0) Dim xml As XMLHTTP60 Set xml = New XMLHTTP60 '参照設定しない場合 'Set 変数名 = CreateObject("MSXML2.XMLHTTP") url = "https://okamurax.com/" param = "" xml.Open "POST", url, False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.send (param) Do While xml.readyState < 4 DoEvents Loop Debug.Print xml.Status Debug.Print xml.responseText Set xml = Nothing End Sub |