text2 proxy
text3 port
as you se if instr 1212 this code i added how ever this code still adds the item in list2 i only want to add it in list3 if this code 1212 is found please help because it adds in both listboxes list2 and list3
need your expert help on this one ladies and gents
text3 port
Code:
Private Sub Command5_Click()
Text4.Text = ""
Winsock1.Close
Winsock1.Connect Text2, Text3
End SubCode:
text1.text = list1.text ' list1 items to testCode:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String
Winsock1.GetData data
Dim i As Long
Text4.Text = Text4.Text & data
If InStr(data, "1212") Then
List3.AddItem Text1
Label3.Caption = List3.ListCount
For i = List1.ListCount - 1 To 0 Step -1 ' counts list entries
If List1.Selected(i) = True Then ' if selected then
' List1.RemoveItem i ' optional remove
Label1.Caption = List1.ListCount
Call KillDupes(List2)
Call KillDupes(List3)
Call KillDupes(List4)
End If
Next
'List1.ListIndex = 0
Else
List2.AddItem Text1
Label4.Caption = List2.ListCount
For i = List1.ListCount - 1 To 0 Step -1 ' counts list entries
If List1.Selected(i) = True Then ' if selected then
' List1.RemoveItem i ' optional remove
Label1.Caption = List1.ListCount
Call KillDupes(List2)
Call KillDupes(List3)
Call KillDupes(List4)
End If
Next
'List1.ListIndex = 0
End If
If List1.ListCount = 0 Then
Winsock1.Close
End If
End Subas you se if instr 1212 this code i added how ever this code still adds the item in list2 i only want to add it in list3 if this code 1212 is found please help because it adds in both listboxes list2 and list3
need your expert help on this one ladies and gents