.版本 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_退出許可區 (許可).子程序 登錄, 邏輯型.參數 賬號, 文本型.參數 密碼, 文本型.參數 返回登錄結果, 文本型, 參考 可空.局部變量 II ＝ 到整數 (文本_取隨機范圍數字 (1, 9))' ///// 這里我寫成隨機的.如果真 (I ＝ 1) ' 隨機生成1-10之間的數，如果是 1 則返回驗證碼錯誤  返回登錄結果 ＝ “驗證碼錯誤”  返回 (假).如果真結束.如果真 (I ＝ 2) ' 隨機生成1-10之間的數....  返回登錄結果 ＝ “密碼錯誤”  返回 (假).如果真結束.如果真 (I ＝ 3) ' 隨機生成1-10之間的數....  返回登錄結果 ＝ “IP被限制”  返回 (假).如果真結束' 其他的隨機數均為成功返回登錄結果 ＝ “登錄成功”返回 (真).子程序 _開始按鈕_被單擊失敗重登 ＝ 失敗重登選擇框.選中失敗重登次數 ＝ 到整數 (重登次數編輯框.內容)撥號頻率 ＝ 到整數 (頻率編輯框.內容)線程_創建 (&線程池控制).子程序 __啟動窗口_創建完畢ADSL.取寬帶用戶名密碼 (Adslname, Adsluser, Adslpwd)