易語言如何制作網(wǎng)截抓包工具

這篇文章主要為大家展示了“易語言如何制作網(wǎng)截抓包工具”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“易語言如何制作網(wǎng)截抓包工具”這篇文章吧。

常量數(shù)據(jù)表

.版本 2
.常量 編碼常量, "<文本長度: 10797>", ,   名稱：編碼_GB2312  英文名稱：Encoding_GB2312   類型：文本型  值：“GB2312” 列舉各種編碼類型

全局變量表

.版本 2
.全局變量 系統(tǒng)配置路徑, 文本型

網(wǎng)截抓包工具

.版本 2
.支持庫 eNetIntercept
.支持庫 eGrid
.支持庫 iconv
.支持庫 iext
.支持庫 iext2
.程序集 主程序集
.程序集變量 服務(wù)安裝, 網(wǎng)絡(luò)服務(wù)安裝
.程序集變量 臨時句柄文件路徑, 文本型
.程序集變量 臨時進(jìn)程文件路徑, 文本型
.子程序 __啟動窗口_創(chuàng)建完畢
初始化 ()
.子程序 初始化
.局部變量 文本組, 文本型, , "0"
.局部變量 臨時整數(shù)變量, 整數(shù)型
.局部變量 加入位置, 整數(shù)型
.局部變量 取出值, 文本型
.如果真 (服務(wù)安裝.是否已安裝 () ＝ 假)
  .如果 (信息框 (“服務(wù)沒有安裝，是否現(xiàn)在安裝？”, #詢問圖標(biāo) ＋ #取消鈕, “初始化”) ＝ #確認(rèn)鈕)
    .如果真 (文件是否存在 (取運行目錄 () ＋ “\ESPI11.dll”) ＝ 假)
      .如果真 (寫到文件 (取運行目錄 () ＋ “\ESPI11.dll”, #安裝文件) ＝ 假)
        信息框 (“寫出文件錯誤！”, #錯誤圖標(biāo), “初始化”)
        結(jié)束 ()
      .如果真結(jié)束
    .如果真結(jié)束
    .如果 (服務(wù)安裝.安裝 (取運行目錄 () ＋ “\ESPI11.dll”) ＝ 假)
      信息框 (“服務(wù)安裝失敗！”, #錯誤圖標(biāo), “初始化”)
      結(jié)束 ()
    .否則
      信息框 (“服務(wù)安裝成功！”, #信息圖標(biāo), “初始化”)
    .如果結(jié)束
  .否則
    結(jié)束 ()
  .如果結(jié)束
.如果真結(jié)束
臨時句柄文件路徑 ＝ 取運行目錄 () ＋ “\” ＋ “Ws_sock.dep”
刪除文件 (臨時句柄文件路徑)
臨時進(jìn)程文件路徑 ＝ 取運行目錄 () ＋ “\” ＋ “Ws_jinchen.dep”
刪除文件 (臨時進(jìn)程文件路徑)
高級表格.列數(shù) ＝ 9
高級表格.行數(shù) ＝ 1
高級表格.置數(shù)據(jù) (0, 0, #表格常量.文本型, “PID”)
高級表格.置數(shù)據(jù) (0, 1, #表格常量.文本型, “進(jìn)程名”)
高級表格.置數(shù)據(jù) (0, 2, #表格常量.文本型, “進(jìn)程路徑”)
高級表格.置數(shù)據(jù) (0, 3, #表格常量.文本型, “轉(zhuǎn)IP”)
高級表格.置數(shù)據(jù) (0, 4, #表格常量.文本型, “轉(zhuǎn)端口”)
高級表格.置數(shù)據(jù) (0, 5, #表格常量.文本型, “清空發(fā)送”)
高級表格.置數(shù)據(jù) (0, 6, #表格常量.文本型, “清空接收”)
高級表格.置數(shù)據(jù) (0, 7, #表格常量.文本型, “過濾1”)
高級表格.置數(shù)據(jù) (0, 8, #表格常量.文本型, “過濾2”)
高級表格.置列類型 (5, #表格常量.選擇型)
高級表格.置列類型 (6, #表格常量.選擇型)
高級表格.置列類型 (7, #表格常量.選擇型)
高級表格.置列類型 (8, #表格常量.選擇型)
高級表格.置對齊方式 (0, 0, , 8, #表格常量.居中對齊)
文本組 ＝ 分割文本 (#編碼常量, #換行符, )
.計次循環(huán)首 (取數(shù)組成員數(shù) (文本組), 臨時整數(shù)變量)
  .如果真 (尋找文本 (文本組 [臨時整數(shù)變量], #左引號, , 假) ≠ -1)
    取出值 ＝ 取文本之間 (文本組 [臨時整數(shù)變量], #左引號, #右引號)
    加入位置 ＝ 源編碼組合框.加入項目 (取出值, )
    .如果真 (取出值 ＝ #編碼_UTF_8)
      源編碼組合框.現(xiàn)行選中項 ＝ 加入位置
    .如果真結(jié)束
    加入位置 ＝ 目編碼組合框.加入項目 (取出值, )
    .如果真 (取出值 ＝ #編碼_GB2312)
      目編碼組合框.現(xiàn)行選中項 ＝ 加入位置
    .如果真結(jié)束
  .如果真結(jié)束
.計次循環(huán)尾 ()
_啟動窗口.寬度 ＝ 800
_啟動窗口.高度 ＝ 600
__啟動窗口_尺寸被改變 ()
.子程序 調(diào)整列寬
.局部變量 臨時整數(shù)變量, 整數(shù)型
.局部變量 單格大小, 整數(shù)型
單格大小 ＝ 高級表格.寬度 ÷ 100
.計次循環(huán)首 (9, 臨時整數(shù)變量)
  高級表格.置列寬 (臨時整數(shù)變量 － 1, 多項選擇 (臨時整數(shù)變量, 單格大小 × 8, 單格大小 × 13, 單格大小 × 18, 單格大小 × 16, 單格大小 × 8, 單格大小 × 10, 單格大小 × 10, 單格大小 × 8, 單格大小 × 8))
.計次循環(huán)尾 ()
發(fā)送數(shù)據(jù)列表框.置列寬 (6, 發(fā)送數(shù)據(jù)列表框.寬度 － 500)
.子程序 __啟動窗口_可否被關(guān)閉, 邏輯型
網(wǎng)截.關(guān)閉 ()
.子程序 __啟動窗口_尺寸被改變
.如果真 (_啟動窗口.寬度 ＜ 800)
  _啟動窗口.寬度 ＝ 800
.如果真結(jié)束
.如果真 (_啟動窗口.高度 ＜ 600)
  _啟動窗口.高度 ＝ 600
.如果真結(jié)束
數(shù)據(jù)分組框.寬度 ＝ _啟動窗口.寬度 － 12
發(fā)送數(shù)據(jù)列表框.寬度 ＝ 數(shù)據(jù)分組框.寬度 － 15
數(shù)據(jù)分組框.高度 ＝ _啟動窗口.高度 － 過濾分組框.高度 － 詳細(xì)分組框.高度 － 95
發(fā)送數(shù)據(jù)列表框.高度 ＝ 數(shù)據(jù)分組框.高度 － 25
過濾分組框.頂邊 ＝ 數(shù)據(jù)分組框.頂邊 ＋ 數(shù)據(jù)分組框.高度
詳細(xì)分組框.頂邊 ＝ 過濾分組框.頂邊 ＋ 過濾分組框.高度
詳細(xì)分組框.寬度 ＝ 數(shù)據(jù)分組框.寬度 － 全局分組框.寬度 － 1
過濾分組框.寬度 ＝ 數(shù)據(jù)分組框.寬度
高級表格.寬度 ＝ 過濾分組框.寬度 － 10
編碼轉(zhuǎn)換編輯框.寬度 ＝ 詳細(xì)分組框.寬度 ÷ 2 － 7
原始數(shù)據(jù)標(biāo)簽.左邊 ＝ 詳細(xì)分組框.寬度 － 5 － 編碼轉(zhuǎn)換編輯框.寬度
原始數(shù)據(jù)編輯框.左邊 ＝ 原始數(shù)據(jù)標(biāo)簽.左邊
原始數(shù)據(jù)編輯框.寬度 ＝ 編碼轉(zhuǎn)換編輯框.寬度
全局分組框.頂邊 ＝ 詳細(xì)分組框.頂邊
全局分組框.左邊 ＝ 詳細(xì)分組框.寬度 ＋ 1
調(diào)整列寬 ()
.子程序 _發(fā)送數(shù)據(jù)列表框_當(dāng)前表項被改變
.局部變量 轉(zhuǎn)換前, 字節(jié)集
.局部變量 轉(zhuǎn)換后, 字節(jié)集
轉(zhuǎn)換前 ＝ 到字節(jié)集 (發(fā)送數(shù)據(jù)列表框.取標(biāo)題 (發(fā)送數(shù)據(jù)列表框.現(xiàn)行選中項, 6))
原始數(shù)據(jù)編輯框.內(nèi)容 ＝ 發(fā)送數(shù)據(jù)列表框.取標(biāo)題 (發(fā)送數(shù)據(jù)列表框.現(xiàn)行選中項, 6)
轉(zhuǎn)換后 ＝ 編碼轉(zhuǎn)換 (轉(zhuǎn)換前, 源編碼組合框.取項目文本 (源編碼組合框.現(xiàn)行選中項), 目編碼組合框.取項目文本 (目編碼組合框.現(xiàn)行選中項), )
編碼轉(zhuǎn)換編輯框.內(nèi)容 ＝ 彗星URL解碼 (到文本 (轉(zhuǎn)換后))
.子程序 _工具條_被單擊
.參數(shù) 按鈕索引, 整數(shù)型
.判斷開始 (按鈕索引 ＝ 0)
  .如果真 (網(wǎng)截.打開 () ＝ 假)
    信息框 (“啟動失敗！”, #錯誤圖標(biāo), )
    返回 ()
  .如果真結(jié)束
  工具條.加入狀態(tài) (0, #按下)
  工具條.去除狀態(tài) (2, #按下)
.判斷 (按鈕索引 ＝ 2)
  .如果真 (網(wǎng)截.關(guān)閉 () ＝ 假)
    信息框 (“停止失敗！”, #錯誤圖標(biāo), )
    返回 ()
  .如果真結(jié)束
  工具條.加入狀態(tài) (2, #按下)
  工具條.去除狀態(tài) (0, #按下)
.判斷 (按鈕索引 ＝ 4)
  發(fā)送數(shù)據(jù)列表框.全部刪除 ()
.判斷 (按鈕索引 ＝ 6)
.判斷 (按鈕索引 ＝ 8)
.默認(rèn)
.判斷結(jié)束
.子程序 _網(wǎng)截_調(diào)綁定, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)址, 網(wǎng)址信息, 參考
.局部變量 IP段1, 字節(jié)型
.局部變量 IP段2, 字節(jié)型
.局部變量 IP段3, 字節(jié)型
.局部變量 IP段4, 字節(jié)型
.局部變量 端口號, 整數(shù)型
網(wǎng)址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “bdip”, 到文本 (IP段1) ＋ “.” ＋ 到文本 (IP段2) ＋ “.” ＋ 到文本 (IP段3) ＋ “.” ＋ 到文本 (IP段4))
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “bddk”, 到文本 (端口號))
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)偵聽, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 等待隊列長度, 整數(shù)型, 參考
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)連接, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)址, 網(wǎng)址信息, 參考
.局部變量 IP段1, 字節(jié)型
.局部變量 IP段2, 字節(jié)型
.局部變量 IP段3, 字節(jié)型
.局部變量 IP段4, 字節(jié)型
.局部變量 端口號, 整數(shù)型
.局部變量 全_IP, 文本型
.局部變量 IP段組, 文本型, , "0"
.局部變量 新端口號, 整數(shù)型
網(wǎng)址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
全_IP ＝ 到文本 (IP段1) ＋ “.” ＋ 到文本 (IP段2) ＋ “.” ＋ 到文本 (IP段3) ＋ “.” ＋ 到文本 (IP段4)
.如果真 (轉(zhuǎn)IP選擇框.選中 ＝ 真)
  IP段組 ＝ 分割文本 (IP編輯框.地址, “.”, )
  .如果真 (取數(shù)組成員數(shù) (IP段組) ≠ 4)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (轉(zhuǎn)端口選擇框.選中 ＝ 真)
  新端口號 ＝ 到整數(shù) (端口編輯框.內(nèi)容)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (IP段組) ＝ 4 且 新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “全轉(zhuǎn)-” ＋ 到文本 (IP段組 [1]) ＋ “.” ＋ 到文本 (IP段組 [2]) ＋ “.” ＋ 到文本 (IP段組 [3]) ＋ “.” ＋ 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “全轉(zhuǎn)-” ＋ 到文本 (新端口號))
  網(wǎng)址.置IP端口 (到字節(jié) (IP段組 [1]), 到字節(jié) (IP段組 [2]), 到字節(jié) (IP段組 [3]), 到字節(jié) (IP段組 [4]), 新端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (IP段組) ＝ 4)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “全轉(zhuǎn)-” ＋ 到文本 (IP段組 [1]) ＋ “.” ＋ 到文本 (IP段組 [2]) ＋ “.” ＋ 到文本 (IP段組 [3]) ＋ “.” ＋ 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
  網(wǎng)址.置IP端口 (到字節(jié) (IP段組 [1]), 到字節(jié) (IP段組 [2]), 到字節(jié) (IP段組 [3]), 到字節(jié) (IP段組 [4]), 端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 到文本 (IP段1) ＋ “.” ＋ 到文本 (IP段2) ＋ “.” ＋ 到文本 (IP段3) ＋ “.” ＋ 到文本 (IP段4))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “全轉(zhuǎn)-” ＋ 到文本 (新端口號))
  網(wǎng)址.置IP端口 (IP段1, IP段2, IP段3, IP段4, 新端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “ip”, ) ≠ “”)
  IP段組 ＝ 分割文本 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “ip”, ), “.”, )
  .如果真 (取數(shù)組成員數(shù) (IP段組) ≠ 4)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “port”, ) ≠ “”)
  新端口號 ＝ 到整數(shù) (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “port”, ))
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (IP段組) ＝ 4 且 新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “單轉(zhuǎn)-” ＋ 到文本 (IP段組 [1]) ＋ “.” ＋ 到文本 (IP段組 [2]) ＋ “.” ＋ 到文本 (IP段組 [3]) ＋ “.” ＋ 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “單轉(zhuǎn)-” ＋ 到文本 (新端口號))
  網(wǎng)址.置IP端口 (到字節(jié) (IP段組 [1]), 到字節(jié) (IP段組 [2]), 到字節(jié) (IP段組 [3]), 到字節(jié) (IP段組 [4]), 新端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (取數(shù)組成員數(shù) (IP段組) ＝ 4)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, “單轉(zhuǎn)-” ＋ 到文本 (IP段組 [1]) ＋ “.” ＋ 到文本 (IP段組 [2]) ＋ “.” ＋ 到文本 (IP段組 [3]) ＋ “.” ＋ 到文本 (IP段組 [4]))
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
  網(wǎng)址.置IP端口 (到字節(jié) (IP段組 [1]), 到字節(jié) (IP段組 [2]), 到字節(jié) (IP段組 [3]), 到字節(jié) (IP段組 [4]), 端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (新端口號 ≠ 0)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 全_IP)
  寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, “單轉(zhuǎn)-” ＋ 到文本 (新端口號))
  網(wǎng)址.置IP端口 (IP段1, IP段2, IP段3, IP段4, 新端口號)
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, 全_IP)
寫配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, 到文本 (端口號))
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)發(fā)送, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)絡(luò)數(shù)據(jù), 網(wǎng)絡(luò)數(shù)據(jù), 參考
.參數(shù) 調(diào)用方式, 整數(shù)型, 參考
.局部變量 表項索引, 整數(shù)型
.局部變量 數(shù)據(jù)內(nèi)容, 字節(jié)型
.局部變量 文本數(shù)據(jù), 文本型
.如果真 (清空發(fā)送選擇框.選中 ＝ 真) ' 全局過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↑”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, “數(shù)據(jù)被清空”)
  網(wǎng)絡(luò)數(shù)據(jù).釋放 ()
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ) ＝ “”) ' 過濾IP為空的數(shù)據(jù)局
  返回 (#攔截操作.默認(rèn)調(diào)用)
.如果真結(jié)束
.如果真 (暫停過濾選擇框.選中 ＝ 真) ' 全局暫停過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↑”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, 文本數(shù)據(jù))
  返回 (#攔截操作.默認(rèn)調(diào)用)
.如果真結(jié)束
文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
.如果真 (過濾1選擇框.選中 ＝ 真) ' 全局過濾
  .如果真 (網(wǎng)絡(luò)數(shù)據(jù).取長度 () ≤ 1)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (過濾2選擇框.選中 ＝ 真)
  .如果真 (到大寫 (取文本左邊 (文本數(shù)據(jù), 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數(shù)據(jù), 4)) ≠ “POST”)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “fs”, ) ＝ “真”) ' 單進(jìn)程過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↑”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, “數(shù)據(jù)被清空”)
  網(wǎng)絡(luò)數(shù)據(jù).釋放 ()
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “1”, ) ＝ “真”)
  .如果真 (網(wǎng)絡(luò)數(shù)據(jù).取長度 () ≤ 1)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “2”, ) ＝ “真”)
  .如果真 (到大寫 (取文本左邊 (文本數(shù)據(jù), 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數(shù)據(jù), 4)) ≠ “POST”)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , ) ' 所有過濾關(guān)閉
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↑”)
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, 文本數(shù)據(jù))
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)接收, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)絡(luò)數(shù)據(jù), 網(wǎng)絡(luò)數(shù)據(jù), 參考
.參數(shù) 調(diào)用方式, 整數(shù)型, 參考
.局部變量 表項索引, 整數(shù)型
.局部變量 數(shù)據(jù)內(nèi)容, 字節(jié)型
.局部變量 文本數(shù)據(jù), 文本型
.如果真 (清空接收選擇框.選中 ＝ 真) ' 全局過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↓”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, “數(shù)據(jù)被清空”)
  網(wǎng)絡(luò)數(shù)據(jù).釋放 ()
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ) ＝ “”) ' 過濾IP為空的數(shù)據(jù)局
  返回 (#攔截操作.默認(rèn)調(diào)用)
.如果真結(jié)束
.如果真 (暫停過濾選擇框.選中 ＝ 真) ' 全局暫停過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↓”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, 文本數(shù)據(jù))
  返回 (#攔截操作.默認(rèn)調(diào)用)
.如果真結(jié)束
文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
.如果真 (過濾1選擇框.選中 ＝ 真) ' 全局過濾
  .如果真 (網(wǎng)絡(luò)數(shù)據(jù).取長度 () ≤ 1)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (過濾2選擇框.選中 ＝ 真)
  .如果真 (到大寫 (取文本左邊 (文本數(shù)據(jù), 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數(shù)據(jù), 4)) ≠ “POST”)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (讀配置項 (臨時句柄文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “js”, ) ＝ “真”) ' 單進(jìn)程過濾
  文本數(shù)據(jù) ＝ 網(wǎng)絡(luò)數(shù)據(jù).到文本 ()
  表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , )
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↓”)
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
  發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, “數(shù)據(jù)被清空”)
  網(wǎng)絡(luò)數(shù)據(jù).釋放 ()
  返回 (#攔截操作.更改調(diào)用)
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “1”, ) ＝ “真”)
  .如果真 (網(wǎng)絡(luò)數(shù)據(jù).取長度 () ≤ 1)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “2”, ) ＝ “真”)
  .如果真 (到大寫 (取文本左邊 (文本數(shù)據(jù), 3)) ≠ “GET” 且 到大寫 (取文本左邊 (文本數(shù)據(jù), 4)) ≠ “POST”)
    返回 (#攔截操作.默認(rèn)調(diào)用)
  .如果真結(jié)束
.如果真結(jié)束
表項索引 ＝ 發(fā)送數(shù)據(jù)列表框.插入表項 (, , , , , ) ' 所有過濾關(guān)閉
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 0, “↓”)
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 1, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 2, 讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 3, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycip”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 4, 讀配置項 (臨時句柄文件路徑, 到文本 (套接字句柄), “ycdk”, ))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 5, 到文本 (網(wǎng)絡(luò)數(shù)據(jù).取長度 ()))
發(fā)送數(shù)據(jù)列表框.置標(biāo)題 (表項索引, 6, 文本數(shù)據(jù))
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)創(chuàng)建套接字, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 地址族, 整數(shù)型, 參考
.參數(shù) 格式, 整數(shù)型, 參考
.參數(shù) 協(xié)議, 整數(shù)型, 參考
.局部變量 臨時整數(shù)變量, 整數(shù)型
.局部變量 行索引, 整數(shù)型
.局部變量 進(jìn)程路徑, 文本型
.如果真 (讀配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, ) ≠ “”)
  返回 (#攔截操作.默認(rèn)調(diào)用)
.如果真結(jié)束
高級表格.行數(shù) ＝ 高級表格.行數(shù) ＋ 1
行索引 ＝ 高級表格.行數(shù) － 1
進(jìn)程路徑 ＝ 調(diào)用者信息.取進(jìn)程名 ()
高級表格.置數(shù)據(jù) (行索引, 0, #表格常量.文本型, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()))
高級表格.置數(shù)據(jù) (行索引, 1, #表格常量.文本型, 取文本右邊 (進(jìn)程路徑, 取文本長度 (進(jìn)程路徑) － 倒找文本 (進(jìn)程路徑, “\”, , 假)))
高級表格.置數(shù)據(jù) (行索引, 2, #表格常量.文本型, 進(jìn)程路徑)
高級表格.置數(shù)據(jù) (行索引, 3, #表格常量.文本型, “”)
高級表格.置數(shù)據(jù) (行索引, 4, #表格常量.文本型, “”)
高級表格.置數(shù)據(jù) (行索引, 5, #表格常量.選擇型, 假)
高級表格.置數(shù)據(jù) (行索引, 6, #表格常量.選擇型, 假)
高級表格.置數(shù)據(jù) (行索引, 7, #表格常量.選擇型, 假)
高級表格.置數(shù)據(jù) (行索引, 8, #表格常量.選擇型, 假)
寫配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “mc”, 取文本右邊 (進(jìn)程路徑, 取文本長度 (進(jìn)程路徑) － 倒找文本 (進(jìn)程路徑, “\”, , 假)))
寫配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “fs”, “假”)
寫配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “js”, “假”)
寫配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “1”, “假”)
寫配置項 (臨時進(jìn)程文件路徑, 到文本 (調(diào)用者信息.取進(jìn)程標(biāo)識 ()), “2”, “假”)
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)關(guān)閉套接字
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.子程序 _網(wǎng)截_調(diào)許可連接, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)址, 網(wǎng)址信息, 參考
.局部變量 IP段1, 字節(jié)型
.局部變量 IP段2, 字節(jié)型
.局部變量 IP段3, 字節(jié)型
.局部變量 IP段4, 字節(jié)型
.局部變量 端口號, 整數(shù)型
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)定向發(fā)送, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)絡(luò)數(shù)據(jù), 網(wǎng)絡(luò)數(shù)據(jù), 參考
.參數(shù) 調(diào)用方式, 整數(shù)型, 參考
.參數(shù) 網(wǎng)址, 網(wǎng)址信息, 參考
.局部變量 IP段1, 字節(jié)型
.局部變量 IP段2, 字節(jié)型
.局部變量 IP段3, 字節(jié)型
.局部變量 IP段4, 字節(jié)型
.局部變量 端口號, 整數(shù)型
返回 (#攔截操作.默認(rèn)調(diào)用)
網(wǎng)址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 _網(wǎng)截_調(diào)定向接收, 整數(shù)型
.參數(shù) 調(diào)用者信息, 調(diào)用者信息, 參考
.參數(shù) 套接字句柄, 整數(shù)型, 參考
.參數(shù) 網(wǎng)絡(luò)數(shù)據(jù), 網(wǎng)絡(luò)數(shù)據(jù), 參考
.參數(shù) 調(diào)用方式, 整數(shù)型, 參考
.參數(shù) 網(wǎng)址, 網(wǎng)址信息, 參考
.局部變量 IP段1, 字節(jié)型
.局部變量 IP段2, 字節(jié)型
.局部變量 IP段3, 字節(jié)型
.局部變量 IP段4, 字節(jié)型
.局部變量 端口號, 整數(shù)型
返回 (#攔截操作.默認(rèn)調(diào)用)
網(wǎng)址.取IP端口 (IP段1, IP段2, IP段3, IP段4, 端口號)
返回 (#攔截操作.默認(rèn)調(diào)用)
.子程序 彗星URL解碼, 文本型, 公開, 返回已解碼的URL
.參數(shù) Bin_URL, 文本型, , 欲解碼的文本
.局部變量 循環(huán)容器, 整數(shù)型
.局部變量 Len, 整數(shù)型
.局部變量 HEX, 文本型
.局部變量 目標(biāo), 文本型
.局部變量 H, 整數(shù)型
.局部變量 L, 整數(shù)型
Len ＝ 取文本長度 (Bin_URL)
循環(huán)容器 ＝ 1
HEX ＝ “0123456789ABCDEF”
.判斷循環(huán)首 (循環(huán)容器 ≤ Len)
  .判斷開始 (取文本中間 (Bin_URL, 循環(huán)容器, 1) ≠ “%”)
    目標(biāo) ＝ 目標(biāo) ＋ 取文本中間 (Bin_URL, 循環(huán)容器, 1)
  .默認(rèn)
    循環(huán)容器 ＝ 循環(huán)容器 ＋ 1
    H ＝ 尋找文本 (HEX, 到大寫 (取文本中間 (Bin_URL, 循環(huán)容器, 1)), , 假) － 1
    循環(huán)容器 ＝ 循環(huán)容器 ＋ 1
    L ＝ 尋找文本 (HEX, 到大寫 (取文本中間 (Bin_URL, 循環(huán)容器, 1)), , 假) － 1
    目標(biāo) ＝ 目標(biāo) ＋ 字符 (H × 16 ＋ L)
  .判斷結(jié)束
  循環(huán)容器 ＝ 循環(huán)容器 ＋ 1
.判斷循環(huán)尾 ()
返回 (目標(biāo))
.子程序 _高級表格_結(jié)束編輯
.局部變量 x, 整數(shù)型
.局部變量 y, 整數(shù)型
x ＝ 高級表格.取光標(biāo)列號 ()
y ＝ 高級表格.取光標(biāo)行號 ()
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “ip”, 高級表格.取數(shù)據(jù) (y, 3))
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “port”, 高級表格.取數(shù)據(jù) (y, 4))
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “fs”, 到文本 (高級表格.取數(shù)據(jù) (y, 5)))
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “js”, 到文本 (高級表格.取數(shù)據(jù) (y, 6)))
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “1”, 到文本 (高級表格.取數(shù)據(jù) (y, 7)))
寫配置項 (臨時進(jìn)程文件路徑, 高級表格.取數(shù)據(jù) (y, 0), “2”, 到文本 (高級表格.取數(shù)據(jù) (y, 8)))
.子程序 _轉(zhuǎn)IP選擇框_被單擊
IP編輯框.禁止 ＝ 取反 (轉(zhuǎn)IP選擇框.選中)
.子程序 _轉(zhuǎn)端口選擇框_被單擊
端口編輯框.禁止 ＝ 取反 (轉(zhuǎn)端口選擇框.選中)
.子程序 取文本之間, 文本型
.參數(shù) 被搜尋的文本, 文本型
.參數(shù) 開始文本, 文本型
.參數(shù) 結(jié)束文本, 文本型
.局部變量 文本長度, 整數(shù)型
.局部變量 開始位置, 整數(shù)型
.局部變量 取出長度, 整數(shù)型
.局部變量 a
.局部變量 b
文本長度 ＝ 取文本長度 (開始文本)
a ＝ 尋找文本 (被搜尋的文本, 開始文本, , 真)
.如果真 (a ≠ -1)
  開始位置 ＝ a ＋ 文本長度
  b ＝ 尋找文本 (被搜尋的文本, 結(jié)束文本, 開始位置, 真)
  .如果真 (b ≠ -1)
    取出長度 ＝ b － 開始位置
    返回 (取文本中間 (被搜尋的文本, 開始位置, 取出長度))
  .如果真結(jié)束
.如果真結(jié)束
返回 (“”)

運行結(jié)果：

以上是“易語言如何制作網(wǎng)截抓包工具”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注億速云行業(yè)資訊頻道！