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