亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

VB設計Win2000下截獲IP數據包程序

2019-11-18 17:41:41
字體：大 中 小
來源：轉載
供稿：網友
以下是在VB中截獲WIN2000下TCP/
PublicConstWSADESCRIPTION_LEN=256
PublicConstWSASYS_STATUS_LEN=128

TypeWSA_DATA
　wVersionAsInteger
　wHighVersionAsInteger
　strDescription(WSADESCRIPTION_LEN 1)AsByte
　strSystemStatus(WSASYS_STATUS_LEN 1)AsByte
　iMaxSocketsAsInteger
　iMaxUdpDgAsInteger
　lpVendorInfoAsLong
EndType

TypeIN_ADDR
　S_addrAsLong
EndType

TypeSOCK_ADDR
　sin_familyAsInteger
　sin_portAsInteger
　sin_addrAsIN_ADDR
　sin_zero(0To7)AsByte
EndType

TypeIPHeader
　lenverAsByte
　tosAsByte
　lenAsInteger
　identAsInteger
　flagsAsInteger
　ttlAsByte
　protoAsByte
　checksumAsInteger
　sourceIPAsLong
　destIPAsLong
EndType

ConstAF_INET=2
ConstSOCK_RAW=3
ConstIPPROTO_IP=0
ConstIPPROTO_TCP=6
ConstIPPROTO_UDP=17
ConstMAX_PACK_LEN=65535
ConstSOCKET_ERROR=-1&

PrivatemwsaDataAsWSA_DATA
Privatem_hSocketAsLong

PrivatemsaLocalAddrAsSOCK_ADDR
PrivatemsaRemoteAddrAsSOCK_ADDR

SubMain()
　DimnResultAsLong

　nResult=WSAStartup(&H202,mwsaData)
　IfnResult<>WSANOERRORThen
　　MsgBox"ErrorenWSAStartup"
　　ExitSub
　EndIf

　m_hSocket=socket(AF_INET,SOCK_RAW,IPPROTO_IP)
　If(m_hSocket=INVALID_SOCKET)Then
　　MsgBox"Errorinsocket"
　　ExitSub
　EndIf

　msaLocalAddr.sin_family=AF_INET
　msaLocalAddr.sin_port=0
　msaLocalAddr.sin_addr.S_addr=inet_addr("192.168.1.125")'這里需要你自己的網卡的IP地址

　nResult=bind(m_hSocket,msaLocalAddr,Len(msaLocalAddr))
　If(nResult=SOCKET_ERROR)Then
　　MsgBox"Errorinbind"
　　ExitSub
　EndIf

　DimInParamBufferAsLong
　DimBytesRetAsLong
　BytesRet=0
　InParamBuffer=1

　nResult=ioctlsocket(m_hSocket,&H98000001,1)

　IfnResult<>0Then
　　MsgBox"ioctlsocket"
　　ExitSub
　EndIf

　DimstrDataAsString
　DimnReceivedAsLong

　'截獲來的數據放在BUFF里面
　DimBuff(0ToMAX_PACK_LEN)AsByte
　DimIPHAsIPHeader

　DoUntilFalse'這個例子里，一直獲取
　DoEvents
　nResult=recv(m_hSocket,Buff(0),MAX_PACK_LEN,0)
　IfnResult=SOCKET_ERRORThen
　　MsgBox"ErrorinRecvData::recv"
　　ExitDo
　EndIf
　CopyMemoryIPH,Buff(0),Len(IPH)'為了訪問方便
　SelectCaseIPH.proto
　　CaseIPPROTO_TCP
　　　'frmHookTcpip.Text1.SelText=HexIp2DotIp(IPH.sourceIP)
　　　'frmHookTcpip.Text1.SelText="----->"
　　　'frmHookTcpip.Text1.SelText=HexIp2DotIp(IPH.destIP)
　　　'frmHookTcpip.Text1.SelText=vbCrLf
　　　Debug.PrintHexIp2DotIp(IPH.sourceIP)&"----->"&HexIp2DotIp(IPH.destIP)
　　　EndSelect
　　Loop

　nResult=shutdown(m_hSocket,2)
　nResult=closesocket(m_hSocket)
　nResult=WSACancelBlockingCall
　nResult=WSACleanup
EndSub

FunctionHexIp2DotIp(ByValipAsLong)AsString
　DimsAsString,p1AsString,p2AsString,p3AsString,p4AsString
　s=Right("00000000"&Hex(ip),8)
　p1=Val("&h"&Mid(s,1,2))
　p2=Val("&h"&Mid(s,3,2))
　p3=Val("&h"&Mid(s,5,2))
　p4=Val("&h"&Mid(s,7,2))
　HexIp2DotIp=p4&"."&p3&"."&p2&"."&p1
　EndFunction
'-----------------------------代碼結束--------------------------------------------------->->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
91国自产精品中文字幕亚洲| 国产精品久久久久久久app| 国产精品va在线播放| 欧美成年人视频网站| 国产成人免费91av在线| 精品自拍视频在线观看| 久久国产精品久久久久久久久久| 亚洲人成在线免费观看| 国产日韩精品电影| 美女扒开尿口让男人操亚洲视频网站| 成人精品视频99在线观看免费| 国产精品久久久久77777| 日韩成人在线视频| 精品欧美激情精品一区| 亚洲国产精品va在线看黑人| 亚洲天堂第二页| 中文字幕日韩精品有码视频| 欧美在线亚洲在线| 亚洲999一在线观看www| 中文字幕免费国产精品| 国产精品91久久| 亚洲综合成人婷婷小说| 国产精品一区二区三区久久久| 亚洲视频自拍偷拍| 亚洲欧美999| 美女撒尿一区二区三区| 成人免费福利视频| 一区二区欧美激情| 国产精品老牛影院在线观看| 精品国产福利视频| 亚洲japanese制服美女| 91热精品视频| 伊人亚洲福利一区二区三区| 亚洲国产福利在线| 亚洲视频国产视频| 91夜夜未满十八勿入爽爽影院| 欧美—级高清免费播放| 一区二区三区回区在观看免费视频| 黑人精品xxx一区一二区| 日韩黄色在线免费观看| 欧美精品电影免费在线观看| 日本一区二区不卡| 亚洲美女中文字幕| 久久精品小视频| 久久久之久亚州精品露出| 欧美日韩一区二区免费视频| 欧美另类第一页| 色综合老司机第九色激情| 日韩一区二区三区xxxx| 欧美片一区二区三区| 一道本无吗dⅴd在线播放一区| 日韩av在线播放资源| 国产精品欧美亚洲777777| 成人春色激情网| 亚洲free性xxxx护士白浆| 在线观看国产成人av片| 91av在线免费观看| 国产欧美 在线欧美| 亚洲欧美中文日韩v在线观看| 国产精品久久一| 色先锋久久影院av| 国产成人精品免高潮在线观看| 精品久久久久久久久久久| 亚洲成年人在线播放| 欧美亚洲国产视频小说| 欧美性生交大片免费| 日韩欧美精品网站| 一区二区三区国产视频| 在线观看不卡av| 国产色婷婷国产综合在线理论片a| www亚洲精品| 综合国产在线观看| 国产成+人+综合+亚洲欧美丁香花| 色在人av网站天堂精品| 日韩中文字幕国产精品| 欧美肥臀大乳一区二区免费视频| 97国产一区二区精品久久呦| 亚洲男人天堂网站| 日本成人精品在线| 国产日本欧美在线观看| 国产剧情日韩欧美| 久久免费精品日本久久中文字幕| 国产mv免费观看入口亚洲| 久久精品视频一| 日韩在线视频中文字幕| 日本久久亚洲电影| 日韩精品欧美国产精品忘忧草| 欧美大片欧美激情性色a∨久久| 日本精品视频在线| 91久久久在线| 亚洲成年人在线| 超碰日本道色综合久久综合| 日本国产一区二区三区| 亚洲男人天堂久| 伊人男人综合视频网| 91精品视频在线| 亚洲xxxxx电影| 午夜精品蜜臀一区二区三区免费| 中文字幕九色91在线| 91在线观看免费网站| 夜色77av精品影院| 国产精品色悠悠| 国产精品青青在线观看爽香蕉| 欧美精品久久久久久久免费观看| 亚洲区bt下载| 欧美激情视频一区二区| 欧美成人第一页| 欧美视频免费在线观看| 国产日韩综合一区二区性色av| 91人成网站www| 91香蕉嫩草影院入口| 欧美人在线观看| 日韩免费高清在线观看| 亚洲一二在线观看| 人人澡人人澡人人看欧美| 久久精品国产一区二区三区| 日本精品性网站在线观看| 国产精品视频999| 精品成人国产在线观看男人呻吟| 久久久亚洲国产| 青草热久免费精品视频| 超碰91人人草人人干| 亚洲精美色品网站| 亚洲精品视频免费| 欧美亚洲免费电影| 在线视频国产日韩| 欧美黑人一级爽快片淫片高清| 欧美日韩裸体免费视频| 日本中文字幕不卡免费| 一本色道久久综合狠狠躁篇怎么玩| 欧美电影在线免费观看网站| 97成人精品视频在线观看| 91美女片黄在线观看游戏| 97在线免费观看| 日韩精品在线观看网站| 欧美精品在线看| 国产极品精品在线观看| 日本19禁啪啪免费观看www| 亚洲精品中文字幕有码专区| 欧美日韩精品在线视频| 精品成人在线视频| 国产精品精品国产| 久久香蕉频线观| 亚洲精品视频免费在线观看| 九色成人免费视频| 久久久亚洲国产天美传媒修理工| 国内精品一区二区三区| 久久久久久久国产精品视频| 亚洲精品视频免费| 欧美激情女人20p| 成人乱人伦精品视频在线观看| 亚洲精品一区在线观看香蕉| 国产精品主播视频| 理论片在线不卡免费观看| 日本精品视频在线观看| 在线视频精品一| 欧美贵妇videos办公室| 91系列在线播放| 国产精品∨欧美精品v日韩精品| 久色乳综合思思在线视频| 欧洲成人性视频| 国语自产精品视频在免费| 亚洲a级在线播放观看| 欧美性69xxxx肥|