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