Get/Post 요청 보내기

Private Sub chrome_Access()
  Dim drv As New ChromeDriver
  drv.Get "https://www.google.com"
  
  Dim ele As WebElement
  Set ele = drv.FindElementByXPath("//input[@value='Google Search']")
  Assert.Equals "Google Search", ele.Value
  
  drv.Quit
End Sub

 

 

Private Sub Data_Send()
  ' API: https://code.google.com/p/selenium/wiki/JsonWireProtocol

  Dim driver As New ChromeDriver
  driver.Get "about:blank"
  
  ' Returns all windows handles
  Dim hwnds As List
  Set hwnds = driver.Send("GET", "/window_handles")
  
  ' Returns all links elements
  Dim links As List
  Set links = driver.Send("POST", "/elements", "using", "css selector", "value", "a")
  
  Debug.Assert 0
  driver.Quit
End Sub