WebView2コントロールでの操作

							Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load

								InitializeAsync()
				
							End Sub
							
							Private Async Sub InitializeAsync()
				
								Await WebView2.EnsureCoreWebView2Async(Nothing)
				
							End Sub
						

							public Form1()
							{
								InitializeComponent();
								InitializeAsync();
							}
				
							async void InitializeAsync()
							{
								await webView.EnsureCoreWebView2Async(null);
							}
						

							Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

								'Yahooの検索欄に文字を設定する
								Await WebView2.ExecuteScriptAsync($"document.getElementsByName('p')[0].value = 'プログラムでネットサーフィン！';")
						
								'検索欄の文字列を取得する
								Dim result = Await WebView2.ExecuteScriptAsync("document.getElementsByName('p')[0].value")
								MessageBox.Show(result)
						
								'submitして検索を実行
								Await WebView2.ExecuteScriptAsync($"document.forms['sf1'].submit();")
						
							End Sub
						

							async private void button1_Click(object sender, EventArgs e)
							{
								//Yahooの検索欄に文字を設定する
								await webView2.ExecuteScriptAsync($"document.getElementsByName('p')[0].value = 'プログラムでネットサーフィン！';");
					
								//検索欄の文字列を取得する
								var result = await webView2.ExecuteScriptAsync("document.getElementsByName('p')[0].value");
								MessageBox.Show(result);
					
								//submitして検索を実行
								await webView2.ExecuteScriptAsync($"document.forms['sf1'].submit();");
							}
						

						Imports Microsoft.Web.WebView2.Core

						Public Class Form1

							Private ReadOnly condition As New System.Threading.CountdownEvent(1)

							Private Sub FormWebView2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
								InitializeAsync()
							End Sub
						
							Async Sub InitializeAsync()
								Await WebView2.EnsureCoreWebView2Async(Nothing)
							End Sub

							Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
						
								Dim result As String = ""
								'サイトの表示を開始
								WebView2.CoreWebView2.Navigate("https://web.biz-prog.net/")						

								'非同期実行
								Await Task.Run(
									Sub()
										'読み込み完了まで待機
										If condition.Wait(5000) Then
											result = "ok"
										Else
											result = "timeout"
										End If
									End Sub
								)
						
								MsgBox(result)
						
							End Sub
						
							Private Sub WebView2_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles WebView2.NavigationCompleted
						
								'読み込み結果を判定
								If e.IsSuccess Then
									Console.WriteLine("complete")
								Else
									Console.WriteLine(e.WebErrorStatus)
								End If
						
								'シグナル初期化
								condition.Signal()
								System.Threading.Thread.Sleep(1)
								condition.Reset()
						
							End Sub
					
						End Class
					

						public partial class Form1 : Form
						{
							private void Form1_Load(object sender, EventArgs e)
							{
								InitializeAsync();
							}
					
							async void InitializeAsync()
							{
								await webView2.EnsureCoreWebView2Async(null);
								webView2.CoreWebView2.NavigationCompleted += webView2_NavigationCompleted;
							}

							private async void button1_Click(object sender, EventArgs e)
							{
								string result = "";
								
								//サイトの表示を開始
								webView2.CoreWebView2.Navigate("https://web.biz-prog.net/");
					
								//非同期実行
								await Task.Run(() =>
								{
									//読み込み完了まで待機
									if (condition.Wait(5000))
										result = "ok";
									else
										result = "timeout";
								});
					
								MessageBox.Show(result);
							}
					
							private void webView2_NavigationCompleted(object sender, CoreWebView2NavigationCompletedEventArgs e)
							{
								//読み込み結果を判定
								if (e.IsSuccess)
									Console.WriteLine("complete");
								else
									Console.WriteLine(e.WebErrorStatus);
					
								//シグナル初期化
								condition.Signal();
								System.Threading.Thread.Sleep(1);
								condition.Reset();
							}
						}