problemas en creacion de un proxy

Iniciado por Yoghurt, 22 Septiembre 2011, 05:55 AM

0 Miembros y 1 Visitante están viendo este tema.

Yoghurt

Hola! este es mi primer post y lo hago para pedir ayuda!! jejeje. bueno la cosa es que estoy creando un proxy con el wsock y tengo problemas con la recepcion de datos por el asyncronismo de esperar los datos mientras se ejecuta el codigo a mi parecer del posible error, tambien recibo los datos en un string pero no se cuando se ha terminado la comunicacion :S ayuda please. tambien quiero que me ayuden para crear un proceso nuevo con cada peticion entrante ya que con el wsock lo tengo cpmo objeto y no puedo multiplicarlo a mi antojo. se que con los "tipos de usuario" puedo crear copias del codigo pero no se como unir los eventos del wsock al ocuparlo por api.

Aprovecho ya de decir que muchas personas podran beneficiarse por los frutos de mi trabajo ya que estoy creando un programa para navegar gratis :D

Yoghurt

Gracias por la ayuda! jajajaja Resolví mi problema por ahí revisando códigos...
Dejo la solución para los demás... Encontré 2 formas:

#1

' Poner la propiedad Index del objeto a 0 lo que
' hace es crear un Array() del objeto
' Setearlo en la edicion de la App pues en ejecucion
' el valor Index es de solo lectura.
Objeto WSock.Index = 0

' para crear otro WSock solo hay que ampliar la matriz
Load WSock(0) ' iniciar la matriz!!
' crear un nuevo objeto
Load WSock(WSock.Ubound + 1)

' Cuidado!
' para recibir los eventos de los Objetos en una matriz
' se reciben en la misma funcion. EJ:
Private Sub WSock_Connect(Index As Integer)
    ' Noten el argumento Index, éste hace mencion al indice en
    ' nuestra matriz del Objecto que hemos creado.
    if WSock(Index).status = sckConected then MsgBox "Conectado!"
    ' para quitar un Objeto de la matriz
    Unload WSock(Index)
    '// CODE...
End Sub


#2


' Crear un modulo de objeto y agregar el objeto WSock a las
' librerias de la aplicacion y poner en en modulo:
Private With Events WSock As Winsock
' y cada vez que se quiera crear un nuevo objeto, en el formulario
' o en en algun modulo solo:
dim varObj() As New nombreDelModuloDeObjeto
redim varObj(0)
' .... // CODIGO:




Ahora tengo otro problema, mi Proxy funciona con el comando GET pero no con los demás comandos tales como el POST, CONECT y con el protocolo HTTPS he buscado info pero no me dicen mucho, RUEGO por ayuda :D  Necesito a algun programador experimentado en Visual Basic 6.0 que me ayude please, dejo mi Skype: ABRAHAMARAON