麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

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
'-----------------------------代碼結束--------------------------------------------------->->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产精品自拍片 | 成年免费观看视频 | 久草在线新时代视觉 | 成人aaaaa片毛片按摩 | 精品中文字幕在线播放 | 亚洲网站在线观看 | 欧美一级片免费在线观看 | 国产精品视频yy9299一区 | 2017亚洲男人天堂 | 欧美成人精品一区二区男人小说 | 日本一区免费看 | 毛片视频免费播放 | 久久99在线 | 国产精品91久久久 | 欧美精品久久久久久久多人混战 | 中文字幕精品在线观看 | av国语| 在线播放污 | 久久精品视频一区二区三区 | 久草最新在线 | 强伦女教师视频 | 视频一区二区中文字幕 | 91久久综合 | 免费a视频在线观看 | 成人福利视频在线观看 | av影院在线 | 欧美一级黄视频 | 国产无遮挡一区二区三区毛片日本 | 中国老女人一级毛片视频 | 精品在线观看一区 | 亚洲视频在线视频 | 成人在线免费观看视频 | 欧美日韩国产成人在线观看 | 日本黄色免费片 | 国产精品99久久久久久久 | 国产精品视频中文字幕 | 成人不卡在线观看 | 久久免费视频精品 | 午夜精品成人一区二区 | 亚洲精品一区国产精品丝瓜 | 九草网|