Private Sub Use_keyboardCls()
Dim driver As New ChromeDriver
Dim KeyCls As Keyboard
driver.Get "https://www.google.co.jp"
Set KeyCls = driver.Keyboard
KeyCls.SendKeys "hoge"
driver.Wait 2000
driver.Quit
End Sub
Use_Keboard_KeyDownUp
Private Sub Use_Keboard_KeyDownUp()
Dim driver As New ChromeDriver
Dim Keys As New Keys
driver.Get "https://ja.wikipedia.org/wiki/Main_Page"
driver.Keyboard.KeyDown Keys.Control
driver.SendKeys "a"
driver.Keyboard.KeyUp Keys.Control
Stop
driver.Quit
End Sub
Use_Keboard_Keys
Private Sub Use_Keboard_Keys()
Dim driver As New ChromeDriver
Dim KeyCls As selenium.Keyboard
driver.Get "https://www.google.co.jp"
driver.SetClipBoard "testtext"
Set KeyCls = driver.Keyboard
KeyCls.KeyDown KeyCls.Keys.Control
driver.FindElementByName("q").SendKeys "v"
driver.Wait 2000
Stop
driver.Quit
End Sub