WebBrowserの代わりにWebViewを使う

古い情報が多く苦労した。

Microsoft.Toolkit.Win32.UI.ControlsやMicrosoft.Web.WebView2を使うという情報があったが全て間違い。

NuGetから導入できる「Microsoft.Toolkit.Forms.UI.Controls.WebView」という
パッケージを使う。

「Microsoft.Toolkit.Forms.UI.Controls.WebView」で検索

ツールボックスで右クリックをして「アイテムの選択」をクリックして、
「Microsoft.Toolkit.Forms.UI.Controls.WebView.dll」を追加

C:\Users\noby\.nuget\packages\microsoft.toolkit.forms.ui.controls.webview\6.1.0\lib\net462

に入っている。

Sub ボタン4_Click()



'定義
Dim headStr As String
Dim postData
Dim Stream

'値セット
headStr = "Content-Type: application/x-www-form-urlencoded " & vbCrLf

'Stremの生成
Set Stream = CreateObject("ADODB.Stream")
Stream.Open
Stream.Charset = "Shift_JIS"  '文字コード
Stream.WriteText "param1=" & url_enc(Sheet1.Cells(1, 1).Value)     'POST値をGET形式で指定する
Stream.Position = 0
Stream.Type = 1
postData = Stream.Read
Stream.Close

'POST実行
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True  'IEを表示させたくない場合はFalseを指定する
objIE.Navigate "https://prg.waou.biz/test.php", , , postData, headStr



End Sub


Function url_enc(strWord As String)
Dim sc As Object
Dim js As Object

Set sc = CreateObject("ScriptControl")
sc.Language = "Jscript"
Set js = sc.CodeObject
url_enc = js.encodeURIComponent(strWord)

End Function

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください