|
Type icmp_hdr
th_type As Byte
th_code As Byte
th_sum As Integer
th_id As Integer
th_seq As Integer
th_time As Long
End Type''''常量
Public Const PF_INET = 2
Public Const SOCK_RAW = 3
Public Const AF_INET = 2
Public Const FD_READ = &H1
Public Const SIO_RCVALL = &H98000001
Public Const EM_REPLACESEL = &HC2 Public host As HOSTENT
Public s As Long
Public sock As sockaddr Public Header As ipheader
Public tcpHead As tcp_hdr
Public udpHead As udp_hdr
Public icmpHead As icmp_hdr
Public resarray() As Long, str As String
Public i As Long, CountID As Long ''''i 为临时变量，循环语句用，CountID 用来计算一共有多少个数据包
Public protocol As String
Public buffer() As Byte ''''存放数据包
Public res As Long ''''返回值，临时变量
Public ExitID As Boolean ''''退出标识
''''开始
Public Sub Wstartup()
Dim Data As WSAdata
Call WSAstartup(&H202, Data) ''''初始化 Winsock 为 2.2
End Sub
''''结束
Public Sub WCleanup(s As Long)
Call WsACleanup ''''关闭 Winsock
closesocket s
End Sub ''''获得当前主机的 IP
Public Function ip(ByRef address As String) As String
Dim pip As Long
Dim uip As Long
Dim s As Long
Dim ss As String
Dim cul As Long CopyMemory host, ByVal gethostbyname(address), Len(host) ''''将 gethostbyname 获得的值放到 host
CopyMemory pip, ByVal host.h_addr_list, 4 ''''将 host.h_addr_list 的值放到 pip
CopyMemory uip, ByVal pip, 4 ''''将 pip 的值放到 uip
s = inet_ntoa(uip) ''''将 uip 转换为标准的 IPV4 格式
ss = Space(lstrlen(s)) ''''去掉空格
cul = lstrcpy(ss, s)
ip = ss ''''获得 IPV4 格式的地址并将其放如 ip
End Function ''''获得当前机器的主机名
Public Function hostname() As String
Dim r As Long
Dim s As String
Dim host As String Wstartup
host = String(255, 0)
r = gethostname(host, 255) ''''获得当前主机的主机名 If r = 0 Then
hostname = Left(host, InStr(1, host, vbNullChar) - 1)
End If End Function ''''连接 IP
Public Sub Connecting(ByRef ip As String, pic As PictureBox)
Dim res As Long, buf As Long, bufb As Long
buf = 1 Wstartup ''''初始化 Winsock s = socket(AF_INET, SOCK_RAW, 0) ''''创建套接字，s 是socket功能返回的文件描述符
If s < 1 Then
Call WCleanup(s)
Exit Sub ''''如果创建失败则退出
End If sock.sin_family = AF_INET ''''socket类型
sock.sin_addr = inet_addr(ip) ''''所用的IP地址
res = bind(s, sock, Len(sock)) ''''绑定端口 If res <> 0 Then
Call WCleanup(s)
Exit Sub ''''如果绑定失败则退出
End If res = WSAIoctl(s, SIO_RCVALL, buf, Len(buf), 0, 0, bufb, ByVal 0, ByVal 0) ''''改变Socket IO模式，将其改为混乱模式，即接受与自己无关的数据，则 SIO_RCVALL If res <> 0 Then
Call WCleanup(s)
Exit Sub
End If res = WSAAsyncSelect(s, pic.hWnd, &H202, ByVal FD_READ) ''''设置套接字处于阻塞方式或者非阻塞方式,消息发送的窗口是 pic，即 Form1.Picture1 If res <> 0 Then
Call WCleanup(s)
Exit Sub
End If End Sub ''''接收信息
Public Sub Recibir(s As Long, ByVal RecFormat As Long)
If RecFormat = FD_READ Then
ReDim buffer(2000) ''''重定义缓冲区大小为 2000
Do
res = recv(s, buffer(0), 2000, 0&) ''''接收信息
If res > 0 Then
ReDim Preserve resarray(CountID) ''''改变数组大小，并保留以前的数据
str = buffer()
resarray(CountID) = res
&nb 上一页 [1] [2] [3] [4] [5] [6] 下一页
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
