|
VB IGMP(2) Else
Dim addr As SockAddr
Dim x As Long
Dim ip As String
Dim y(0 To 3) As Byte
ip = ""
x = inet_addr(txt_IP.Text)
CopyMemory y(0), x, 4
For x = 0 To 3
ip = ip & Chr(y(x))
Next x
addr.sin_addr = ip
addr.sin_family = 2
addr.sin_port = htons(100)
addr.sin_zero = String(8, 0)
If ConnectWinsock(sock, addr, Len(addr)) Then
MsgBox "connect error"
Exit Sub
End If
t = 10
Set cmd_Go.Picture = Image1.Picture
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Dim WSAData As T_WSA
Set cmd_Go.Picture = Image2.Picture
WSAStartup 514, WSAData
sock = Socket(2, 3, 2)
If sock < 0 Then
MsgBox "winsock error"
Unload Me
End If
t = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
closesocket sock
|
