一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務(wù)器之家:專注于服務(wù)器技術(shù)及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務(wù)器之家 - 編程語言 - 易語言 - 易語言制作永恒之藍局域網(wǎng)掃描器的代碼

易語言制作永恒之藍局域網(wǎng)掃描器的代碼

2022-02-22 15:39易語言源碼貝貝吧 易語言

今天小編就為大家分享一篇關(guān)于易語言制作永恒之藍局域網(wǎng)掃描器的代碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

DLL命令表

?
1
2
3
.版本 2
.DLL命令 Sleep, , "kernel32.dll", "Sleep", 公開
  .參數(shù) dwMilliseconds, 整數(shù)型

接口程序集

?
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
.版本 2
.程序集 接口程序集
.子程序 取網(wǎng)段, 文本型
.參數(shù) IP地址, 文本型
返回 (取文本左邊 (IP地址, 倒找文本 (IP地址, “.”, , 假)))
.子程序 格式化尾數(shù), 文本型
.參數(shù) 文本, 文本型
返回 (文本替換 (“000”, 4 - 取文本長度 (文本), 取文本長度 (文本), 文本))
.子程序 格式化IP, 文本型
.參數(shù) IP地址, 文本型
返回 (取網(wǎng)段 (IP地址) + 格式化尾數(shù) (到文本 (取IP尾數(shù) (IP地址))))
.子程序 取IP尾數(shù), 整數(shù)型
.參數(shù) IP地址, 文本型
返回 (到整數(shù) (取文本右邊 (IP地址, 取文本長度 (IP地址) - 取文本長度 (取網(wǎng)段 (IP地址)))))
.子程序 ipadd, 文本型
.參數(shù) ip, 文本型
.局部變量 ip_arr_str, 文本型, , "4"
.局部變量 ip_arr_int, 整數(shù)型, , "4"
.局部變量 a, 整數(shù)型
ip_arr_str = 分割文本 (ip, “.”, )
.計次循環(huán)首 (4, a)
  ip_arr_int [a] = 到整數(shù) (ip_arr_str [a])
.計次循環(huán)尾 ()
ip_arr_int [4] = ip_arr_int [4] + 1
.如果真 (ip_arr_int [4] > 255)
  ip_arr_int [4] = 0
  ip_arr_int [3] = ip_arr_int [3] + 1
.如果真結(jié)束
.如果真 (ip_arr_int [3] > 255)
  ip_arr_int [3] = 0
  ip_arr_int [2] = ip_arr_int [2] + 1
.如果真結(jié)束
.如果真 (ip_arr_int [2] > 255)
  ip_arr_int [2] = 0
  ip_arr_int [1] = ip_arr_int [1] + 1
.如果真結(jié)束
返回 (到文本 (ip_arr_int [1]) + “.” + 到文本 (ip_arr_int [2]) + “.” + 到文本 (ip_arr_int [3]) + “.” + 到文本 (ip_arr_int [4]))

永恒之藍掃描器的原型,可以掃描出當前局域網(wǎng)內(nèi)的全部電腦

此功能需要加載超級列表框操作類模塊

?
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
112
113
114
115
116
117
118
119
120
121
.版本 2
.支持庫 EThread
.支持庫 sock
.支持庫 iext2
.支持庫 spec
.支持庫 eAPI
.支持庫 iext
.程序集 窗口程序集_啟動窗口
.程序集變量 網(wǎng)段, 文本型
.程序集變量 許可證, 整數(shù)型
.程序集變量 線程句柄
.程序集變量 超級列表框操作類, 超級列表框操作類
.程序集變量 列表框信息, 列表框信息, , "0"
.程序集變量 工作線程數(shù), 整數(shù)型
.子程序 __啟動窗口_創(chuàng)建完畢
初始化 ()
許可證 = 創(chuàng)建進入許可證 ()
.子程序 初始化
.局部變量 文本組, 文本型, , "0"
文本組 = 取本機IP ()
.如果真 (取數(shù)組成員數(shù) (文本組) ≥ 1)
  網(wǎng)段 = 取網(wǎng)段 (文本組 [1])
  IP編輯框_開始.地址 = 網(wǎng)段 + “1”
  IP編輯框_結(jié)束.地址 = 網(wǎng)段 + “255”
.如果真結(jié)束
超級列表框操作類._初始化類 (超級列表框1.取窗口句柄 ())
.子程序 _按鈕_開始掃描_被單擊
啟動線程 (&掃描主線程, 到整數(shù) (編輯框_線程數(shù).內(nèi)容), 線程句柄)
.子程序 掃描主線程
.參數(shù) 線程數(shù), 整數(shù)型
.局部變量 bool, 邏輯型
.局部變量 startip, 文本型
.局部變量 stopip, 文本型
.局部變量 address, 整數(shù)型
清除數(shù)組 (列表框信息)
超級列表框操作類.數(shù)據(jù)_全部刪除 ()
startip = IP編輯框_開始.地址
stopip = IP編輯框_結(jié)束.地址
bool = 真
.判斷循環(huán)首 (bool)
  .判斷循環(huán)首 (工作線程數(shù) ≥ 線程數(shù))
    Sleep (100)
  .判斷循環(huán)尾 ()
  address = 申請內(nèi)存 (15, )
  寫到內(nèi)存 (startip, address, 15)
  啟動線程 (&掃描子線程, address, )
  工作線程數(shù) = 工作線程數(shù) + 1
  .如果 (startip = stopip)
    跳出循環(huán) ()
  .否則
    startip = ipadd (startip)
  .如果結(jié)束
.判斷循環(huán)尾 ()
.子程序 掃描子線程
.參數(shù) 參數(shù), 整數(shù)型
.局部變量 time
.局部變量 ip, 文本型
.局部變量 局部_列表框信息, 列表框信息
重定義數(shù)組 (局部_列表框信息.列標題, 假, 3) ' 帶3個列
清除數(shù)組 (局部_列表框信息.列圖片索引) ' 不使用列圖標
ip = 指針到文本 (參數(shù))
time = 通信測試 (ip, 到整數(shù) (編輯框_延時.內(nèi)容))
.判斷開始 (time ≠ -1)
  局部_列表框信息.圖片索引 = 0
  局部_列表框信息.標題 = 格式化IP (ip)
  局部_列表框信息.列標題 [1] = 取遠程機器名 (ip)
  局部_列表框信息.列標題 [2] = 取遠程網(wǎng)卡物理地址 (ip)
  局部_列表框信息.列標題 [3] = 到文本 (time)
  進入許可區(qū) (許可證)
  狀態(tài)條1.置文本 (2, “存活主機數(shù):” + 到文本 (超級列表框1.取表項數(shù) ()))
  加入成員 (列表框信息, 局部_列表框信息)
  超級列表框1.全部刪除 ()
  超級列表框操作類.數(shù)據(jù)_高速插入表項 (, 列表框信息, #排序方式_表項標題排序)
  數(shù)組清零 (局部_列表框信息.列標題)
  退出許可區(qū) (許可證)
.默認
.判斷結(jié)束
進入許可區(qū) (許可證)
工作線程數(shù) = 工作線程數(shù) - 1
進度條1.位置 = (到整數(shù) (編輯框_線程數(shù).內(nèi)容) - 工作線程數(shù)) ÷ 到整數(shù) (編輯框_線程數(shù).內(nèi)容) × 100
.判斷開始 (工作線程數(shù) = 0)
  狀態(tài)條1.置文本 (0, “準備就緒”)
  進度條1.位置 = 0
.默認
  狀態(tài)條1.置文本 (0, “正在掃描...”)
.判斷結(jié)束
狀態(tài)條1.置文本 (1, “線程: ” + 到文本 (工作線程數(shù)))
退出許可區(qū) (許可證)
釋放內(nèi)存 (參數(shù))
.子程序 __啟動窗口_將被銷毀
刪除進入許可證 (許可證)
關(guān)閉線程句柄 (線程句柄)
.子程序 _按鈕2_被單擊
關(guān)閉線程句柄 (線程句柄)
強制結(jié)束線程 (線程句柄)
.子程序 _按鈕_導出_被單擊
.局部變量 文本, 文本型
.局部變量 i, 整數(shù)型
文本 = “IP地址” + 取空白文本 (15) + “主機名稱” + 取空白文本 (15) + “MAC地址” + 取空白文本 (12) + “延遲” + #換行符
.計次循環(huán)首 (超級列表框1.取表項數(shù) (), i)
  文本 = 文本 + 超級列表框1.取標題 (i - 1, 0) + 取空白文本 (10) + 超級列表框1.取標題 (i - 1, 1) + 取空白文本 (10) + 超級列表框1.取標題 (i - 1, 2) + 取空白文本 (10) + 超級列表框1.取標題 (i - 1, 3) + #換行符
.計次循環(huán)尾 ()
.如果真 (通用對話框1.打開 ())
  .判斷開始 (寫到文件 (通用對話框1.文件名, 到字節(jié)集 (文本)))
    信息框 (“導出成功!”, 64, )
  .默認
    信息框 (“導出失敗!”, 16, )
  .判斷結(jié)束
.如果真結(jié)束
.子程序 _編輯框_線程數(shù)_調(diào)節(jié)鈕被按下
.參數(shù) 按鈕值, 整數(shù)型
編輯框_線程數(shù).內(nèi)容 = 到文本 (到整數(shù) (編輯框_線程數(shù).內(nèi)容) + 按鈕值)
.子程序 _編輯框_線程數(shù)_內(nèi)容被改變
.判斷開始 (到整數(shù) (編輯框_線程數(shù).內(nèi)容) ≤ 0)
  編輯框_線程數(shù).內(nèi)容 = “100”
  信息框 (“數(shù)值必須大于0”, 48, )
.判斷 (到整數(shù) (編輯框_線程數(shù).內(nèi)容) > 1024)
  編輯框_線程數(shù).內(nèi)容 = “100”
  信息框 (“數(shù)值小于1024”, 48, )
.默認
.判斷結(jié)束

運行結(jié)果:

易語言制作永恒之藍局域網(wǎng)掃描器的代碼

總結(jié)

以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接

延伸 · 閱讀

精彩推薦
  • 易語言易語言生成exe文件的方法

    易語言生成exe文件的方法

    在本篇內(nèi)容中小編給大家分享的是關(guān)于易語言生成exe文件的方法知識點,需要的朋友們參考下。...

    易語言教程網(wǎng)14792022-03-01
  • 易語言實例操作易語言載入窗口

    實例操作易語言載入窗口

    在本文中小編給大家整理的是關(guān)于易語言載入窗口的教程和步驟內(nèi)容,需要的可以跟著學習下...

    易語言教程網(wǎng)19162022-03-02
  • 易語言易語言設(shè)置進度條邊框樣式的方法

    易語言設(shè)置進度條邊框樣式的方法

    今天小編就為大家分享一篇關(guān)于易語言設(shè)置進度條邊框樣式的方法,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊4422022-01-20
  • 易語言一步一步跟我學易語言之第二個易程序菜單設(shè)計

    一步一步跟我學易語言之第二個易程序菜單設(shè)計

    今天小編就為大家分享一篇關(guān)于的一步一步跟我學易語言之第二個易程序菜單設(shè)計,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要...

    易語言幫助手冊7092021-06-17
  • 易語言易語言獲取指定磁盤的名稱

    易語言獲取指定磁盤的名稱

    今天小編就為大家分享一篇關(guān)于易語言獲取指定磁盤的名稱,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來...

    易語言幫助手冊12662022-01-04
  • 易語言易語言關(guān)于程序進程和線程的基礎(chǔ)知識

    易語言關(guān)于程序進程和線程的基礎(chǔ)知識

    今天小編就為大家分享一篇關(guān)于易語言關(guān)于程序進程和線程的基礎(chǔ)知識,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起...

    三葉資源網(wǎng)6662022-02-24
  • 易語言易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    今天小編就為大家分享一篇關(guān)于易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,...

    易語言幫助手冊9092022-01-12
  • 易語言一步一步跟我學易語言之關(guān)于變量

    一步一步跟我學易語言之關(guān)于變量

    今天小編就為大家分享一篇關(guān)于一步一步跟我學易語言之關(guān)于變量,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊10822021-06-17
主站蜘蛛池模板: 日韩精品欧美高清区 | 五月一区二区久久综合天堂 | 欧美一卡二卡科技有限公司 | 亚洲国产中文字幕在线视频综合 | h在线动漫 | 亚洲男人精品 | 国产精品免费看香蕉 | 天堂8在线天堂资源bt | 亚洲爱v | 图片一区 | 久久久免费热线精品频 | 亚洲精彩视频在线观看 | 成人欧美一区二区三区黑人 | 久久国产影院 | 男人操女人免费视频 | 国产小视频在线播放 | 人人揉揉香蕉 | 2020国产精品亚洲综合网 | 国产综合成色在线视频 | 欧美日韩亚洲综合在线一区二区 | 天天综合天天影视色香欲俱全 | 美女主播免费观看 | 波多野结衣在线免费观看 | 欧美另类性xxoo | 日韩欧美视频二区 | 美女的让男人桶爽网站 | 温柔校草高h | 青草免费在线 | 国产日本欧美亚洲精品视 | 美女污视频在线观看 | 国产麻豆精品免费视频 | 无码人妻99久久密AV | 国产色司机在线视频免费观看 | 天堂在线国产 | 国产成人精品午夜免费 | 成人毛片高清视频观看 | 深夜在线看 | 免费视频精品一区二区三区 | 日本在线亚州精品视频在线 | 1717she精品视频在线观看 | 视频高清在线观看 |