由於換行符與賬號密碼分隔符一樣，都是"|"，所以這裡我把":"當做賬號密碼分隔符。

程式碼：

Dim Path, Text, i, zm

Path="C:\Documents and Settings\Administrator\桌面\新建 文字文件.txt" "填入檔案路徑

Text = Plugin.File.ReadFileEx(Path) "讀取文字內容

Text = Split(Text, "|") "將讀取到的內容一行行地分割為陣列

TracePrint UBound(Text)

For i = 0 To UBound(Text) - 1

zm = Split(Text(i), ":") "分割每行內容

SayString zm(0)

KeyPress 9, 1

SayString zm(1)

KeyPress 13, 1

Next

MsgBox "所有賬號均已使用",64,"提示"