その他

VBA:seleniumbasicでウィンドウ情報の変更、取得[No69]

投稿日:2020年10月14日 更新日:

スポンサーリンク

VBAで利用可能なselenium(セレニウム) basicでWebDriverのブラウザウィンドウの情報を扱うコードを紹介します。次のWebDriverのものです。

・(Edge)エッジ

Windowサイズを取得


Public Sub GetWindowSize()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Get "http://www.yahoo.co.jp/"
    
    Dim wHeight As Long
    Dim wWidth As Long
    wHeight = driver.Window.size.Height
    wWidth = driver.Window.size.Width
    
    MsgBox "ウィンドウの横、縦:" & wHeight & "," & wWidth
End Sub

Windowサイズを変更

最大サイズに変更


Public Sub ChangeWindowSize01()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Window.Maximize
    driver.Get "http://www.yahoo.co.jp/"
End Sub

指定サイズに変更


Public Sub ChangeWindowSize02()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Window.SetSize 300, 400
    driver.Get "http://www.yahoo.co.jp/"
End Sub

現在のウィンドウの位置(ポジション)を取得


Public Sub GetWindowPosition()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Get "http://www.yahoo.co.jp/"
    
    Dim pX As Long
    Dim pY As Long
    pX = driver.Window.Position.x
    pY = driver.Window.Position.y
    MsgBox "ウィンドウの横、縦:" & pX & "," & pY
End Sub

現在のウィンドウの位置(ポジション)を変更


Public Sub ChangeWindowPosition()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Window.SetPosition 200, 300
    driver.Get "http://www.yahoo.co.jp/"
End Sub

現在のウィンドウのタイトルを取得


Public Sub GetWindowTitle()
    Dim driver As New EdgeDriver
    
    driver.Start "MicrosoftEdge"
    driver.Get "http://www.yahoo.co.jp/"
    
    Dim wTitle As String
    wTitle = driver.Window.Title
    MsgBox "ウィンドウのタイトル:" & wTitle
End Sub

関連記事

no image
ウィンドウハンドル関連の記事一覧[No74]
記事一覧 ハンドル番号、キャプション名、クラス名について書かれた記事のまとめです。 最後までお付き合いいただきありがとうございます! この情報が誰かの役にたてれば幸 ...

最後までお付き合いいただきありがとうございます!

この情報が誰かの役にたてれば幸いです。

スポンサーリンク

タグ

-その他

© 2021 BookALittle