Sub test()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "ie", "https://www.google.co.jp/"
'driver.setImplicitWait (500)
driver.get ("/")
driver.findElementById("lst-ib").SendKeys "Selenium"
driver.findElementByName("btnG").Click
driver.findElementByLinkText("Selenium WebDriverでWebアプリのテストが変わる - IT", 5000).Click
'driver.stop
MsgBox ""
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "https://www.google.co.jp/")
Call driver.get("/cgi-bin/idxsearch.cgi")
Call driver.findElementByName("Y_TYPE").AsSelect.selectByIndex(1) '0はじまり
'Call driver.findElementByName("Y_TYPE").AsSelect.selectBytext("いずれかの用語を含む")
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "https://www.google.co.jp/")
Call driver.get("/cgi-bin/idxsearch.cgi")
Call driver.findElementsByName("H_YOMI_GUN").Item(3).Click
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "https://www.google.co.jp/")
Call driver.get("search/servlet/Procedure?CLASSNAME=GTAEGOVMSTSEARCH")
Dim collection As WebElementCollection
Set collection = driver.findElementsByName("HushoSeqNo")
collection.Item(0).Click
collection.Item(1).Click
collection.Item(2).Click
collection.Item(3).Click
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "https://www.google.co.jp/")
Call driver.get("/")
driver.findElementByCssSelector("#one-content > a:nth-child(1) > img:nth-child(1)").Click
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "http://www.google.com/")
Call driver.get("/")
MsgBox driver.URL
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "ie", "http://www.google.com/"
driver.get "/"
driver.findElementByName("q").SendKeys ("さばの味噌煮")
driver.findElementByName("btnG").Click
Call driver.waitForTextPresent("に関連する検索キーワード")
'Call driver.toClipBoard(driver.findElementByTagName("body").Text)
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
Call driver.Start("ie", "http://www.google.com/")
Call driver.get("/")
driver.windowMaximize
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "ie", "http://www.google.com/"
driver.get "/"
driver.findElementByName("q").SendKeys ("xxx")
driver.findElementByName("btnG").Click
driver.waitForTextPresent ("に関連する検索キーワード")
driver.getScreenshot().Copy
driver.getScreenshot().SaveAs ("SABA_NO_MISO_NI.bmp")
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
driver.Start "ie", "http://homepage3.nifty.com/abe-hiroshi/"
driver.setImplicitWait 1000000
driver.get "/"
Dim frameUrl: frameUrl = driver.findElementsByTagName("frame").Item(1).getAttribute("src")
driver.get frameUrl
End Sub
Sub test()
Dim driver As New SeleniumWrapper.WebDriver
'driver.startRemotely "ie", "http://192.168.0.26:4444/wd/hub" "http://news.yahoo.com"
'別途インストールが必要
End Sub
Sub test()
Dim driver As New WebDriver
Call driver.Start("ie", "http://www.red.oit-net.jp/")
Call driver.get("/tatsuya/java/winopen.htm")
Dim beforeHwd As String
'既存のハンドルを保存
beforeHwd = driver.WindowHandle 'Returns the handle of the current window.
driver.findElementByCssSelector("table.waku:nth-child(13) > tbody:nth-child(1) > tr:nth-child(1) > td:nth-child(1) > form:nth-child(3) > input:nth-child(1)").Click
'新しいウィンドウを開く
'既存のウィンドウとは違うウィンドウを探す
Dim Hwds
Hwds = driver.WindowHandles ' Returns the handles of all windows within the current session.
Dim window: For Each window In Hwds
If window <> beforeHwd Then
driver.switchToWindow window 'ここで新しいウィンドウに切り替える
driver.get "/" '新しいウィンドウに対する操作
driver.Close '新しいウィンドウに対する操作
End If
Next
'もとのウィドウに戻している。
Set driver = driver.switchToWindow(beforeHwd) 'Switches focus to the specified window.
driver.get "/tatsuya"
End Sub
Sub test()
Dim selenium As New SeleniumWrapper.WebDriver
selenium.Start "ie", "http://www.google.com/"
selenium.Open "/"
selenium.Type "name=q", "seleniumVBA"
selenium.Click "name=btnG"
selenium.Wait 1000
selenium.getScreenshot().Copy
selenium.stop
Sheets(1).Range("A10").PasteSpecial
End Sub