list1 contains proxies http
as you can se
wskProxy(x).Connect List1.Text, 8080 <<<<<< the port and the list1 text
is there anyway i can do something about the port here , becuase i just want winsock to connect to each line in list1 the format is below
114.112.243.230:8080
114.112.243.230:888
i dont want to type wskProxy(x).Connect List1.Text, 8080 port for each proxies i want to do it auto direct connect for each line
Code:
111.1.32.124:83
113.31.65.51:38632
111.118.32.248:808
114.80.136.112:7780
111.1.32.124:82
111.1.32.124:81
113.12.83.157:80
110.173.0.18:808
113.31.65.51:81
116.226.83.180:8080
116.228.55.184:80
116.236.216.116:8080
112.231.65.71:80
113.108.92.104:80
110.159.78.113:8118
111.255.136.231:8888
119.167.231.73:8080
117.211.123.60:3128
117.211.123.60:80
120.203.215.4:9090
119.167.231.72:8080
119.73.2.148:8118
119.36.87.26:81
120.203.215.2:80
120.203.215.4:80
116.228.55.217:8888
114.141.162.53:8080
115.25.216.6:80
119.36.87.32:82
119.36.87.32:81
119.73.4.217:8118
103.22.181.247:80
110.173.0.18:80
119.73.66.111:8118
121.10.109.142:80
119.73.65.128:8118
119.36.87.26:82
119.226.253.25:8080
114.112.243.230:8080
117.3.66.115:80
115.160.227.35:80
119.73.71.243:8118
103.11.35.46:80
108.61.89.152:7808
120.203.215.5:80
120.203.215.12:80
116.228.55.217:8000
116.226.82.96:80
119.73.40.144:8118
121.240.238.160:80
119.36.87.26:83
109.162.102.230:54321
119.194.107.89:80Code:
Private Sub Form_Load()
Dim x As Integer
For x = 1 To 40
Load Form1.wskProxy(x)
'Load ws3(x)
Next x
Form1.Text5.Text = wskProxy.Count
End SubCode:
Private Sub Command1_Click()
Dim i As Integer
For x = 0 To Text5.Text - 1
For i = List1.ListCount - 1 To 0 Step -1
wskProxy(x).Close
wskProxy(x).Connect List1.Text, 8080
'List1.Selected(i) = True
' Pause 1
Next i
DoEvents
Next x
Debug.Print x
End SubwskProxy(x).Connect List1.Text, 8080 <<<<<< the port and the list1 text
is there anyway i can do something about the port here , becuase i just want winsock to connect to each line in list1 the format is below
114.112.243.230:8080
114.112.243.230:888
i dont want to type wskProxy(x).Connect List1.Text, 8080 port for each proxies i want to do it auto direct connect for each line