.版本?2

.支持庫(kù)?iext

.支持庫(kù)?eAPI

.程序集?窗口程序集1

.程序集變量?進(jìn)程信息,?進(jìn)程連接信息,?,?"0"

.程序集變量?狀態(tài)數(shù)組,?文本型,?,?"0"

.子程序?_窗口1_創(chuàng)建完畢

狀態(tài)數(shù)組?＝?{?“未知”,?“已經(jīng)關(guān)閉”,?“監(jiān)聽(tīng)”,?“發(fā)送同步空閑字符”,?“接收同步空閑字符”,?“數(shù)據(jù)交換中”,?“結(jié)束等待1”,?“結(jié)束等待2”,?“關(guān)閉等待”,?“關(guān)閉中”,?“命令正確應(yīng)答”,?“連接等待”,?“刪除TCP連接”?}

取進(jìn)程連接?()

.子程序?取進(jìn)程連接,?,?,?返回?cái)?shù)目?借用網(wǎng)上大俠的源碼

.局部變量?數(shù)據(jù),?字節(jié)集

.局部變量?緩沖區(qū)大小,?整數(shù)型

.局部變量?數(shù)量,?整數(shù)型

.局部變量?位置1,?整數(shù)型

.局部變量?地址,?字節(jié)集

.局部變量?狀態(tài),?整數(shù)型

.局部變量?本地地址,?整數(shù)型

.局部變量?本地端口,?整數(shù)型

.局部變量?遠(yuǎn)程地址,?整數(shù)型

.局部變量?遠(yuǎn)程端口,?整數(shù)型

.局部變量?進(jìn)程ID,?整數(shù)型

.局部變量?局部_進(jìn)程信息,?進(jìn)程連接信息

.局部變量?I,?整數(shù)型

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

API_GetExtendedTcpTable?(數(shù)據(jù),?緩沖區(qū)大小,?假,?2,?5,?0)

數(shù)據(jù)?＝?取空白字節(jié)集?(緩沖區(qū)大小)

API_GetExtendedTcpTable?(數(shù)據(jù),?緩沖區(qū)大小,?假,?2,?5,?0)

數(shù)量?＝?取字節(jié)集數(shù)據(jù)?(取字節(jié)集左邊?(數(shù)據(jù),?4),?3,?)

位置1?＝?4

清除數(shù)組?(進(jìn)程信息)

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

返回?()

.如果真結(jié)束

.計(jì)次循環(huán)首?(數(shù)量,?I)

狀態(tài)?＝?取字節(jié)集數(shù)據(jù)?(取字節(jié)集中間?(數(shù)據(jù),?位置1?＋?1,?4),?3,?)

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

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

遠(yuǎn)程端口?＝?取字節(jié)集數(shù)據(jù)?(取字節(jié)集中間?(數(shù)據(jù),?位置1?＋?17,?4),?3,?)

進(jìn)程ID?＝?取字節(jié)集數(shù)據(jù)?(取字節(jié)集中間?(數(shù)據(jù),?位置1?＋?21,?4),?3,?)

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

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

遠(yuǎn)程地址?＝?取字節(jié)集數(shù)據(jù)?(取字節(jié)集中間?(地址,?1,?4),?#整數(shù)型,?)

局部_進(jìn)程信息.進(jìn)程ID?＝?進(jìn)程ID

局部_進(jìn)程信息.進(jìn)程連接.dwState?＝?狀態(tài)

局部_進(jìn)程信息.進(jìn)程連接.dwLocalAddr?＝?本地地址

局部_進(jìn)程信息.進(jìn)程連接.dwLocalPort?＝?本地端口

局部_進(jìn)程信息.進(jìn)程連接.dwRemoteAddr?＝?遠(yuǎn)程地址

局部_進(jìn)程信息.進(jìn)程連接.dwRemotePort?＝?遠(yuǎn)程端口

超級(jí)列表框1.插入表項(xiàng)?(,?,?,?,?,?)

超級(jí)列表框1.置標(biāo)題?(I?－?1,?0,?到文本?(進(jìn)程ID))

超級(jí)列表框1.置標(biāo)題?(I?－?1,?1,?取進(jìn)程名?(進(jìn)程ID))

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

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

超級(jí)列表框1.置標(biāo)題?(I?－?1,?4,?GetAscIP?(遠(yuǎn)程地址))

超級(jí)列表框1.置標(biāo)題?(I?－?1,?5,?到文本?(API_ntohs?(遠(yuǎn)程端口)))

超級(jí)列表框1.置標(biāo)題?(I?－?1,?6,?狀態(tài)數(shù)組?[狀態(tài)?＋?1])

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

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

.計(jì)次循環(huán)尾?()

.子程序?GetAscIP,?文本型

.參數(shù)?inn,?整數(shù)型

.局部變量?nStr,?整數(shù)型

.局部變量?lpStr,?整數(shù)型

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

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

lpStr?＝?API_inet_ntoa?(inn)

.如果?(lpStr?≠?0)

nStr?＝?API_lstrlen?(lpStr)

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

nStr?＝?32

.如果真結(jié)束

API_CopyMemory?(retString,?lpStr,?nStr)

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

返回?(retString)

.否則

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

.如果結(jié)束

.子程序?取進(jìn)程名,?文本型

.參數(shù)?進(jìn)程ID,?整數(shù)型

.局部變量?系統(tǒng)進(jìn)程,?進(jìn)程信息,?,?"0"

.局部變量?計(jì)次變量,?整數(shù)型

系統(tǒng)進(jìn)程?＝?取系統(tǒng)進(jìn)程列表?()

.計(jì)次循環(huán)首?(取數(shù)組成員數(shù)?(系統(tǒng)進(jìn)程),?計(jì)次變量)

.如果真?(系統(tǒng)進(jìn)程?[計(jì)次變量].進(jìn)程標(biāo)識(shí)符?＝?進(jìn)程ID)

返回?(系統(tǒng)進(jìn)程?[計(jì)次變量].進(jìn)程名稱(chēng))

跳出循環(huán)?()

.如果真結(jié)束

.計(jì)次循環(huán)尾?()

返回?(“”)

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

.局部變量?I,?整數(shù)型

.計(jì)次循環(huán)首?(取數(shù)組成員數(shù)?(進(jìn)程信息),?I)

.如果真?(到整數(shù)?(超級(jí)列表框1.取標(biāo)題?(超級(jí)列表框1.現(xiàn)行選中項(xiàng),?0))?＝?進(jìn)程信息?[I].進(jìn)程ID)

進(jìn)程信息?[I].進(jìn)程連接.dwState?＝?#MIB_TCP_STATE_DELETE_TCB

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

.如果真結(jié)束

.計(jì)次循環(huán)尾?()

取進(jìn)程連接?()

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

取進(jìn)程連接?()

@易語(yǔ)言入門(mén)教程

文件下載

解壓密碼：

來(lái)源：三葉資源網(wǎng)，歡迎分享，公眾號(hào)：iisanye，(三葉資源網(wǎng)⑤群：21414575)

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。