之前寫過一個文章，由于app相對敏感，所以把文章刪除了，今天換一個app重新寫一下。
對于自動答題的腳本，一般分兩步：
一是做一個答案庫（題庫）；
二是根據答案庫里面的答案進行答題；
先來看看答題的效果：
大家應該可以看到答題可以做到完全準確，由于使用的了山海插件獲取xml，以及擔心切換速度太快導致app崩潰而加了幾秒延遲，所以看起來答題速度并不快。
下面進入教程部分：
第一點：制作答案庫；
不同app的答案獲取方式是完全不一樣的，以我目前這個app（駕考寶典）為例，它的答案獲取方式是在“背題模式”里面。
我需要做的把題目和對應的答案提取出來，保存到文本里面。
這里我為了提取方便，把題庫存成了json格式。
先來看一下代碼，然后具體來分析過程：
考慮文章標題中說的無視分辨率，這里在腳本開始我寫了一個獲取模擬器寬度的命令，目的是為了根據不同設備的寬度，調整左右滑動的距離。
Dim x=GetScreenX()
Swipe x * 0.9, 500, x * 0.1, 500, 300
新建一個空白文本，考慮到電腦記事本建txt會自動添加bom頭這個弊端，所以直接用按鍵命令生成的。
Dim 路徑="/sdcard/pictures/題庫.txt"
file.write(路徑,"")
然后是獲取界面的xml，提取里面的所有文字部分，因為使用的是正則匹配，所以每個“文字塊”會放到數組里面。
Dim m=shanhai.getuixml()
? ? dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
上圖中紅框內容是我們想要的，其中題目的對應的數組下標是固定的，答案是不固定的，因為有的題目是2個選項，有的題目是4個選項，所以答案的數組下標會在有變化。但是有個特征，就是文字內容中含有“答案”兩個漢字，根據這個特征我們可以通過查找命令，找到含有“答案”的那個數組內容，并提取里面的ABCD，之后再根據ABCD，找到答案具體內容是什么文字。
當題目和答案都提取好了以后，就可以保存到文本里面了。開頭我已經說了，我用的是json格式保存的文本，可能有些朋友不熟悉，可以先看一下，這兩篇文章，關于json提取的：
看完以后，你應該知道json內容應該怎么提取了吧，反過來再分析一下json格式，看看怎么寫json（json實際上就是字符串）
我這里寫的是最簡單的json格式
{"鍵名1":"鍵值1","鍵名2":"鍵值2","鍵名3":"鍵值3"}
這個json的基本格式：鍵名對應題目，鍵值對應答案，后面的序號是就是區分一下不同題目。
分成3步來寫這個json：
第一步：先寫{}內部的，具體格式如下，這里面好多引號，一個都不能多，一個都不能少，之所以這么多引號，是因為在按鍵里面，引號是特殊字符中的轉義字符，所以如果想寫一個引號，就要在引號前面在加上一個引號，表示字符串需要加上一對引號，最終導致要寫入一個引號，需要寫4個引號。
""""&arr(2)&""":"""&答案(answer)&""","
第二步，去掉結尾多出來的一個逗號。
寫入內容，每一個后面都有逗號，由于最后一個內容后面不在寫入內容，所以會多一個逗號，去掉即可，特別強調不要手動去掉，因為我們不能使用電腦里面的記事本。
第三步，給整個題庫加上{}
File.Append(路徑,""""&arr(2)&""":"""&答案(answer)&""",")
Dim ku=file.read(路徑)
file.Write (路徑,"{"&left(ku,len(ku)-1)&"}")
通過上面的步驟，我們就可以得到一個完整的題庫文件了。
上面這部分的源碼：
Import "shanhai.lua"
Dim x=GetScreenX()
Dim 路徑="/sdcard/pictures/題庫.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
下面是第二點：答題操作
基本思路~
一、提取題目
二、比對題庫，找到正確答案的文字內容
三、點擊界面中的答案對應的文字
四、向左滑動，進入下一題
具體說一下：
一、提取題目
?Dim m=shanhai.getuixml()
dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
方法和制作題庫一樣，這里就不重復了
二、比對題庫，找到正確答案的文字內容
先將文本里面的json內容讀取出來，然后通過命令轉為“表”的形式。
Dim ku=file.read("/sdcard/pictures/題庫.txt")
Dim answer=Encode.JsonToTable(ku)
然后，利用我上文提到的json提取方法，提取當前題目對應的答案。這里為了大家看的清楚，我用了showmessage，在屏幕上停留的兩秒鐘，如果自己寫的話，這一步是沒有必要的。
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)
四、向左滑動，進入下一題
Swipe x * 0.7, 500, x * 0.1, 500, 300
代碼如下：
Import "shanhai.lua"
Dim x=GetScreenX()
Dim ku=file.read("/sdcard/pictures/題庫.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
總結一下：這篇文章的核心是提取xml的文字，用到了一個不常用的存儲形式json。通過比對文字，找到正確答案，完成答題。
