引用:
|
作者rolandshiue
貼一小行是怎樣
Text.Text = Winsock1(i).RemoteHostIP & ":" & str & vbCrLf & Text.Text
應該是個迴圈吧
把winsock1所有的ip顯示到text上
|
我也不曉得 對方就是請問我這行VB語法 我不是很在行 所以才會上來問問...
下面是原始語法 不過他只問我這行
Text3.Text = Winsock1(i).RemoteHostIP & ":" & str & vbCrLf & Text3.Text
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim str As String
Winsock1(Index).GetData str
Text3.Text = Winsock1(i).RemoteHostIP & ":" & str & vbCrLf & Text3.Text
For i = 1 To 30
If Winsock1(i).State = sckConnected Then
Winsock1(i).SendData str
DoEvents
End If
Next i
End Sub
不過還是謝謝您的回答~