.版本 2
.支持庫 eNetIntercept
.支持庫 eAPI
.程序集 攔截指定進程聯(lián)網
.程序集變量 被攔截進程名, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 a, 網絡服務安裝
.局部變量 b, 系統(tǒng)信息
被攔截進程名 ＝ “被攔截.EXE” ' 要攔截的程序
.如果真 (a.是否已安裝 () ＝ 假)
  取系統(tǒng)信息 (b)
  寫到文件 (b.系統(tǒng)目錄 ＋ “\ESPI11.dll”, #服務文件)
  a.安裝 (b.系統(tǒng)目錄 ＋ “\ESPI11.dll”)
.如果真結束
.如果真 (網截1.打開 () ＝ 假)
  信息框 (“獲取失敗”, 0, )
.如果真結束
網截1.打開 ()
編輯框1.是否允許多行 ＝ 真
編輯框1.滾動條 ＝ 2
.子程序 _網截1_調創(chuàng)建套接字, 整數(shù)型
.參數(shù) 調用者信息, 調用者信息, 參考
.參數(shù) 地址族, 整數(shù)型, 參考
.參數(shù) 格式, 整數(shù)型, 參考
.參數(shù) 協(xié)議, 整數(shù)型, 參考
.局部變量 N, 文本型
N ＝ 到大寫 (取文本右邊 (調用者信息.取進程名 (), 取文本長度 (調用者信息.取進程名 ()) － 倒找文本 (調用者信息.取進程名 (), “\”, , 假)))
.如果真 (N ＝ 被攔截進程名)
  編輯框1.加入文本 (到文本 (取分鐘 (取現(xiàn)行時間 ())) ＋ “：” ＋ 到文本 (取秒 (取現(xiàn)行時間 ())) ＋ “ 愚蠢的【” ＋ N ＋ “】一次又一次的自尋死路 結果卻毫無意義” ＋ #換行符)
  返回 (#攔截操作.關閉連接)
.如果真結束
.子程序 __啟動窗口_將被銷毀
網截1.關閉 ()

運行結果：