2
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 1 year has passed since last update.

Selenium (4.0.0)でスクショを撮るPowerShellスクリプト

Last updated at Posted at 2023-11-18

1. 動機

業務上で新しい情報を探す時に定期的に見るサイトがあると思いますが、それを毎度自分でポチポチPCいじって巡回するのがめんどくさい…いうことで、スクショを撮ってメールか何かで送付することができる機能が欲しいな、と思って作ってみました。

但し実行するのは自己責任でお願いします。この記事による情報で作ったスクリプトからなんらかの被害を受けた場合、筆者に責任が来るということにはならない、ということでお願いします。

2. 準備1 - 適切なコマンドレットのあたりを付ける

まずSeleniumのコマンドレットを見ると下記。スクショに関連しそうなのはnew-SeScreenshotとSave-SeScreenshotの2つ。なのでこれを見てみることにしました。

image.png

ちなみにブラウザインスタンスを$driverという変数に入れてメンバーを見ると下記。スクショが撮れそうなメソッドはなかったので、コマンドレットでやる方法を探すことにします。

image.png

3. 準備2: New-SeScreenshot vs Seve-SeScreenshot

名前からは使い方がよくわからないこの2つのコマンドレットの概要と例は下記。Save-SeScreenshotのExample 1を見る限り、New-SeScreenshotでスクショオブジェクトができて、Save-SeScreenshotでそれを画像形式で保存できそう、ということが分かりました。なのでこれを早速試してみることにします。

image.png

ちなみにヘルプの読み方は下記記事で解説してます。

4. スクリプト - ブラウザを立ち上げてそのページのスクショを画像として保存する

お試しで下記のスクリプト作ったらうまくいきました。
立ち上げたブラウザのスクショを撮ってDownloadsのフォルダに名前を付けて保存できます。

$driver = Start-SeDriver -Browser Edge -StartURL 'スクショしたいサイトURLを入力' 
$screenShot = New-SeScreenshot
$pathImage= "\Users\Username\Downloads\適当なファイル名.jpeg'
Save-SeScreenShot -ImageFormat Jpeg -Path $pathImage -ScreenShot $screenShot

5. スクリプト - 複数のスクショを撮ってメールで送付する

保存する画像のファイル名に日付を入れ、それをサイトのリンクとともに送付するのは下記でできました。
しかし問題があって、最後のところでメモリ解放してるつもりでもなぜか解放されません… タスクマネージャから消せばいいといえばいいですが、うまいやり方知っている方いたら教えてください。

#Please change parameters
$To = "自分のメルアド@ドメイン" 
$CC = $null
$Body = "Link:適当なURL" #複数個やる場合にはエスケープシーケンスで改行するといいです
$dayNow = Get-Date -Format "yyyyMMdd"
$Subject = "適当なタイトル"

function SendMailByOutlook {

    $outlook = New-Object -Comobject Outlook.Application
    $mail = $Outlook.CreateItem(0)
    $mail.To = $To
    $mail.CC = $CC
    $mail.Subject = $Subject
    $mail.Body = $Body
    $mail.Attachments.Add("\Users\Username\Downloads\ファイル1つめ_$dayNow" + '.jpeg')
    $mail.Attachments.Add("\Users\Username\Downloads\ファイル2つめ_$dayNow" + '.jpeg') #無ければ消す 
    $mail.Attachments.Add("\Users\Username\Downloads\ファイル3つめ_$dayNow" + '.jpeg') #無ければ消す 
    $mail.Send()
}


#ブラウザスクショ撮影1回目
$driver = Start-SeDriver -Browser Edge -StartURL 'サイト1つめURL' 
$screenShot = New-SeScreenshot
$pathImage= "\Users\Username\Downloads\ファイル1つめ_$dayNow" + '.jpeg'
Save-SeScreenShot -ImageFormat Jpeg -Path $pathImage -ScreenShot $screenShot

Start-Sleep -Seconds 1 #ゆっくりStart-Sleepで待ってます

#ブラウザスクショ撮影2回目
$driver = Set-SeUrl 'サイト2つめURL' #Set-SeUrlコマンドレットはサイト変更するやつです
$screenShot = New-SeScreenshot
$pathImage= "\Users\Username\Downloads\ファイル2つめ_$dayNow" + '.jpeg'
Save-SeScreenShot -ImageFormat Jpeg -Path $pathImage -ScreenShot $screenShot

Start-Sleep -Seconds 1

#ブラウザスクショ撮影3回目
$driver = Set-SeUrl 'サイト3つめURL'
$screenShot = New-SeScreenshot
$pathImage= "\Users\Username\Downloads\ファイル3つめ_$dayNow" + '.jpeg'
Save-SeScreenShot -ImageFormat Jpeg -Path $pathImage -ScreenShot $screenShot

#ブラウザ終了
$driver.quit()

#メモリ解放
$driver = $null
$screenShot = $null
[GC]::Collect()

#メール送信
SendMailByOutlook
$mail = $outlook = $null
[GC]::Collect()  

おわりに

基本自分用の備忘録ですが、何かの役に立てば幸いです。
ちまちまPowerShellの記事を書いているので、興味あれば私の他の記事も見てみてください。
私のスクリプトでイケてないところあったら是非教えてください。

2
2
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?