Clojure 如何在CLJWebDriver中为phantomjs驱动程序设置useragent？

我将clojure与clj webdriver一起使用，如下所示：

(set-driver! {:browser :phantomjs} "url")

---

如何设置useragent？

对于具有PhantomJS支持的clj webdriver 0.6.1，您可以通过设置功能来实现这一点

(ns site-test
  (:require [clj-webdriver.taxi :refer :all]
            [clj-webdriver.driver :refer [init-driver]])
  (:import (org.openqa.selenium.phantomjs PhantomJSDriver)
           (org.openqa.selenium.remote DesiredCapabilities)))

(System/setProperty "phantomjs.binary.path" "D:/Drivers/phantomjs-1.9.7-windows/phantomjs.exe")

(set-driver!
  (init-driver
      {:webdriver
        (PhantomJSDriver. (doto (DesiredCapabilities.)
                            (.setCapability "phantomjs.page.settings.userAgent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0")
                            (.setCapability "phantomjs.page.customHeaders.Accept-Language" "en-US")
                            (.setCapability "phantomjs.page.customHeaders.Connection" "keep-alive")
                            (.setCapability "phantomjs.cli.args" (into-array String ["--ignore-ssl-errors=true"
                                                                                     "--webdriver-loglevel=WARN"]))))}))

---

对于支持PhantomJS的CLJWebDriver 0.6.1，您可以通过设置功能来实现这一点

(ns site-test
  (:require [clj-webdriver.taxi :refer :all]
            [clj-webdriver.driver :refer [init-driver]])
  (:import (org.openqa.selenium.phantomjs PhantomJSDriver)
           (org.openqa.selenium.remote DesiredCapabilities)))

(System/setProperty "phantomjs.binary.path" "D:/Drivers/phantomjs-1.9.7-windows/phantomjs.exe")

(set-driver!
  (init-driver
      {:webdriver
        (PhantomJSDriver. (doto (DesiredCapabilities.)
                            (.setCapability "phantomjs.page.settings.userAgent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0")
                            (.setCapability "phantomjs.page.customHeaders.Accept-Language" "en-US")
                            (.setCapability "phantomjs.page.customHeaders.Connection" "keep-alive")
                            (.setCapability "phantomjs.cli.args" (into-array String ["--ignore-ssl-errors=true"
                                                                                     "--webdriver-loglevel=WARN"]))))}))