之前寫過(guò)一個(gè)文章，由于app相對(duì)敏感，所以把文章刪除了，今天換一個(gè)app重新寫一下。

對(duì)于自動(dòng)答題的腳本，一般分兩步：

一是做一個(gè)答案庫(kù)（題庫(kù)）；

二是根據(jù)答案庫(kù)里面的答案進(jìn)行答題；

先來(lái)看看答題的效果：

大家應(yīng)該可以看到答題可以做到完全準(zhǔn)確，由于使用的了山海插件獲取xml，以及擔(dān)心切換速度太快導(dǎo)致app崩潰而加了幾秒延遲，所以看起來(lái)答題速度并不快。

下面進(jìn)入教程部分：

第一點(diǎn)：制作答案庫(kù)；

不同app的答案獲取方式是完全不一樣的，以我目前這個(gè)app（駕考寶典）為例，它的答案獲取方式是在“背題模式”里面。

我需要做的把題目和對(duì)應(yīng)的答案提取出來(lái)，保存到文本里面。

這里我為了提取方便，把題庫(kù)存成了json格式。

先來(lái)看一下代碼，然后具體來(lái)分析過(guò)程：

考慮文章標(biāo)題中說(shuō)的無(wú)視分辨率，這里在腳本開(kāi)始我寫了一個(gè)獲取模擬器寬度的命令，目的是為了根據(jù)不同設(shè)備的寬度，調(diào)整左右滑動(dòng)的距離。

Dim x=GetScreenX()

Swipe x * 0.9, 500, x * 0.1, 500, 300

新建一個(gè)空白文本，考慮到電腦記事本建txt會(huì)自動(dòng)添加bom頭這個(gè)弊端，所以直接用按鍵命令生成的。

Dim 路徑=”/sdcard/pictures/題庫(kù).txt”

file.write(路徑,””)

然后是獲取界面的xml，提取里面的所有文字部分，因?yàn)槭褂玫氖钦齽t匹配，所以每個(gè)“文字塊”會(huì)放到數(shù)組里面。

Dim m=shanhai.getuixml()

dim arr=ShanHai.RegexFind(m,”text=””([^””] )”)

上圖中紅框內(nèi)容是我們想要的，其中題目的對(duì)應(yīng)的數(shù)組下標(biāo)是固定的，答案是不固定的，因?yàn)橛械念}目是2個(gè)選項(xiàng)，有的題目是4個(gè)選項(xiàng)，所以答案的數(shù)組下標(biāo)會(huì)在有變化。但是有個(gè)特征，就是文字內(nèi)容中含有“答案”兩個(gè)漢字，根據(jù)這個(gè)特征我們可以通過(guò)查找命令，找到含有“答案”的那個(gè)數(shù)組內(nèi)容，并提取里面的ABCD，之后再根據(jù)ABCD，找到答案具體內(nèi)容是什么文字。

當(dāng)題目和答案都提取好了以后，就可以保存到文本里面了。開(kāi)頭我已經(jīng)說(shuō)了，我用的是json格式保存的文本，可能有些朋友不熟悉，可以先看一下，這兩篇文章，關(guān)于json提取的：

對(duì)接有道翻譯api，詳解get方法和json提取【推薦】

提取api返回值里面的內(nèi)容

看完以后，你應(yīng)該知道json內(nèi)容應(yīng)該怎么提取了吧，反過(guò)來(lái)再分析一下json格式，看看怎么寫json（json實(shí)際上就是字符串）

我這里寫的是最簡(jiǎn)單的json格式

{“鍵名1″:”鍵值1″,”鍵名2″:”鍵值2″,”鍵名3″:”鍵值3”}

這個(gè)json的基本格式：鍵名對(duì)應(yīng)題目，鍵值對(duì)應(yīng)答案，后面的序號(hào)是就是區(qū)分一下不同題目。

分成3步來(lái)寫這個(gè)json：

第一步：先寫{}內(nèi)部的，具體格式如下，這里面好多引號(hào)，一個(gè)都不能多，一個(gè)都不能少，之所以這么多引號(hào)，是因?yàn)樵诎存I里面，引號(hào)是特殊字符中的轉(zhuǎn)義字符，所以如果想寫一個(gè)引號(hào)，就要在引號(hào)前面在加上一個(gè)引號(hào)，表示字符串需要加上一對(duì)引號(hào)，最終導(dǎo)致要寫入一個(gè)引號(hào)，需要寫4個(gè)引號(hào)。

“”””&arr(2)&”””:”””&答案(answer)&”””,”

第二步，去掉結(jié)尾多出來(lái)的一個(gè)逗號(hào)。

寫入內(nèi)容，每一個(gè)后面都有逗號(hào)，由于最后一個(gè)內(nèi)容后面不在寫入內(nèi)容，所以會(huì)多一個(gè)逗號(hào)，去掉即可，特別強(qiáng)調(diào)不要手動(dòng)去掉，因?yàn)槲覀儾荒苁褂秒娔X里面的記事本。

第三步，給整個(gè)題庫(kù)加上{}

File.Append(路徑,””””&arr(2)&”””:”””&答案(answer)&”””,”)

Dim ku=file.read(路徑)

file.Write (路徑,”{“&left(ku,len(ku)-1)&”}”)

通過(guò)上面的步驟，我們就可以得到一個(gè)完整的題庫(kù)文件了。

上面這部分的源碼：

Import “shanhai.lua“

Dim x=GetScreenX()

Dim 路徑=”/sdcard/pictures/題庫(kù).txt”

file.write(路徑,””)

For 20

Dim m=shanhai.getuixml()

dim arr=ShanHai.RegexFind(m,”text=””([^””] )”)

For Each k In arr

If InStr(1, k, “答案”) > 0 Then

dim answer= right(k,1)

Exit For

End If

Next

TracePrint “題目是：”&arr(2)

TracePrint “答案是：”&答案(answer)

File.Append(路徑,””””&arr(2)&”””:”””&答案(answer)&”””,”)

Delay 200

Swipe x * 0.9, 500, x * 0.1, 500, 300

Delay 200

Next

Dim ku=file.read(路徑)

file.Write (路徑,”{“&left(ku,len(ku)-1)&”}”)

Function 答案(a)

If a = “A” Then

答案=arr(3)

ElseIf a = “B” Then

答案=arr(4)

ElseIf a = “C” Then

答案=arr(5)

ElseIf a = “D” Then

答案=arr(6)

End If

End Function

下面是第二點(diǎn)：答題操作

基本思路~

一、提取題目

二、比對(duì)題庫(kù)，找到正確答案的文字內(nèi)容

三、點(diǎn)擊界面中的答案對(duì)應(yīng)的文字

四、向左滑動(dòng)，進(jìn)入下一題

具體說(shuō)一下：

一、提取題目

Dim m=shanhai.getuixml()

dim arr=ShanHai.RegexFind(m,”text=””([^””] )”)

方法和制作題庫(kù)一樣，這里就不重復(fù)了

二、比對(duì)題庫(kù)，找到正確答案的文字內(nèi)容

先將文本里面的json內(nèi)容讀取出來(lái)，然后通過(guò)命令轉(zhuǎn)為“表”的形式。

Dim ku=file.read(“/sdcard/pictures/題庫(kù).txt”)

Dim answer=Encode.JsonToTable(ku)

然后，利用我上文提到的json提取方法，提取當(dāng)前題目對(duì)應(yīng)的答案。這里為了大家看的清楚，我用了showmessage，在屏幕上停留的兩秒鐘，如果自己寫的話，這一步是沒(méi)有必要的。

For 2

ShowMessage “答案是：” & answer[arr(2)]

Delay 1000

Next

三、點(diǎn)擊界面中的答案對(duì)應(yīng)的文字

dim a=ShanHai.FindXmlKey(m,”text”,answer[arr(2)],”bounds”)

dim zbarr= ShanHai.RegexFind (a, “%[(.-)%]”)

Dim zb=split(zbarr(0),”,”)

Tap zb(0), zb(1)

四、向左滑動(dòng)，進(jìn)入下一題

Swipe x * 0.7, 500, x * 0.1, 500, 300

代碼如下：

Import “shanhai.lua”

Dim x=GetScreenX()

Dim ku=file.read(“/sdcard/pictures/題庫(kù).txt”)

Dim answer=Encode.JsonToTable(ku)

For 20

Dim m=shanhai.getuixml()

dim arr=ShanHai.RegexFind(m,”text=””([^””] )”)

For 2

ShowMessage “答案是：” & answer[arr(2)]

Delay 1000

Next

dim a=ShanHai.FindXmlKey(m,”text”,answer[arr(2)],”bounds”)

dim zbarr= ShanHai.RegexFind (a, “%[(.-)%]”)

Dim zb=split(zbarr(0),”,”)

Tap zb(0), zb(1)

Delay 500

Swipe x * 0.7, 500, x * 0.1, 500, 300

Delay 1000

Next

總結(jié)一下：這篇文章的核心是提取xml的文字，用到了一個(gè)不常用的存儲(chǔ)形式j(luò)son。通過(guò)比對(duì)文字，找到正確答案，完成答題。