攔截指定程序聯(lián)網(wǎng)的代碼
|
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
|
.版本 2.支持庫(kù) eNetIntercept.支持庫(kù) eAPI.程序集 攔截指定進(jìn)程聯(lián)網(wǎng).程序集變量 被攔截進(jìn)程名, 文本型.子程序 __啟動(dòng)窗口_創(chuàng)建完畢.局部變量 a, 網(wǎng)絡(luò)服務(wù)安裝.局部變量 b, 系統(tǒng)信息被攔截進(jìn)程名 ＝ “被攔截.EXE” ' 要攔截的程序.如果真 (a.是否已安裝 () ＝ 假) 取系統(tǒng)信息 (b) 寫到文件 (b.系統(tǒng)目錄 ＋ “\ESPI11.dll”, #服務(wù)文件) a.安裝 (b.系統(tǒng)目錄 ＋ “\ESPI11.dll”).如果真結(jié)束.如果真 (網(wǎng)截1.打開(kāi) () ＝ 假) 信息框 (“獲取失敗”, 0, ).如果真結(jié)束網(wǎng)截1.打開(kāi) ()編輯框1.是否允許多行 ＝ 真編輯框1.滾動(dòng)條 ＝ 2.子程序 _網(wǎng)截1_調(diào)創(chuàng)建套接字, 整數(shù)型.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考.參數(shù) 地址族, 整數(shù)型, 參考.參數(shù) 格式, 整數(shù)型, 參考.參數(shù) 協(xié)議, 整數(shù)型, 參考.局部變量 N, 文本型N ＝ 到大寫 (取文本右邊 (調(diào)用者信息.取進(jìn)程名 (), 取文本長(zhǎng)度 (調(diào)用者信息.取進(jìn)程名 ()) － 倒找文本 (調(diào)用者信息.取進(jìn)程名 (), “\”, , 假))).如果真 (N ＝ 被攔截進(jìn)程名) 編輯框1.加入文本 (到文本 (取分鐘 (取現(xiàn)行時(shí)間 ())) ＋ “：” ＋ 到文本 (取秒 (取現(xiàn)行時(shí)間 ())) ＋ “ 愚蠢的【” ＋ N ＋ “】一次又一次的自尋死路 結(jié)果卻毫無(wú)意義” ＋ #換行符) 返回 (#攔截操作.關(guān)閉連接).如果真結(jié)束.子程序 __啟動(dòng)窗口_將被銷毀網(wǎng)截1.關(guān)閉 () |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
