chrome driver 截图和填表
昨天突然有一个需求（自己的），想把某个网站题目主体部分翻译并保存成图片，开始时用了国内网站的翻译（人工、简单翻译），后来发现很多地方翻译的不尽人意，于是只好用翻译插件对原始网站进行翻译，插件会在每段后面插入翻译内容、设置使用背景色后显得不凌乱，效果还不错（至少尊重原文描述，保证了题意清晰）。本来想着爬取文本，然后做翻译什么的，但实际使用时需要仅允许使用一个网站，其他的都屏蔽掉，只好截图了。遇到几个问题，记录一下，有用到的拿走不谢：
〇、首先，你要NUGET这玩意和webdriver，然后导入它们
Imports OpenQA.Selenium
Imports OpenQA.Selenium.Chrome一、官方文档，各种参数老全了List of Chromium Command Line Switches « Peter Beverloo
https://peter.sh/experiments/chromium-command-line-switches/二、带翻译的截图
开始说过，搞了一下有简单翻译的网页，直接截图就可以。但是，带有插件的就麻烦很多：
1、开启插件：可以加载指定扩展或者干脆加载用户设置
加载用户设置可以让我们直接使用设置好的chrome，非常方便：
options.AddArgument("--user-data-dir=C:/Users/Administrator/AppData/Local/Google/Chrome/User Data/")2、开始整活
众所周知，一个自动化程序，弹出chrome就很low。于是，苦难开始了：
options.AddArguments("--headless")似乎应该可以有效吧！确实有效，浏览器窗口没了，插件也跟着没了——即使你开启了插件的各种权限和自动翻译。折腾吧，改用以下语句：
options.AddArguments("--headless=new") '新无头模式可以正常加载插件然后，加上各式各样的其他参数，就可以启动chromedriver.exe了：
If options Is Nothing Then
options = New ChromeOptions()
'加载用户配置。解决不加载插件的方法是让浏览器显示出来，然后重新安装一遍。。。。而后打开这个设置即可
options.AddArgument("--user-data-dir=C:/Users/Administrator/AppData/Local/Google/Chrome/User Data/")
'设置浏览器参数
options.AddArguments("--headless=new") '新无头模式可以正常加载插件
options.AddArguments("--no-sandbox")
options.AddArguments("--disable-gpu")
options.AddArguments("--disable-dev-shm-usage")
'单进程运行
'options.AddArgument("--single-process")
'固定端口
'options.AddArguments("--remote-debugging-port=13888")
End If
If driver Is Nothing Then driver = New ChromeDriver(options)嘎嘎完美，如果按下葫芦瓢没飘起来——chromedriver.exe又出来整活了，这个命令行窗口还得藏起来。把搜索引擎搜索的直冒火星子之后，发现这么两句：
Dim service As ChromeDriverService = ChromeDriverService.CreateDefaultService()
service.HideCommandPromptWindow = True这一看就顾名思义了，估摸搞定了！然并卵，这个语句创建了一个默认配置的服务，可是我们并没有用它啊，是不是赶脚少点啥，就像上了一天学都在神游回到家赶脚心里空落落的，酱紫：
If driver Is Nothing Then driver = New ChromeDriver(service, options)至此，用之前爬取的题目列表继续爬原始网站，截图带翻译的题目即可。
driver.Navigate().GoToUrl(purl & pid)
Thread.Sleep(8000) '如果不需要翻译可以少一些
'把宽度设置成题目栏最大宽度
driver.Manage.Window.Size = New Size(1258, 1024)
Thread.Sleep(100) '如果不需要翻译可以少一些
'获取高度和宽度一定要在设置URL之后，不然会导致获取不到页面真实的宽高；
Dim Width As Integer = driver.ExecuteScript("return document.documentElement.scrollWidth")
Dim Height As Integer = driver.ExecuteScript("return document.body.parentNode.scrollHeight")
'设置宽高否则无法截全，这种模式必须运行在--headless下，否则窗体无法超过屏幕高度
driver.Manage.Window.Size = New Size(1258, Height)
Thread.Sleep(100)
Dim ss As Screenshot = CType(driver, ITakesScreenshot).GetScreenshot()ss就是个图像了，想怎么剪裁啥的那不归本文管了。
PS：别想太多，现在就是整个页面——无论它高度是否超过屏幕高度。但，这只能在options.AddArguments("--headless=new")或没有=new的模式下使用，一旦你显示chrome窗口，那么它将无法突破windows对窗口高度的限制——即使你设置的足够高，也会被自动设置为不超过屏幕高度。（似乎用WINAPI设置可以突破，但如果你用鼠标移动这个窗口它又被限制，可能WIN7下如此表现，其他版本emmmmmm，记不清楚了，有兴趣的可以试一试。）
三、自动填写表单
这个有自动提交功能，而且很有趣。代码接上文：
driver.Navigate().GoToUrl("https://ooxx.com")
Thread.Sleep(2000)
driver.FindElement(By.Id("handleOrEmail")).SendKeys("[email protected]")
driver.FindElement(By.Id("password")).SendKeys("emmmmmmmmmmmm")
driver.FindElement(By.Id("enterForm")).Submit()
Thread.Sleep(2000)大概这样就可以登录了。这个工具里面输入啥的都是用SendKeys，并且我没有发现直接改属性的函数——当然，这不影响你自己写一段java程序然后使用它的接口运行。很有可能还需要取一些ooxx_token啥的，打开下个网页需要用到，但这也不归本文管啊！
下面演示一段好玩的东西——因为我没整明白HTML.Select这个玩意在chromedriver里面到底咋操作，有会的还请不吝赐教：
'戳一下下拉列表，有的下拉列表现生成的，不戳不行
Dim slt = driver.FindElement(By.Name("programTypeId"))
slt.Click()
Thread.Sleep(2000)
'这个列表的text属性会列出全部option
Dim cnt As Integer = slt.Text.Split(vbCrLf).Length
'开始整活，要的选项的value=50，开始按上下吧，
For i As Integer = 1 To cnt
If slt.GetAttribute("value") = "50" Then Exit For
slt.SendKeys(Keys.ArrowDown)
Thread.Sleep(200)
Next
For i As Integer = 1 To cnt
If slt.GetAttribute("value") = "50" Then Exit For
slt.SendKeys(Keys.ArrowUp)
Thread.Sleep(200)
Next幸亏人家网站自动记录上次选的是哪个，不然这看起来老low了——全自动填表的半自动人工智障。