Hola, a ver si me explico bien:
Estoy creando un troyano en visual basic y tengo un problemilla:
Primero el codigo:
-----SERVER------
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
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
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
Fijate de poner esto en el server:
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
Muchas gracias, el problema ya esta solucionado.
Salu2