.版本?2

.支持庫?iext

.支持庫?eAPI

.程序集?窗口程序集1

.程序集變量?進程信息,?進程連接信息,?,?"0"

.程序集變量?狀態數組,?文本型,?,?"0"

.子程序?_窗口1_創建完畢

狀態數組?＝?{?“未知”,?“已經關閉”,?“監聽”,?“發送同步空閑字符”,?“接收同步空閑字符”,?“數據交換中”,?“結束等待1”,?“結束等待2”,?“關閉等待”,?“關閉中”,?“命令正確應答”,?“連接等待”,?“刪除TCP連接”?}

取進程連接?()

.子程序?取進程連接,?,?,?返回數目?借用網上大俠的源碼

.局部變量?數據,?字節集

.局部變量?緩沖區大小,?整數型

.局部變量?數量,?整數型

.局部變量?位置1,?整數型

.局部變量?地址,?字節集

.局部變量?狀態,?整數型

.局部變量?本地地址,?整數型

.局部變量?本地端口,?整數型

.局部變量?遠程地址,?整數型

.局部變量?遠程端口,?整數型

.局部變量?進程ID,?整數型

.局部變量?局部_進程信息,?進程連接信息

.局部變量?I,?整數型

超級列表框1.全部刪除?()

API_GetExtendedTcpTable?(數據,?緩沖區大小,?假,?2,?5,?0)

數據?＝?取空白字節集?(緩沖區大小)

API_GetExtendedTcpTable?(數據,?緩沖區大小,?假,?2,?5,?0)

數量?＝?取字節集數據?(取字節集左邊?(數據,?4),?3,?)

位置1?＝?4

清除數組?(進程信息)

.如果真?(數量?＝?0)

返回?()

.如果真結束

.計次循環首?(數量,?I)

狀態?＝?取字節集數據?(取字節集中間?(數據,?位置1?＋?1,?4),?3,?)

地址?＝?取字節集中間?(數據,?位置1?＋?5,?4)

本地端口?＝?取字節集數據?(取字節集中間?(數據,?位置1?＋?9,?4),?3,?)

遠程端口?＝?取字節集數據?(取字節集中間?(數據,?位置1?＋?17,?4),?3,?)

進程ID?＝?取字節集數據?(取字節集中間?(數據,?位置1?＋?21,?4),?3,?)

本地地址?＝?取字節集數據?(取字節集中間?(地址,?1,?4),?#整數型,?)

地址?＝?取字節集中間?(數據,?位置1?＋?13,?4)

遠程地址?＝?取字節集數據?(取字節集中間?(地址,?1,?4),?#整數型,?)

局部_進程信息.進程ID?＝?進程ID

局部_進程信息.進程連接.dwState?＝?狀態

局部_進程信息.進程連接.dwLocalAddr?＝?本地地址

局部_進程信息.進程連接.dwLocalPort?＝?本地端口

局部_進程信息.進程連接.dwRemoteAddr?＝?遠程地址

局部_進程信息.進程連接.dwRemotePort?＝?遠程端口

超級列表框1.插入表項?(,?,?,?,?,?)

超級列表框1.置標題?(I?－?1,?0,?到文本?(進程ID))

超級列表框1.置標題?(I?－?1,?1,?取進程名?(進程ID))

超級列表框1.置標題?(I?－?1,?2,?GetAscIP?(本地地址))

超級列表框1.置標題?(I?－?1,?3,?到文本?(API_ntohs?(本地端口)))

超級列表框1.置標題?(I?－?1,?4,?GetAscIP?(遠程地址))

超級列表框1.置標題?(I?－?1,?5,?到文本?(API_ntohs?(遠程端口)))

超級列表框1.置標題?(I?－?1,?6,?狀態數組?[狀態?＋?1])

位置1?＝?位置1?＋?24

加入成員?(進程信息,?局部_進程信息)

.計次循環尾?()

.子程序?GetAscIP,?文本型

.參數?inn,?整數型

.局部變量?nStr,?整數型

.局部變量?lpStr,?整數型

.局部變量?retString,?文本型

retString?＝?取空白文本?(32)

lpStr?＝?API_inet_ntoa?(inn)

.如果?(lpStr?≠?0)

nStr?＝?API_lstrlen?(lpStr)

.如果真?(nStr?＞?32)

nStr?＝?32

.如果真結束

API_CopyMemory?(retString,?lpStr,?nStr)

retString?＝?取文本左邊?(retString,?nStr)

返回?(retString)

.否則

返回?(“無法獲取IP”)

.如果結束

.子程序?取進程名,?文本型

.參數?進程ID,?整數型

.局部變量?系統進程,?進程信息,?,?"0"

.局部變量?計次變量,?整數型

系統進程?＝?取系統進程列表?()

.計次循環首?(取數組成員數?(系統進程),?計次變量)

.如果真?(系統進程?[計次變量].進程標識符?＝?進程ID)

返回?(系統進程?[計次變量].進程名稱)

跳出循環?()

.如果真結束

.計次循環尾?()

返回?(“”)

.子程序?_按鈕1_被單擊

.局部變量?I,?整數型

.計次循環首?(取數組成員數?(進程信息),?I)

.如果真?(到整數?(超級列表框1.取標題?(超級列表框1.現行選中項,?0))?＝?進程信息?[I].進程ID)

進程信息?[I].進程連接.dwState?＝?#MIB_TCP_STATE_DELETE_TCB

API_SetTcpEntry?(進程信息?[I].進程連接)

.如果真結束

.計次循環尾?()

取進程連接?()

.子程序?_按鈕2_被單擊

取進程連接?()

@易語言入門教程

文件下載

解壓密碼：

來源：三葉資源網，歡迎分享，公眾號：iisanye，(三葉資源網⑤群：21414575)

總結

以上是生活随笔為你收集整理的易语言服务器怎么断开连接,易语言断开进程网络连接源码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。