SeleniumWrapper Type Libraryの参照設定を追加する。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 |
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 |