多開模擬器讀取文字時內容不重複

以下內容

轉載

自按鍵精靈開發者：

郭立員

感謝大大的支援與熱心分享！

今天帶了的是一個多開模擬器讀取文字時內容不重複的教程。

使用場景

多模擬器登入app，賬號密碼儲存在同一個文字中，讀取方式是讀一行刪一行，理論上來說是沒問題，但是實際操作會出現多個模擬器讀取到同一個賬號密碼，這期程式碼就是解決這個問題的。

實現原理

我把讀取文字的過程分成幾個階段：先報名、再排隊，最後依次讀取。

具體來講是這樣的，“先報名”就是模擬器把自己的序號（imsi碼）傳入到共享資料夾裡面，“再排隊”是按照先後順序把模擬器的imsi碼寫入到文本里面，“依次讀取”指的是從存imsi文字中的第一個imsi碼的模擬器開始讀取，第一個讀完了，第二個讀，以此類推。

程式碼過程

①獲取模擬器的imsi碼

Dim imsi=Device。GetImsi（）

②新建一個imsi儲存文字

If dir。Exist（“/sdcard/pictures/imsi。txt”）=0 Then file。write （“/sdcard/pictures/imsi。txt”）End If

③使用追加命令把模擬式imsi碼寫入文字

file。Append “/sdcard/pictures/imsi。txt”， imsi & “\n”

④讀取文字中的imsi碼

dim arr=file。ReadLines（“/sdcard/pictures/imsi。txt”）

⑤判斷讀取文字後的imsi中，第一個是不是本機imsi碼

If arr（0） = imsi Then

⑥如果上一步判斷成立，開始執行讀取文字，已經讀後刪除文字

Dim txt=file。readline（“/sdcard/pictures/a。txt”，1） Delay 50file。DeleteLine “/sdcard/pictures/a。txt”， 1Delay 50

⑦刪除imsi文字中第一個imsi碼，這個過程表示當前模擬器讀取完成，其他模擬器就可以讀取文字了。

file。DeleteLine “/sdcard/pictures/imsi。txt”， 1

⑧假設第⑤步的判斷不成立，也就是有別的模擬器排在前面，那麼就要迴圈第④至⑦步，一直輪到當前模擬器可以讀取文字為止，同時退出迴圈。

核心內容

通常我們使用多模擬器的時候會用到模擬器自帶的同步器功能，這個時候只需要操作一個模擬器，其他模擬器就和它完成同樣的操作，當我們使用同步器啟動指令碼時，所有指令碼同時開啟，同一時間讀取文字，這個時候就會出現同一個賬號密碼被多個模擬器讀取。

我們這期文章中使用了一個“緩衝”文字，先把要讀取的模擬器imsi碼存起來，然後按順序執行，就把原本的“同步讀取”變成了“非同步讀取”，有效防止指令碼讀取到重複的文字。

更多精彩內容，歡迎關注

微信公眾號：按鍵精靈公眾號

按鍵精靈論壇：bbs.anjian.com