Edgeで画面サイズをPC標準のサイズから、モバイルサイズにすることが可能です。
SetCapabilityでmobileEmulationを変更する形です。
画面をモバイルサイズ(mobileEmulation)で起動するサンプルコード
'■ChromeでUserAgentを偽装するサンプルコード Dim driver As New WebDriver Public Sub sample() Dim str As String '■FireFoxへ偽装 str = "user-agent=Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:92.0) Gecko/20100101 Firefox/92.0" driver.AddArgument str '■ブラウザを起動 driver.Start "chrome" driver.Get "https://vba-create.jp/" End Sub
注意点
- 特にありません。
関連記事
- Edgeをシークレットモードで起動する【Selenium】
- Edgeで自動テストソフトウェアによって制御されていますを非表示にする【Selenium】
- Edgeを非表示で操作する【headless】【Selenium】
- Edgeで起動しているブラウザを操作する【Selenium】
SeleniumBasicについて
Internet Explorer11 のサポート期限が2022年6月までと、スクレイピング自体入れ替えていく必要があります。
今一番スムーズなのはSeleniumBasicを使用したスクレイピングと考えます。
但し、VBAでのネット記事は少なく困っている方も多いと思います。
弊社で代行開発も可能ですので、お気軽にご用命ください。
コメント