Как будто, лучше использовать протокол UDP, чем TCP (не надо устанавливать соединение с пингуемым компом). Однако мало информации по свойствам и методам Winsock. По обрывкам информации получился следующий кусок:
Option Explicit
Public txt1IP As String
Private Sub CmdHelp_Click()
MsgBox Winsock1.State
End Sub
Private Sub Form_Load()
Dim txtID As String
TxtIP = "1111"
TxtIP.Text = Winsock1.LocalIP
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "172.20.0.248"
Winsock1.RemotePort = 1001
Winsock1.Bind 1002
' Winsock1.SendData TxtIP
' Winsock1.GetData txt1IP
End Sub
В таком вид компиляция проходит, но толку от нее мало. Winsock.State всегда выдает 1, не ясно что передавать в качестве пакета (наверное, любой по величине, или чем меньше, тем лучше?). И почему .RemotePort = 1001, а .Bind 1002 (взято с примера на одном из форумов данной конференции).
Весьма прошу, гуру от VBasic и иже с ними, помогите, пожалуйста, разобраться. Весьма буду признателем всем. Спасибо!
