之前寫過一個文章舅锄，由于app相對敏感，所以把文章刪除了司忱，今天換一個app重新寫一下皇忿。
對于自動答題的腳本，一般分兩步：
一是做一個答案庫（題庫）坦仍；
二是根據(jù)答案庫里面的答案進行答題鳍烁；
先來看看答題的效果：
大家應該可以看到答題可以做到完全準確，由于使用的了山海插件獲取xml繁扎，以及擔心切換速度太快導致app崩潰而加了幾秒延遲幔荒，所以看起來答題速度并不快。
下面進入教程部分：
第一點：制作答案庫梳玫；
不同app的答案獲取方式是完全不一樣的爹梁，以我目前這個app（駕考寶典）為例，它的答案獲取方式是在“背題模式”里面提澎。
我需要做的把題目和對應的答案提取出來姚垃，保存到文本里面。
這里我為了提取方便盼忌，把題庫存成了json格式积糯。
先來看一下代碼，然后具體來分析過程：
考慮文章標題中說的無視分辨率谦纱，這里在腳本開始我寫了一個獲取模擬器寬度的命令看成，目的是為了根據(jù)不同設備的寬度，調(diào)整左右滑動的距離服协。
Dim x=GetScreenX()
Swipe x * 0.9, 500, x * 0.1, 500, 300
新建一個空白文本绍昂，考慮到電腦記事本建txt會自動添加bom頭這個弊端，所以直接用按鍵命令生成的偿荷。
Dim 路徑="/sdcard/pictures/題庫.txt"
file.write(路徑,"")
然后是獲取界面的xml窘游，提取里面的所有文字部分，因為使用的是正則匹配跳纳，所以每個“文字塊”會放到數(shù)組里面忍饰。
Dim m=shanhai.getuixml()
? ? dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
上圖中紅框內(nèi)容是我們想要的，其中題目的對應的數(shù)組下標是固定的寺庄，答案是不固定的艾蓝，因為有的題目是2個選項力崇，有的題目是4個選項，所以答案的數(shù)組下標會在有變化赢织。但是有個特征亮靴，就是文字內(nèi)容中含有“答案”兩個漢字，根據(jù)這個特征我們可以通過查找命令于置，找到含有“答案”的那個數(shù)組內(nèi)容茧吊，并提取里面的ABCD，之后再根據(jù)ABCD八毯，找到答案具體內(nèi)容是什么文字搓侄。
當題目和答案都提取好了以后，就可以保存到文本里面了话速。開頭我已經(jīng)說了讶踪，我用的是json格式保存的文本，可能有些朋友不熟悉泊交，可以先看一下乳讥，這兩篇文章，關于json提取的：
對接有道翻譯api廓俭，詳解get方法和json提取【推薦】
看完以后雏婶，你應該知道json內(nèi)容應該怎么提取了吧，反過來再分析一下json格式白指，看看怎么寫json（json實際上就是字符串）
我這里寫的是最簡單的json格式
{"鍵名1":"鍵值1","鍵名2":"鍵值2","鍵名3":"鍵值3"}
這個json的基本格式：鍵名對應題目留晚，鍵值對應答案，后面的序號是就是區(qū)分一下不同題目告嘲。
分成3步來寫這個json：
第一步：先寫{}內(nèi)部的错维，具體格式如下，這里面好多引號橄唬，一個都不能多赋焕，一個都不能少，之所以這么多引號仰楚，是因為在按鍵里面隆判，引號是特殊字符中的轉(zhuǎn)義字符，所以如果想寫一個引號僧界，就要在引號前面在加上一個引號侨嘀，表示字符串需要加上一對引號，最終導致要寫入一個引號捂襟，需要寫4個引號咬腕。
""""&arr(2)&""":"""&答案(answer)&""","
第二步，去掉結(jié)尾多出來的一個逗號葬荷。
寫入內(nèi)容涨共，每一個后面都有逗號纽帖，由于最后一個內(nèi)容后面不在寫入內(nèi)容，所以會多一個逗號举反，去掉即可懊直，特別強調(diào)不要手動去掉，因為我們不能使用電腦里面的記事本火鼻。
第三步吹截，給整個題庫加上{}
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
下面是第二點：答題操作
基本思路~
一、提取題目
二晨逝、比對題庫蛾默，找到正確答案的文字內(nèi)容
三、點擊界面中的答案對應的文字
四捉貌、向左滑動支鸡，進入下一題
具體說一下：
一、提取題目
?Dim m=shanhai.getuixml()
dim arr=ShanHai.RegexFind(m,"text=""([^""]+)")
方法和制作題庫一樣趁窃，這里就不重復了
二牧挣、比對題庫，找到正確答案的文字內(nèi)容
先將文本里面的json內(nèi)容讀取出來醒陆，然后通過命令轉(zhuǎn)為“表”的形式瀑构。
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
總結(jié)一下：這篇文章的核心是提取xml的文字攒岛，用到了一個不常用的存儲形式json。通過比對文字胞锰，找到正確答案阵子，完成答題。
