刚刚开始接触网络编程,有个问题向各位朋友请教一下:
微软带的那个WinSock控件与Indy里面哪个控件是对等的呀?还是必须Import ActiveX Control里的MSWinsock.ocx呀?
我这儿有一段VB的例子包括初始化等,还请各位指点一下 '初始化Winsock控件
'取得广播地址
i = 1
With Winsock1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
i = i + 1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
i = i + 1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
s = Left(.LocalIP, i)
s = s + "255"
.Protocol = sckUDPProtocol
.RemoteHost = s
.RemotePort = 3002
.Bind 3003
End With
========================还有一个事件如下:
'接收到网络数据触发该事件
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim InData() As Byte
Dim i, j As Integer
Dim TempStr() As String
Dim itmX As ListItem
Dim l As Long
'接收的数据包计数器增一,并显示
RecePack = RecePack + 1
Label9.Caption = Str(RecePack)
'接收数据
Winsock1.GetData InData
'判断是否是返回的应答数据
If InData(0) = 188 Then
i = MsgBox("设置正确!", vbOKOnly)
'判断是否返回设置数据
ElseIf InData(0) = Asc("R") And InData(1) = Asc("N") And InData(2) = Asc("N") Then。。
======================
自己摸索入门,还请各位不吝赐教,并推荐几本入门级的书,谢谢大家
微软带的那个WinSock控件与Indy里面哪个控件是对等的呀?还是必须Import ActiveX Control里的MSWinsock.ocx呀?
我这儿有一段VB的例子包括初始化等,还请各位指点一下 '初始化Winsock控件
'取得广播地址
i = 1
With Winsock1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
i = i + 1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
i = i + 1
While Mid(.LocalIP, i, 1) <> "."
i = i + 1
Wend
s = Left(.LocalIP, i)
s = s + "255"
.Protocol = sckUDPProtocol
.RemoteHost = s
.RemotePort = 3002
.Bind 3003
End With
========================还有一个事件如下:
'接收到网络数据触发该事件
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim InData() As Byte
Dim i, j As Integer
Dim TempStr() As String
Dim itmX As ListItem
Dim l As Long
'接收的数据包计数器增一,并显示
RecePack = RecePack + 1
Label9.Caption = Str(RecePack)
'接收数据
Winsock1.GetData InData
'判断是否是返回的应答数据
If InData(0) = 188 Then
i = MsgBox("设置正确!", vbOKOnly)
'判断是否返回设置数据
ElseIf InData(0) = Asc("R") And InData(1) = Asc("N") And InData(2) = Asc("N") Then。。
======================
自己摸索入门,还请各位不吝赐教,并推荐几本入门级的书,谢谢大家
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货