Título: no funciona! Publicado por: saliaz en 8 Julio 2007, 00:34 am bueno como dije en mi post anterior estoy haciendo un troyano en visual basic ,bueno copiandome los codigos....de un manual. y nada hasta ahora he hecho que funcione el servidor pero el cliente no funciona...si alguien tiene tiempo que mire haber lo q es...
este es el servidor que si que me funciona: Private Sub Command1_Click() Winsock1.LocalPort = puerto.Text Winsock1.Listen End Sub Private Sub Command2_Click() Winsock1.Close End Sub Private Sub Winsock1_Close() txtrecibido = txtrecibido & "conexion cerrada:" & Winsock1.RemoteHostIP Winsock1.Close End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) txtrecibido = "id de la solicitud de la conexión" & requestID & " de " & Winsock1.RemoteHostIP Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim vtdata As String Winsock1.GetData vtdata, vbString txtrecibido.Text = "" txtrecibido.Text = txtrecibido & vtdata End Sub y este el programa cliente que no funciona!: Private Sub Command2_Click() Winsock1.Close End Sub Private Sub conectar_Click() Winsock1.RemoteHost = host.Text winsock1remoteport = puerto.Text Winsock1.Connect End Sub Private Sub enviar_Click() Winsock1.SendData orden.Text End Sub Private Sub localhost_Change() End Sub Private Sub Winsock1_Connect() If (Winsock1.State = sckConnected) Then Form1.Caption = "conectado con exito..." Else Form1.Caption = "esperando..." End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim vtdata As String Winsock1.GetData vtdata, vbString orden = "" orden = orden & vtdata & vbCrLf End Sub abstenerse newbies,jeje... Título: Re: no funciona! Publicado por: Tughack en 8 Julio 2007, 00:51 am Citar abstenerse newbies,jeje... Kee? Te crees experto? Y no sabes hacer una conexion con los sockets? Y en cima copias codigos de manuales jajaja Bah me voy de aki... Esta sección de vb tiene mas newbies k un foro de diseno... Me marcho de este subforo... Título: Re: no funciona! Publicado por: Dark_Knight en 8 Julio 2007, 07:03 am hola
Código:
te recomiendo que no utilices el winsock de visual basic... ya que haz pensado como le haras para enviarle aparte de troyano... el OCX de winsock... porke sin este archivo no funcionara tu troyano... y todas las computadoras no siempre tienen este archivo... buscale como siempre en google... encontraras unas apis para simular winsock... sn mejores... solo que no te voy a solucionar todo asi que pregunta y busca... nos vemos ;D Título: Re: no funciona! Publicado por: saliaz en 8 Julio 2007, 11:14 am te recomiendo que no utilices el winsock de visual basic... ya que haz pensado como le haras para enviarle aparte de troyano... el OCX de winsock... porke sin este archivo no funcionara tu troyano... y todas las computadoras no siempre tienen este archivo... YA lo sabia pero no voy a utilizarlo , estaba intentado aprender como dije en otro post,tengo un manual de basic que me baje de aqui y decidi empezar con un troyano para tocar sobretodo los comandos,... no se..., yo creo que un pokito si que he aprendido, pero por dios no me considero un experto, mas bien un newbies,pues que no llevo mas de mes y medio con esto... joder si molesta tanto el post que lo borren...adios Título: Re: no funciona! Publicado por: saliaz en 10 Julio 2007, 20:20 pm tughack echame una manita...que yo se que tu sabes y a los tambien.. el fallo creo que esta en la linea 11winsock1.senddata orden.text. Men echale un vistazo!gracias. ;)
Título: Re: no funciona! Publicado por: Hendrix en 10 Julio 2007, 23:58 pm El fallo no esta hay, el fallo esta en querer correr sin saber andar....primero leete un par de manuales del VB, practica con otras aplicaciónes, leugo, cuando sepas VB, te vas a reir de ti mismo al ver los fallos que tenias antes de saber VB, te lo aseguro. ;)
Título: Re: no funciona! Publicado por: saliaz en 11 Julio 2007, 19:16 pm ok me lo leere....aunque despues me teneis que ayudar..adios y gracias
Título: Re: no funciona! Publicado por: Hendrix en 12 Julio 2007, 11:42 am ok me lo leere....aunque despues me teneis que ayudar..adios y gracias Claro, cuando te ayas leido el manual te ayudaremos encantado (aunque supongo que no hara falta.... ;) ;)) Suerte!! :) |