Site Admin
Joined: 06 Jul 2007
Posts: 129
Location: india
|
|
| Code: |
[b]Vb Programming:[/b]
Private Sub Command2_Click()
Label1.Caption = "Id Disconnected."
Winsock1.Close
End Sub
Private Sub Command3_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
If Winsock1.State = sckConnected Then
Winsock1.SendData sonic(Text1, Text4)
End If
End Sub |
|
_________________
Avinash
|
|
