VB2019を使用しています。
現在VBからInternetExplorerを直接起動させてグラフを表示させています。
6月15日にIEが廃止になりますが、VBからIEを直接起動させることはもうできなくなるのでしょうか。
VB2019ここに言語を入力
1 2 Private ie As SHDocVw.InternetExplorer = Nothing 3 Dim _TAIHI As New TAIHI ’パラメータをセットする。 4 Dim StrURL As String = String.Empty 5 Dim headers As String = "Content-Type:application/x-www-form-urlencoded" 6 Dim PostData As New System.Text.StringBuilder 'POSTするデータ 7 Dim uniEnc() As Byte 8 Dim kikan As String = String.Empty 9 Dim _FTAIHI As New F_TAIHI 10 Dim vPost As Object 11 Dim vHeaders As Object 12 13 ie = New SHDocVw.InternetExplorerClass 14 15 '//POSTするURL 16 StrURL = "http://172.16.160.211/SyainData/tokeigraph/TaihiKaController.php" 17 18 '//POSTデータの作成 19 PostData.Append("strsql=" + System.Web.HttpUtility.UrlEncode(_TAIHI.SQL) + "") 20 PostData.Append("&title=" + System.Web.HttpUtility.UrlEncode(Title) + "") 21 PostData.Append("&kikan=" + System.Web.HttpUtility.UrlEncode(kikan) + "") 22 PostData.Append("&kakari=" + System.Web.HttpUtility.UrlEncode(_TAIHI.KAKARI) + "") 23 PostData.Append("&graphkind=" + System.Web.HttpUtility.UrlEncode(Share.Graphsyurui.ToString) + "") 24 PostData.Append("&nendo=" + System.Web.HttpUtility.UrlEncode(_TAIHI.HONNENDO.ToString)) 25 26 uniEnc = New System.Text.ASCIIEncoding().GetBytes(PostData.ToString) 27 28 '/*ブラウザを直接起動時にPOST*/ 29 vPost = New System.Text.ASCIIEncoding().GetBytes(PostData.ToString) 30 vHeaders = "Content-Type:application/x-www-form-urlencoded" + Chr(10) + Chr(13) 31 ie.Visible = True 32 ie.Navigate(StrURL, , , vPost, vHeaders)
パラメータをIE起動時にpostして、あとはphpに処理を任せてグラフを表示させていますが、
このやり方では、6月15日以降IEは起動しなくなりますか。
よろしくお願いします。
あなたの回答
tips
プレビュー