winsock(i) help splitting then sending data out

i have a list1 containing my urls list

http://www.example.com/submit.php
http://www.e12ple.com1/ela/submit.php
http://www.e3423ple.com2/subfolder/submit.php
http://www.exple.com3/p33/asdsz/submit.php

how do i send request to all same time rather then doing it 1 by 1

i know how to do it but splitting it up is the hard part

Dim packket As String, packet1 As String, packet2 As String, packet3 As String, posst As String, login2 As String

ws(i).close
ws(i).connect www.example.com

how do i use so it connects to all the same time

For i = List1.ListCount - 1 To 0 Step -1
i need help here splitting and removing http:// & splitting .com & / into 2 and placing them below

were you se the get part this will go /subfolder/submit.php & www.example.com will go to host

please help


ws(i).close
ws(i).connect www.example.com
next i

packet = "GET /" & "/submit.php".Text & " HTTP/1.1" & vbCrLf
packet = packet & "Host: " & "www.example.com" & vbCrLf
packet = packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
packet = packet & "Accept-Language: en-us,en;q=0.5" & vbCrLf
packet = packet & "Connection: keep-alive" & vbCrLf
packet = packet & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
packet = packet & "Content-Length: " & Len(packet) & vbCrLf & vbCrLf & packet
ws(i).SendData packet