elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Enviar un textbox con VB		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Enviar un textbox con VB  (Leído 4,370 veces)
Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Enviar un textbox con VB
« en: 18 Mayo 2005, 14:53 pm »
Hola

El problema es el siguiente:
Estoy creando un chat para un troyano, cuando mando los comandos para que el formulario del chat sea visible lo hace a la perfeccion, pero cuando quiero mandar un texto de uno al otro lo que el servidor me recibe es lo que le e mandado y como cada vez le mando un texto diferente el no lo reconoce.

Ejemplo.

Con el cliente mando "OPENCHAT"
El servidor  lo recibe y se pone la propiedad visible del formulario del chat en true. Hasta aqui bien.

Cuando con el cliente le mando los datos de un textbox por ejempo "hola" al servidor le llega eso y no sabe que acer con ello.

Ayuda please!!!

Salu2
En línea
:laugh: Tracker privado Nova+
Simbelmynë


Desconectado Desconectado

Mensajes: 857



Ver Perfil WWW
Re: Enviar un textbox con VB
« Respuesta #1 en: 18 Mayo 2005, 20:59 pm »
Trabajalo con un listbox en el servidor...
Y cada vez que envias texto desde el cliente hacelo de la forma:
winsock1.senddata "mensaje" & texto
donde "mensaje" solamente sera una norma para que el servidor interprete que se trata de un mensaje que le envias y lo inserte en el listbox, y texto es una variable que almacena el mensaje que escribiste en el textbox del cliente.
Luego, en el evento data arrival del servidor:
if left(datos, 7) = "mensaje" then
list1.additem mid(datos, 8)
end if
Mas o menos lo mismo para las respuestas por parte del servidor...
Un saludo
En línea
p0w3r f1y

Desconectado Desconectado

Mensajes: 33


Ver Perfil
Re: Enviar un textbox con VB
« Respuesta #2 en: 19 Mayo 2005, 21:19 pm »
También se puede hacer de esta forma ( es la que uso yo ):
Para enviar cualquier orden primero mandas el comando, separado de lo que varía ( Ej: comando: "CHAT", lo que varía: "hola....")
Y para enviarlo pues unes las dos cadenas con un carácter no muy común o con otra cadena. (ej: WS.sendata "CHAT" & "|||" & variabletexto)
Eso lo haces para todos los comandos, aunque sea por ejemplo abrir el cd y no haya que enviar dato que varíe, pues pones por ej: "ABRIRCD|||OK"
Y luego en el arrival del winsock "partes" la cadena y con un select case vas buscando en función del comando. Ej:
Código:
'dentro del winsock
Dim datos as string
WS.getdata datos
Dim separar as variant
separar=Split(datos, "|||")' crea un array en el que mete los 
'datos separados por |||, puede haber todos los comandos 
'secundarios que quieras
If ubound(separar) then' si existe algun array....
Select case separar(0) ' aqui estará el comando, ej: "CHAT"
Case "CHAT"
Msgbox separar(1) ' en separar(1) estaría el texto, ej: "Hola"
Case...
Case...
End Select
End if


Espero que te sirva.
Salu2
En línea
Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: Enviar un textbox con VB
« Respuesta #3 en: 20 Mayo 2005, 00:54 am »
Hola

Estoy provando con el codigo que a puesto p0w3r f1y.

Pero no lo entiendo bien y me da un error "el subindice esta fuera del intervalo"

Aunque el servidor recibe correctamente los datos "CHAT|||el mensaje"

Aqui esta el codigo a ver si me podeis ayudar o sino ponerme un ejemplo con un cliente y un servidor.

CLIENTE:

Código:
Private Sub Command_enviar_Click()
Dim datos As String
datos = "CHAT" & "|||" & Text_nick.text & " :  " & Text_mensaje.text
List_chat.AddItem Text_nick.text & " :  " & Text_mensaje.text
Form_menu.Winsock_menu.SendData datos
Text_mensaje.text = ""
End Sub

SERVIDOR:

Código:
Dim datos As String
Dim separar As Variant
Winsock_server.GetData datos
separar = Split(datos, "|||")
' crea un array en el que mete los
'datos separados por |||, puede haber todos los comandos secundarios que quieras
If UBound(separar) Then ' si existe algun array....
Select Case separar(0) ' aqui estará el comando, ej: "CHAT"
Case "CHAT"
MsgBox separar(1) ' en separar(1) estaría el texto, ej: "Hola"

End Select
End If

Gracias de todas maneras.
Salu2
En línea
:laugh: Tracker privado Nova+
p0w3r f1y

Desconectado Desconectado

Mensajes: 33


Ver Perfil
Re: Enviar un textbox con VB
« Respuesta #4 en: 20 Mayo 2005, 18:28 pm »
Igual es por lo de If Ubound(separar), no me acuerdo muy bien de como iba eso, prueba con if not ubound(separar), o quítalo....Esque hace mucho que no hago nada en vb, pero eso sirve para que si te mandan un comando "mal construido", osea, que no tenga el separador que tu has asignado pues no entre en el select.
Salu2
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
De textbox multilinea a textbox independientes
Programación Visual Basic 		rapbyone 4 2,837 Último mensaje 4 Febrero 2015, 16:25 pm
por seba123neo
mvc 5 textbox
Programación General 		ah1mvc 4 2,243 Último mensaje 28 Febrero 2019, 19:46 pm
por ah1mvc
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines