运行脚本时,每秒哈希值保持 0 H/s,如果在本地计算机(笔记本电脑)上运行,则为正值。提示?
library(wdman)
library(RSelenium)
pjs <- wdman::phantomjs(verbose = TRUE)
rd <- RSelenium::remoteDriver(port = 4567L, browserName = "phantomjs")
rd$open(silent = FALSE)
rd$navigate('https://www.monero.crypto-webminer.com/monero.html')
# adress
w <- rd$findElement(using = 'xpath','//*[@id="wallett"]')
rd$executeScript('document.getElementById("wallett").textContent="<my_wallet_adress>"', args=list(w))
# threads
w <- rd$findElement(using = 'xpath','//*[@id="threads"]')
rd$executeScript('document.getElementById("threads").textContent="<cores>"', args=list(w))
# start
w <- rd$findElement(using = 'xpath','//*[@id="start"]')
rd$executeScript('document.getElementById("start").click()', args=list(w))
# prints
print(rd$findElement(using = 'xpath','//*[@id="hashes-per-second"]')$getElementText())
print(rd$findElement(using = 'xpath','//*[@id="wallett"]')$getElementText())
print(rd$findElement(using = 'xpath','//*[@id="threads"]')$getElementText())