大家好，我是公衆号3分鐘學堂的郭立員~

今天文章的内容是在小平台上注冊賬号的腳本，腳本沒啥具體用處，純屬練手，之所以選擇小平台去注冊，是不需要接收手機驗證碼，這樣批量注冊号碼就沒有什麼成本。

先來看看效果展示：

注冊賬号的基本流程是這樣的：

①清除app緩存數據，這樣每次打開app都是未登錄狀态

②打開注冊頁面，這個過程可以是模拟手動，像我這篇文章的例子那樣一步步點擊，也可以包名組件跳轉，對接直接跳轉我也做不到每個app都能實現，所以為了通用我一般會選擇模拟手動操作的方式。

③輸入賬号和密碼

一般來說現在app注冊都是要求手機号作為賬号的，密碼有的自己設置，也有不需要密碼的，而是需要接收短信驗證碼的。

如果不需要手機短信驗證的，賬号直接生成随機的11位的數字，考慮到手機号前幾位相對固定，可以直接随機後8位。

對于需要接收短信驗證的，可以對接接碼平台。

密碼部分，為了方便可以設置一個簡單易記的。

④保存賬号和密碼

這一步看需求，需要存儲就存一下，不需要就不存，存儲格式一般是這樣。

下面是我寫的代碼：

Import "shanhai.lua" If Dir.Exist("/sdcard/pictures/password.txt")=0 Then file.Write("/sdcard/pictures/password.txt") End If Dim user=rndPhone() Dim pw=Rndpw() Sys.ClearAppCache ("vyq.ouvjpjuv.xmrezmz") Delay 2000 RunApp("vyq.ouvjpjuv.xmrezmz") Delay 2000 Tap 443, 574 '點确定 Delay 1000 Tap 409, 549 '點允許 Delay 4500 Tap 473, 915 '點會員中心 Delay 2000 Tap 272, 540 '點注冊賬号 Delay 2000 Tap 207, 271 '激活賬号輸入框 Delay 200 InputText user Delay 200 Tap 203, 360 '激活密碼輸入框 Delay 200 InputText pw Delay 200 Tap 253, 452 '再次激活密碼輸入框 Delay 200 InputText pw Delay 200 Tap 286, 722 '點注冊 Delay 3000 Tap 438, 536 '點确定 Delay 1000 Tap 207, 271 '激活賬号輸入框 Delay 200 InputText user Delay 200 Tap 203, 360 '激活密碼輸入框 Delay 200 InputText pw Delay 200 Tap 272, 463 '點登錄 Delay 1000 file.Append("/sdcard/pictures/password.txt",user&"----"&pw&"\n") Function RndPhone() Dim adr={"131","132","133","134","135","136","137","138","139","130","150","151","155","158","185","186","170","171"} TracePrint len(adr) Dim line="" For 8 Dim rndnum=int(10*rnd()) line=line&Rndnum Next TracePrint line RndPhone=adr(int(len(adr)*rnd()))&line End Function Function Rndpw() Dim line="" For 8 Dim rndnum=int(10*rnd()) line=line&rndnum Next TracePrint line Rndpw=line End Function

因為是練手，代碼沒有任何容錯機制，每一個頁面之間的切換都是點擊 延遲的結構。

考慮到寫太多tap命令後，不知道每個tap點擊的是什麼，所以在命令後面加上注釋，标注此tap點擊的内容（位置），這樣後期測試時，如果出現需要微調，能夠容易找到對應的代碼段。

在測試腳本時會發現有些頁面的切換時間間隔并不是固定的，有時候會快點，有時候會慢點，這就要求在添加時間間隔（delay）的時候，要填寫較長時間作為間隔參數。

忽快忽慢的情況通常出現在和服務器有數據交換的頁面，因為這個操作受到網絡影響最直接。

比如注冊賬号過程中的點擊“提交注冊”按鈕，這一步是把頁面填寫的數據發送給服務器，如果此時網絡斷開連接了，那麼數據就發送不出去，就會卡到這個頁面。

類似這種需要和服務器數據交互的頁面受網絡影響比較大，在填寫頁面加載的延遲時盡量留出富餘量。

這個腳本的代碼對新手可能有參考價值的内容，可能是生成随機手機号的部分。

Function RndPhone() Dim adr={"131","132","133","134","135","136","137","138","139","130","150","151","155","158","185","186","170","171"} TracePrint len(adr) Dim line="" For 8 Dim rndnum=int(10*rnd()) line=line&rndnum Next TracePrint line RndPhone=adr(int(len(adr)*rnd()))&line End Function

如果你也需要生成随機手機号，可以直接調用這個函數，這種相對通用的功能我會封裝成函數，以後在别的腳本中也能直接使用。

大家平時在寫腳本的時候也可以這樣做，好了本期内容就這些

=正文完=

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!