https通信で不正な証明書のエラーを回避するには？ (ID:89768)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 本来なら通信可能ということでしょうか？ どうにか、「警告の出る証明書」を持つページを見つけたので、 実験用のコードを書いてみました。下記のコードは動作しますか? Option Explicit Private Const URL As String = "https://www.kaz-ishihara.com/frend/miyaoka.shtml" Private Sub Form_Load() Check1.Caption = "証明書を無視" Check1.Value = vbUnchecked End Sub Private Sub Command1_Click() Dim X As MSXML2.ServerXMLHTTP30 Set X = New MSXML2.ServerXMLHTTP30 If Check1.Value = vbChecked Then X.setOption _ SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, _ SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS End If X.open "GET", URL, False On Error Resume Next X.send If Err.Number = 0 Then MsgBox X.responseText(), vbInformation Else MsgBox Err.Description, vbExclamation End If Set X = Nothing End Sub