22/12/2006, 18:29
|
| | | Fecha de Ingreso: diciembre-2006
Mensajes: 6
Antigüedad: 18 años, 4 meses Puntos: 0 | |
| ayuda manejo de inet con proxys
hola quiero hacer un proxy checker usando el inet pero no encuentro nada de informacion sobre el control inet y no me funciona el programa como yo creo ayudenme porfavor
hola quiero hacer un proxy checker usando el inet pero no encuentro nada de informacion sobre el control inet y no me funciona el programa como yo creo ayudenme porfavor.
PENSE QUE ASIGNANDO UN HOST EN LA PROPIEDAD REMOTEHOST Y UN PORT EN LA PROPIEDAD REMOTEPORT ERA SUFICIENTE PERO ME BANEA DEL SERVER
Private Sub Command6_Click()
Dim StrPage As String
Dim proxys() As String
Dim micadena1 As String
Servidorees.ListIndex = 0
For i = 0 To (List1.ListCount - 1)
List1.ListIndex = i
proxys = Split(List1.Text, ":")
host = proxys(0)
Port = proxys(1)
Inet1.RemoteHost = host
Inet1.RemotePort = Port
StrPage = Inet1.OpenURL( NO PUEDO PONER URL EN LA PAGINA)
Label4.Caption = StrPage
If InStr(1, StrPage, "OK:0") Then List2.AddItem List1.Text
If InStr(1, StrPage, "NOMAIL:0") Then List2.AddItem List1.Text
Next
End Sub |