bufff, aer si me explico:
dado el problema q tenia(el de poner los servers q se intentaban conectar a mi client en un listbox, seleccionar uno y aceptar su conexion), lo resolvi de la siguiente manera:
código:
private sub_escuchar()
ws.remoteport = 6239
ws.closesck
ws.listen
end sub
private sub_conectar()
if serverlist.text = "" then
msgbox "selecciona un server de la lista", vbcritical
else
ws.remoteport = 6239
ws.closesck
ws.listen
label3.caption= label3.caption + 1
end if
end sub
private sub_ws_connetionrequest(byval requestid as long)
if label3.caption = 1 then
if serverlist.text = ws.remotehostip then
ws.closesck
ws.accept requestid
label1.caption = conectando
timer1.enabled = true
label3.caption = "0"
end if
else
If not List1.List(x) = ws.remotehostip Then
serverlist.additem ws.remotehostip
End If
end if
end sub
de este modo la funcion connetcionrequest de mi ws, actua de manera diferente al apretar el boton escuchar o
el boton connectar.
es posible que tenga algun fallo porque lo he hecho todo de memoria, mañana lo corrigo...
si tienen dudas pregunten
Autor
En línea
