.版本 2
.支持庫 iext
.支持庫 spec
.程序集 窗口程序集_啟動窗口
.程序集變量 thread, 魚刺類_線程池
.程序集變量 ADSL, ADSL撥號類
.程序集變量 Adslname, 文本型, , , 寬帶連接名稱
.程序集變量 Adsluser, 文本型, , , 寬帶賬號
.程序集變量 Adslpwd, 文本型, , , 寬帶密碼
.程序集變量 許可
.程序集變量 撥號頻率
.程序集變量 線程次數, 整數型
.程序集變量 失敗重登, 邏輯型
.程序集變量 失敗重登次數
.子程序 _創建線程池按鈕_被單擊
thread.創建 (到整數 (線程數編輯框.內容))
許可 ＝ _創建進入許可證 ()
.子程序 _生成賬號密碼按鈕_被單擊
.局部變量 X
.局部變量 I
超級列表框.全部刪除 ()
.計次循環首 (20, X)
  超級列表框.插入表項 (, 到文本 (X), , , , )
  超級列表框.置標題 (X － 1, 1, 文本_取隨機字母 (8))
  超級列表框.置標題 (X － 1, 2, 文本_取隨機數字 (6))
.計次循環尾 ()
.子程序 線程池控制
.局部變量 賬號數
.局部變量 callAdsl
.局部變量 I
賬號數 ＝ 超級列表框.取表項數 ()
.計次循環首 (賬號數, I) ' 循環整個列表
  .如果真 (callAdsl ＝ 撥號頻率) ' 當投遞出去的線程等于設置好的 撥號頻率時，等待執行完成
    .判斷循環首 (線程次數 ＞ 0)
      程序_延時 (300)
      調試輸出 (“等待線程執行完成..”)
    .判斷循環尾 ()
    調試輸出 (“開始撥號..”)
    ADSL.重撥_cmd (Adslname, Adsluser, Adslpwd)
    程序_延時 (1000)
    callAdsl ＝ 0
    調試輸出 (“撥號完成,繼續任務...”)
  .如果真結束
  callAdsl ＝ callAdsl ＋ 1
  _進入許可區 (許可)
  線程次數 ＝ 線程次數 ＋ 1
  _退出許可區 (許可)
  調試輸出 (I － 1)
  thread.投遞任務 (&登錄線程, I － 1)
.計次循環尾 ()
.子程序 登錄線程
.參數 列表索引
.局部變量 user賬號, 文本型
.局部變量 pwd密碼, 文本型
.局部變量 登錄結果, 文本型
.局部變量 I
_進入許可區 (許可)
超級列表框.置標題 (列表索引, 3, “登錄中..”) ' 直接顯示狀態
user賬號 ＝ 超級列表框.取標題 (列表索引, 1)
pwd密碼 ＝ 超級列表框.取標題 (列表索引, 2)
_退出許可區 (許可)
.如果真 (登錄 (user賬號, pwd密碼, 登錄結果) ＝ 假)
  .如果真 (失敗重登) ' 如果選中失敗重登
    .計次循環首 (失敗重登次數, I) ' 循環重登次數
      _進入許可區 (許可)
      超級列表框.置標題 (列表索引, 3, “重登 ” ＋ 到文本 (I)) ' 重登...
      _退出許可區 (許可)
      .如果真 (登錄 (user賬號, pwd密碼, 登錄結果)) ' 如果登錄成功
        _進入許可區 (許可)
        超級列表框.置標題 (列表索引, 3, 登錄結果)
        線程次數 ＝ 線程次數 － 1
        _退出許可區 (許可)
        返回 ()
      .如果真結束
      程序_延時 (到整數 (文本_取隨機范圍數字 (1000, 3000)))
    .計次循環尾 ()
  .如果真結束
.如果真結束
_進入許可區 (許可)
超級列表框.置標題 (列表索引, 3, 登錄結果) ' 直接顯示狀態
線程次數 ＝ 線程次數 － 1
_退出許可區 (許可)
.子程序 登錄, 邏輯型
.參數 賬號, 文本型
.參數 密碼, 文本型
.參數 返回登錄結果, 文本型, 參考 可空
.局部變量 I
I ＝ 到整數 (文本_取隨機范圍數字 (1, 9))
' ///// 這里我寫成隨機的
.如果真 (I ＝ 1) ' 隨機生成1-10之間的數，如果是 1 則返回驗證碼錯誤
  返回登錄結果 ＝ “驗證碼錯誤”
  返回 (假)
.如果真結束
.如果真 (I ＝ 2) ' 隨機生成1-10之間的數....
  返回登錄結果 ＝ “密碼錯誤”
  返回 (假)
.如果真結束
.如果真 (I ＝ 3) ' 隨機生成1-10之間的數....
  返回登錄結果 ＝ “IP被限制”
  返回 (假)
.如果真結束
' 其他的隨機數均為成功
返回登錄結果 ＝ “登錄成功”
返回 (真)
.子程序 _開始按鈕_被單擊
失敗重登 ＝ 失敗重登選擇框.選中
失敗重登次數 ＝ 到整數 (重登次數編輯框.內容)
撥號頻率 ＝ 到整數 (頻率編輯框.內容)
線程_創建 (&線程池控制)
.子程序 __啟動窗口_創建完畢
ADSL.取寬帶用戶名密碼 (Adslname, Adsluser, Adslpwd)