SeleniumBasic KeysClass 特殊キーのキーボード操作

リファレンス

概要

テキスト以外の特殊キーのキーボード操作用クラス

オブジェクト設定

・変数宣言

Dim Keys As New Keys

・親クラス:WebDriver

文法

Keys.[メソッド]

メソッド・プロパティ

・メソッド

スクロールできます
Name解説Short Example
EnterEnterdriver.SendKeys keys.Enter
ReturnReturndriver.SendKeys keys.Return
Space   driver.ActiveElement.SendKeys Keys.Space
LeftAltAltdriver.SendKeys keys.LeftAlt
LeftControlctrldriver.SendKeys keys.LeftControl
LeftShiftShiftdriver.SendKeys keys.LeftShift
AltAltelm.Click Keys.Alt
Controlctrldriver.FindElementByName("q").SendKeys Keys.Control, "v"
ShiftShiftdriver.ActiveElement.SendKeys Keys.Shift, Keys.Tab
TabTabdriver.ActiveElement.SendKeys Keys.Tab
Escapeescdriver.ActiveElement.SendKeys Keys.Escape
Equal=driver.ActiveElement.SendKeys Keys.Equal
Semicolon;driver.ActiveElement.SendKeys Keys.Semicolon
ArrowUpdriver.SendKeys keys.ArrowUp
ArrowDowndriver.SendKeys keys.ArrowDown
ArrowLeftdriver.SendKeys keys.ArrowLeft
ArrowRightdriver.SendKeys keys.ArrowRight
Updriver.ActiveElement.SendKeys Keys.Up
Downdriver.ActiveElement.SendKeys Keys.Down
Leftdriver.ActiveElement.SendKeys Keys.Left
Rightdriver.ActiveElement.SendKeys Keys.Right
BackspaceBackdriver.SendKeys keys.Backspace
DeleteDeldriver.ActiveElement.SendKeys Keys.Delete
HomeHomedriver.SendKeys keys.Home
EndEnddriver.SendKeys keys.End
InsertInsertdriver.SendKeys keys.Insert
PageDownPageDowndriver.SendKeys keys.PageDown
PageUpPageUpdriver.SendKeys keys.PageUp
PausePause
Cancel 
Clear 
Commandcommand
Meta 
Null 
Help 
F1F1driver.SendKeys keys.F1
F2F2driver.SendKeys keys.F2
F3F3driver.SendKeys keys.F3
F4F4driver.SendKeys keys.F4
F5F5driver.SendKeys keys.F5
F6F6driver.SendKeys keys.F6
F7F7driver.SendKeys keys.F7
F8F8driver.SendKeys keys.F8
F9F9driver.SendKeys keys.F9
F10F10driver.SendKeys keys.F10
F11F11driver.SendKeys keys.F11
F12F12driver.SendKeys keys.F12

※Short Exampleは、動作確認ができたコードを記載しています。

メソッド(テンキー)

スクロールできます
Name解説Short Example
Add+driver.ActiveElement.SendKeys Keys.Add
Subtract-driver.ActiveElement.SendKeys Keys.Subtract
Multiply*driver.ActiveElement.SendKeys Keys.Multiply
Divide/driver.ActiveElement.SendKeys Keys.Divide
Decimal.driver.ActiveElement.SendKeys Keys.Decimal
Separator,driver.ActiveElement.SendKeys Keys.Separator
NumPad00driver.ActiveElement.SendKeys Keys.NumPad0
NumPad11driver.ActiveElement.SendKeys Keys.NumPad1
NumPad22driver.ActiveElement.SendKeys Keys.NumPad2
NumPad33driver.ActiveElement.SendKeys Keys.NumPad3
NumPad44driver.ActiveElement.SendKeys Keys.NumPad4
NumPad55driver.ActiveElement.SendKeys Keys.NumPad5
NumPad66driver.ActiveElement.SendKeys Keys.NumPad6
NumPad77driver.ActiveElement.SendKeys Keys.NumPad7
NumPad88driver.ActiveElement.SendKeys Keys.NumPad8
NumPad99driver.ActiveElement.SendKeys Keys.NumPad9

※Short Exampleは、動作確認ができたコードを記載しています。

Example

Chrome_Usekeys

Private Sub Chrome_Usekeys()
    Dim driver As New ChromeDriver
    Dim Keys As New Keys
    driver.Get "https://www.google.co.jp"
    
    driver.ActiveElement.SendKeys Keys.Equal
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Space
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Left
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Delete
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Semicolon
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Escape
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Tab
    driver.Wait 2000
    driver.ActiveElement.SendKeys Keys.Shift, Keys.Tab
    driver.Wait 2000
    
    Stop
    driver.Quit
End Sub

confirm_keyboard

Private Sub confirm_keyboard()
    
    Dim driver As New ChromeDriver
    Dim keys As New keys
    driver.AddArgument "--start-maximized"
    driver.Get "https://www.onlinemictest.com/ja/keyboard-test/"
    
    Dim TouchScreen As TouchScreen
    Set TouchScreen = driver.TouchScreen
    TouchScreen.Scroll 0, 300
    driver.SendKeys keys.Return
    driver.Wait 1000
    driver.SendKeys keys.Enter
    driver.Wait 1000
    driver.SendKeys keys.LeftAlt
    driver.Wait 1000
    driver.SendKeys keys.LeftControl
    driver.Wait 1000
    driver.SendKeys keys.LeftShift
    driver.Wait 1000
    driver.SendKeys keys.Alt
    driver.Wait 1000
    driver.SendKeys keys.Up
    driver.Wait 1000
    driver.SendKeys keys.Down
    driver.Wait 1000
    driver.SendKeys keys.Left
    driver.Wait 1000
    driver.SendKeys keys.Right
    driver.Wait 1000
    driver.SendKeys keys.Backspace
    driver.Wait 1000
    driver.SendKeys keys.Home
    driver.Wait 1000
    driver.SendKeys keys.End
    driver.Wait 1000
    driver.SendKeys keys.Insert
    driver.Wait 1000
    driver.SendKeys keys.PageUp
    driver.Wait 1000
    driver.SendKeys keys.PageDown
    driver.Wait 1000

    Stop
    driver.Quit
End Sub

function_keys

Private Sub function_keys()

    Dim driver As New ChromeDriver
    Dim keys As New keys
    driver.AddArgument "--start-maximized"
    driver.Get "https://www.onlinemictest.com/ja/keyboard-test/"
    
    Dim TouchScreen As TouchScreen
    Set TouchScreen = driver.TouchScreen
    TouchScreen.Scroll 0, 300
    driver.SendKeys keys.F1
    driver.Wait 1000
    driver.SendKeys keys.F2
    driver.Wait 1000
    driver.SendKeys keys.F3
    driver.Wait 1000
    driver.SendKeys keys.F4
    driver.Wait 1000
    driver.SendKeys keys.F5
    driver.Wait 1000
    driver.SendKeys keys.F6
    driver.Wait 1000
    driver.SendKeys keys.F7
    driver.Wait 1000
    driver.SendKeys keys.F8
    driver.Wait 1000
    driver.SendKeys keys.F9
    driver.Wait 1000
    driver.SendKeys keys.F10
    driver.Wait 1000
    driver.SendKeys keys.F11
    driver.Wait 1000
    driver.SendKeys keys.F12
    driver.Wait 1000

    Stop
    driver.Quit
End Sub

Use_numerickeypad

Private Sub Use_numerickeypad()
    Dim driver As New ChromeDriver
    Dim Keys As New Keys
    driver.Get "https://www.google.co.jp"

    driver.ActiveElement.SendKeys Keys.Add
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.Subtract
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.Multiply
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.Divide
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.Decimal
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.Separator
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad0
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad1
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad2
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad3
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad4
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad5
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad6
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad7
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad8
    driver.Wait 1000
    driver.ActiveElement.SendKeys Keys.NumPad9
    driver.Wait 1000
    Stop
    driver.Quit
End Sub
よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

VBAを中心とした自動化、効率化の手法を紹介しています。現在は、SeleniumBasicのexamplesを紹介しています。その内、SeleniumBasic以外の手法も掲載したいと思っております。