魚刺線程池撥號模板
此功能需要加載精易模塊5.6和魚刺類_多線程應用模塊
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
.版本 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) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
