luckyta
09 de Junio del 2006

alguien tiene algún ejemplo sobre el uso del control winsock, estoy haciendo una aplicación para envio de mensajes a través de la red....
otra pergunta: si hago esa aplicación en VB, puede funcionar entre una makina ke tenga win 98 y otra ke tenga win XP....
me recomiendan usar el VB 6.0 o el VB NET
???'

MAR
09 de Junio del 2006

Un Favor, podrian mandarme este ejemplo, necesito desarrollar un modulo de envio de mail, y si alguien sabe si se peuede emular el codigo de un winsok para poder hacerlo una DLL, seria genial,
de antemano, gracias por su tiempo

Noel
09 de Junio del 2006

si yo tengo un chat con winsock

Jose Torres
09 de Junio del 2006

un favor.
Necesito hacer un programa con el winsock para trasferir archivos, mi pregunta es que requisitos necesito, he probado algunos ejemplos que he descargado, pero no funcionan, no hay conexion.
Podrian ayudarme en esto?, no se si necesito una IP publica o algo asi, o que no deberia de estar conectado a una red, etc.
Gracias

Luis Larios
09 de Junio del 2006

HOLA A TODOS, REALMENTE ESE CODIGO DEL CHAT ES BUENO, PERO NO SUFICIENTE, YO ESTOY DESARROLLANDO UNA APLICACION CLIENTE-SERVIDOR IMPLEMENTANDO EL WINSOCK EN VB6. ES UN PROGRAMA PARA LA GESTION DE UN CAFE INTERNET. REALMENTE ESTA QUEDANDO MUY BIEN, SI QUIERES EL CODIGO ESCRIBEME A MI CORREO Y CON GUSTO TE LO MANDARE.

carmen luna
09 de Junio del 2006

necesito un codigo pero que me expliques como hacerlo para un proyecto de grado en el cual monto un cafe internet uy eçl software de gestion con visual basic 6.0

Ismael Hasan
09 de Junio del 2006

Hola, bueno creo yo que soy experto en el uso del Winsock de VB6, les ofrezco mi ayuda para quien la requiera (Soy de Toluca Edo Mex para quien le quede cerca), puedo enviarles ejemplos y explicarselos. Con respecto a lo de Win 98 o XP, si funciona perfectamente, simpre y cuando en ambos ordenadores este registrada la libreria mswinsock.ocx, si no la tienen bajenla de internet y peguenla en c:windowssystem32, o bien al instalar VB 6.0 se copia la libreria y al desinstalar se borra, si el proyecto es para un sistema que no tiene instalado vb 6.0 ya sea win 9x o win XP, descarguen de internet la libreria y peguenla en c:windowssystem32 y funcionará bien

Ismael Hasan
09 de Junio del 2006

Bueno ya metido en contestar preguntas les mando un jemplo de coneccion y envio de texto, lo hice en bloq de notas por que esta amquina no tiene VB por lo que puede tener algun error, si es asi escribanme
ojala les sirva

'cliente

'Objetos
'formulario form1
'cuadro de text1 text1
'winsock cliente

private sub form_load()
text1.multiline=true
cliente.close
cliente.localport=3000
cliente.listen
end sub

private sub cliente_close()
cliente.close
end sub

private sub cliente_ConectionRiquest() 'recibe la peticion de coneccion
a=msgbox("Alguien quiere conectarse a este equipo, desea aceptarlo",vbYesyNo,"Confirmacion")
if a=vbYes then
cliente.close
cliente.accept requestID
else
exit sub
end if
end Sub


private sub cliente_connect()
form1.caption="Coneccion establecida"
end sub

private sub cliente_DataArrival()
dim recibe as string
cliente.getdata recibe
text1.text=text1.text & vbCrlf & recibe
end sub



'Server

'Objetos
'formulario form1
'boton cmdenviar
'boton command1
'cuadro de textt text1
'winsock server

private sub command1_click()
server.remotehost=Text1.text ''Aqui pon la IP de la maquina
server.remoteport=3000 'Debe ser el mismo que usamos en el cliente
server.connect 'conecta
end sub


private sub server_connect()
form1.caption="El server esta conectado a alguna estacion"
end sub

private sub server_close()
server.close
form1.caption=""
end sub


private sub CmdEnviar_click()
if form1.caption="El server esta conectado a alguna estacion" then
server.senddata text1.text
else
msgbox "Lo siento no hay coneccion establecida"
end sub

Jose
09 de Junio del 2006

Enviame por favor, el ejemplillo, gracias

JUSTER
09 de Junio del 2006

TENGO LO Q QUIERAN DE WINSOCK PERO NECESITO QUE ME MANDEN ALGO UTIL Y QUE ME DIGAN LO QUE QUIEREN

carmen luna
09 de Junio del 2006

porfa ayudame necesito un programa hecho con visual basic 6 para gestion de un cyber no importa lo sencillo que sea gracias escribeme urge para mi grado

ppnnhh
09 de Junio del 2006

Buen día JUSTER, tengo una aplicación en visual basic que requiero estar accesando todos los dias para ver un reporte que me diga si tengo que revisar interacciones a trabajadores. Me seria más facil que me enviara por mail automaticamente las interacciones que requiero revisar.
Lo que requiero es que por medio de vb6 envie un correo usando lotus notes, con la información que necesito.

No tengo conocimiento del winsock ni idea de como hacerle para tener exito con lo de lotus notes

Si me puedes recomendar algunos links o informacion que tengas y me la envies mi correo:[email protected]
Te lo agradezco.

jhon
09 de Junio del 2006

hola, con respecto a lo primero, te enviaré a tu mail un ejemplillo que encontré y me ayudo a desarrollar mi propio programa, es muy bueno.

Con lo segundo, no hay problema en cuanto a que win usas, con vb6 es suficiente.

Saludos

Jhon

suleiman86
09 de Junio del 2006

hola, me puedes enviar a mi tambien el programa de winsock. Gracias. Axel

el gonzo
09 de Junio del 2006

Jhon, te agradeceria que me enviaras el ejemplo del winsock, gracias dese Mty, N.L. Mex

jaio23
09 de Junio del 2006

Hola amigo me podrias hacer el favor de enviarme ese ejemplo de WINSOCK por favor es que estoy haciendo un programa de envio de base de dato a un notificador en el servidor si quieres te envio unos de los ejemplos de otras aplicaciones que tengo en mi poder una de esas es para hacer que los Form. esten siempre visible si te interesa ya sabes....

enkhil
09 de Junio del 2006

Hola jhon, estoy muy interesado en ese codigo. Puedes mandarlo a [email protected] ? gracias.

Juan
09 de Junio del 2006

Hola Jhon, si también me lo puedes enviar te lo agradecería mucho. Gracias

luis montoya caceda
09 de Junio del 2006

hola porfavor me podes enviar ese ejemplo del winsock lo necesito para un trabajo en la universidad .gracias

jcebrian
09 de Junio del 2006

ey jhon enviame el ejemplo. gracias

jcebrian
09 de Junio del 2006

ey jhon enviame el ejemplo. gracias

Jnieves14
09 de Junio del 2006

Hola pr fa podrias enviarme el ejemplo del Wisock

Gracias

ALEJANDRO A M.M.
09 de Junio del 2006

me podrias facilitar el link o el ejemplo, mil gracias.

luckyta
09 de Junio del 2006

GRACIAS JHON, recibi el email
mil gracias lindo

^Neo^
09 de Junio del 2006

Jhon, te importaria enviarme tambien el ejemplo de winsock? Te estaría muy agradecido: [email protected]. Saludos.

crustaceo
09 de Junio del 2006

Private Sub Command1_Click()
Winsock1.Listen
Label2.Caption = Winsock1.State
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
Label2.Caption = Winsock1.State
End Sub


Private Sub Label1_Click()
Label1.Caption = Winsock1.LocalIP
End Sub

Private Sub Label2_Click()
Label2.Caption = Winsock1.State
End Sub

Private Sub Label3_Click()
Label3.Caption = Winsock1.BytesReceived
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'If KeyAscii = 13 Then
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Text2.Text = "conectado"
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
Label2.Caption = Winsock1.State
End Sub

Public Sub winsock1_dataarrival(ByVal bytestotal As Long)
Text1.Text = ""
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
Label3.Caption = Winsock1.BytesReceived
End Sub

¶mmm
09 de Junio del 2006

ESTE ES UN PEQUEÑO CHAT QUE HE ESTADO HACIENDO CON WINSOCK NECESITAS
PARA EL SERVER 1 WINSOCK, 2 TEXTBOX, 2 COMMAND
form_load
Winsock1.LocalPort=888
Txt1.Text=""
Txt2.Text=""
Cmd1.Caption="Escucha"
Cmd2.Caption="Envia"
Private Sub Cmd1_Click()
Winsock1.Listen
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As
Long)
Dim x As String
Winsock1.GetData x
Txt1.Text=Txt1.Text + x
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Cmd2_Click()
Dim y As String
y=Txt2.Text
Winsock1.SenData y
End Sub
PARA EL CLIENTE 1 WINSOCK, 3 TEXTBOX, 2 COMMAND
form_load
Winsock1.LocalPort=888
Txt1.Text=""
Txt2.Text=""
Txt3.Text=""
Cmd1.Caption="Conecta"
Cmd2.Caption="Envia"
Private Sub Cmd1_Click()
Winsock1.RemoteHost=Txt3.Text
Winsock1.Connect
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As
Long)
Dim x As String
Winsock1.GetData x
Txt1.Text=Txt1.Text + x
End Sub
Private Sub Cmd2_Click()
Dim y As String
y=Txt2.Text
Winsock1.SenData y
End Sub
NOTA: NO PUEDES EJECUTAR CLIENTE Y SERVER EN EL MISMO COMPUTADOR YA QUE LOS PROGRAMAS CAPTAN LA MISMA IP Y TE MOSTRARAN ERROR
CHAO
¶mmm FUTURE MASTER

vladimir
09 de Junio del 2006

mira el ejemplo no lo tengo pero te recomiendo que utilices como servidor una maquina con winxp para que puedas enviar mensajes a cualquier maquina con con cualquier windows

vladimir
09 de Junio del 2006

mira el ejemplo no lo tengo pero te recomiendo que utilices como servidor una maquina con winxp para que puedas enviar mensajes a cualquier maquina con con cualquier windows