Selenium Basic から Edge を使用したときの「Webエクスペリエンスのカスタマイズ」を非表示にする

Selenium にて、 EdgeWebDriver を使用して、Edge(chrome)を操作したとき、「Webエクスペリエンスのカスタマイズ」のウインドウが表示される現象が起きた。

【現象の整理】

・通常に(Seleniumではなく手動で)Edgeを起動したときは、初回のみ表示される

・Selenium から起動したときは、毎回表示される

・表示されるページが、意図しないページになることがある。

【問題】

・SendKeys などを使うときに問題となる。

・Selenium にて、Get しても指定したページが開かないことがある。

【調査】

調べてみると以下の情報があった。

・Selenium では、ユーザーのプロファイルは、起動毎に作成・廃棄される。

・Selenium の起動時にユーザープロファイルを指定する方法がある。

通常起動時に、２回目以降表示されないため、ユーザープロファイルが関係していると推理。

Selenium からの起動時にユーザープロファイルを指定することで、ユーザープロファイルが保持されるようになり、「Webエクスペリエンスのカスタマイズ」が表示されなくなるか、検証することとした。


【検証】

ユーザープロファイルを指定して起動。

初回起動時に「Webエクス～」が表示されるため確認。

２回目以降は表示されないことを確認した。


    Dim driver As New Selenium.EdgeDriver

    Dim elmDoc As Selenium.WebElement

    

    driver.AddArgument "--user-data-dir=任意のフォルダ"

    driver.AddArgument "--profile-directory=任意のフォルダ２"

    


    With driver

        .Start

         

        .Get "http://任意のアドレス"

         

    End With


なお、python でも同様に「Webエクスペリエンス～」の表示を回避できることを確認した。

Python の場合、Selenium4で検証。（Selenium3では、add_argumentを使用するために別のパッケージが必要になる）

from selenium import webdriver

from selenium.webdriver.edge.options import Options

from selenium.webdriver.edge.service import Service


EdgeOptions = Options()

EdgeOptions.use_chromium = True

EdgeOptions.add_argument(r'--user-data-dir=任意のフォルダ')

EdgeOptions.add_argument(r"--profile-directory=任意のフォルダ2")

service = Service( executable_path=r'msedgedriver.exe')


driver = webdriver.Edge( service=service , options=EdgeOptions)




コメント

コメントを投稿

このブログの人気の投稿

バーコードフォントを使用してCODE-128のバーコードを作成する

バーコードリーダーを使って入力の手間を省きたいと思う。 Excelで印刷イメージを作成する場合、CODE39のバーコードフォントを使用したり、バーコードのオブジェクトを使用する方法が簡単である。 ただし、CODE39では取り扱える文字が限定されていたり、環境によりExcelのバーコードオブジェクトが使用できない、等の事情がある場合もある。 文字数が多いCODE128を、バーコードフォントを使用してい印刷する場合、いくらか工夫が必要になる。 ・チェック文字の問題：　計算の必要がある。バーコードリーダーの設定が可能であれば、チェック文字を省くことで対応も可能 ・フォントによる文字コードとパターンの対応の違い：　使用するフォントにより文字コードとパターンの対応が異なるため、使用するフォントに従って変換が必要。 チェック文字の計算や、文字コードの対応の違いなど、（コードセットB限定にすれば）Excelの関数(LET＋α）で対応が出来たが、VBAでの計算・変換も試してみた。 使用するフォントは、0～94のコードが、32～126までの文字のパターン、95～105が、195～205の文字のパターン、終端が206の文字のパターンに割り振られていることを想定している。 Option Explicit ' CODE-128 バーコード ' ' GS-1 制限：先頭にFNC1、最大データ容量48文字 ' '入力 ASCII ' 0-127 ' ' EncodeCtrlAsc ' EncodeCtrlCode128 ' EncodeCode128 ' AddCheckSum ' FontCode ' ' 'encode ASCII, Code128 系の文字列＞文字変換 ' FUNC = 195(#95 a127), 196-205,206(#96 - #105,ed) ' $ Code128系特殊コード ' $$ $ ' $96-$106 これが、196-206に変換される ' $[STARTA] $103 2...
続きを読む

[VBScript]WiFiアダプタの無効化と有効化をスクリプトで実行する

OSをWindows10に入れ替えてから、起動直後やスリープからの復帰時に「識別中・・・インターネットアクセスなし」と表示され、インターネットに接続できない現象に遭遇しています。 結構な頻度で発生し、Wifiのネットワークアダプタを一度無効にしてから有効にすると治ります。 面倒な操作ですが、その後は安定するため、Wifiアダプタの買い替えまでには踏み切れません。 別件の調べ物をしていたら、WMIで無効・有効を操作できそうだったので、VBScriptで試してみました。 本題 VBScriptからWifiのネットワークアダプタを再接続（無効化→有効化）する。 ＜使い方＞ ・適当なファイル名(~.vbs）に保存し、ダブルクリックで実行。 ・ネットワークアダプタの名称に合わせて、検索条件（ %Wireless%の箇所）は適宜変更すること。 ・バッチファイルを作成し、起動後にスケジュール実行するようにしても良いかもしれません。無効・有効の設定には、管理者権限が必要なようです。 ポイント ・VBScriptからWMIを利用。Wifiアダプタの検索と設定が、比較的簡単。 ・アダプタの無効と有効の間に、何となくウェイトを入れています。根拠はありません。 Option Explicit Dim obj Set obj = Wscript.CreateObject("Shell.Application") if Wscript.Arguments.Count = 0 then ' 管理者権限でスクリプトを再実行する obj.ShellExecute "wscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1 Wscript.Quit end if 'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClassSet Dim oClass Dim oLocator Dim oService 'ローカルコンピュータに接続する。 Set oLocator = WScript.CreateObject("WbemScripting.S...
続きを読む