Hack x Crack - Comunidad de Seguridad informática
Programación => Visual Basic => Mensaje iniciado por: Darkhack07 en Noviembre 18, 2011, 09:48:43 pm
-
Hola amigos, el dia de ayer me instale visual studio 2010.
Y pues me puse a pasar un code que tenia por hay echo en visual basic 6 a vb2010.
Se que debo estudiar, buscar tutoriales, libros,manuales, etc.
Pero no he encontrado ninguno ni menos donde se use el winsock.
Estos (http://foro.hackxcrack.net/forum/index.php?topic=2724.0) ya los estoy mirando, pero como ven el los títulos, ninguno dice winsock.
Si me recomiendan alguna otra manera para sustituir el winsock, también se agradece.
Aquí el proyecto con el error:Clic (http://www.multiupload.com/JFW2BPYWH8)
Y aqui (http://www.multiupload.com/GIHNRL8TXM) el proyecto solucionado
Pondre solo el code importante:
cliente:
1 caja de texto
2 botones
1 winsock
Public Class Form1
Dim requesid As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWinsock1.Listen()
End Sub
Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
AxWinsock1.Close()
AxWinsock1.Accept(requesid)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWinsock1.SendData(TextBox1.Text)
End Sub
End Class
Server
3 cajas de texto
1 winsock
1 boton
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWinsock1.Connect(TextBox1.Text, textbox3.text)
End Sub
Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
Dim strdatos As String
AxWinsock1.GetData(strdatos)
TextBox2.Text = strdatos
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox3.Text = "100"
End SubEnd Class
-
según tengo entendido este componente en windows 7 no está en system32.
lo que podés hacer es descargar MSWINSOCK.OCX, registralo ya sabés REGSVR32.
una vez registardo abrís el vb 2010 y vas a Herramientas --->Elegir elementos del cuadro de herramientas;
Componentes COM.....Si todo va bien veras: microsoft winsock control, version 6.0,
y activando la casilla de verificacion aparece el icono del winsock en el cuadro de herramientas
saludos :-*
-
según tengo entendido este componente en windows 7 no está en system32.
lo que podés hacer es descargar MSWINSOCK.OCX, registralo ya sabés REGSVR32.
una vez registardo abrís el vb 2010 y vas a Herramientas --->Elegir elementos del cuadro de herramientas;
Componentes COM.....Si todo va bien veras: microsoft winsock control, version 6.0,
y activando la casilla de verificacion aparece el icono del winsock en el cuadro de herramientas
saludos :-*
Creo que no me explique bien, pero aqui les dejo el proyecto para que lo analizen.
http://www.multiupload.com/7KW5LRT1BX (http://www.multiupload.com/7KW5LRT1BX)
PD: El winsock esta bien, ya lo tengo registrado, ese no es el error, el error es aceptar la peticion de conexion.
Gracias San Google.
Solucionado
Aqui (http://www.multiupload.com/GIHNRL8TXM) el proyecto solucionado
-
Cierro el tema
Bytess ;)