易語言魚刺線程池?fù)芴?hào)模板

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