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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 49
211  Programación / Programación Visual Basic / Web cam caputras y envio para web en: 16 Septiembre 2010, 23:29 pm
Hola gente bueno les comento cual es mi idea.
Tengo el siguiente programa en VB con el cual ago la caputra de mi web cam en tiempo real.

FROM

Código
  1.   Option Explicit
  2.   Dim temp As Long
  3.  
  4.   ' botón que inicia la captura
  5.   '''''''''''''''''''''''''''''''''''''''
  6.   Private Sub Command1_Click()
  7.   Dim temp As Long
  8.  
  9.    hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible, _
  10.                                       0, 0, 320, 240, Picture1.hwnd, 0)
  11.     If (hwdc <> 0) Then
  12.       temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
  13.       temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
  14.       temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
  15.       temp = SendMessage(hwdc, WM_CAP_SET_SCALE, True, 0)
  16.       'esto hace que la imagen recibida por el dispositivo se ajuste
  17.       'al tamaño de la ventana de captura (justo lo que yo buscaba)
  18.       DoEvents
  19.       startcap = True
  20.       Else
  21.       MsgBox "No hay Camara Web", 48, "Error"
  22.     End If
  23.  
  24.   End Sub
  25.  
  26.   ' botón para detener la captura
  27.   '''''''''''''''''''''''''''''''''''''''
  28.   Private Sub Command2_Click()
  29.  
  30.       temp = DestroyWindow(hwdc)
  31.       If startcap = True Then
  32.           temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
  33.           DoEvents
  34.          startcap = False
  35.       End If
  36.  
  37.   End Sub
  38.  
  39.   ' Botón que abre el dialogo de formato
  40.   ''''''''''''''''''''''''''''''''''''''''''''
  41.   Private Sub Command3_Click()
  42.           If startcap = True Then
  43.  
  44.               temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
  45.               DoEvents
  46.           End If
  47.   End Sub
  48.   ' Mostrar dialogo de Configuracion de la WebCam
  49.   ''''''''''''''''''''''''''''''''''''''''''''''''''''
  50.   Private Sub Command4_Click()
  51.    Dim temp As Long
  52.       If startcap = True Then
  53.           temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOCONFIG, 0&, 0&)
  54.           DoEvents
  55.       End If
  56.   End Sub
  57.  
  58.   Private Sub Form_Load()
  59.       Command1.Caption = "Iniciar"
  60.       Command2.Caption = "Detener"
  61.       Command3.Caption = "Formato"
  62.       Command4.Caption = "Configurar"
  63.       Me.Caption = "Capturador de Web Cam"
  64.   End Sub
  65.  
  66.   Private Sub Form_Resize()
  67.       On Error Resume Next
  68.       Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29
  69.   End Sub
  70.  
  71.   Private Sub Form_Unload(Cancel As Integer)
  72.  
  73.       temp = DestroyWindow(hwdc)
  74.       If startcap = True Then
  75.           temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
  76.           DoEvents
  77.           startcap = False
  78.       End If
  79.   End Sub

MODULE

Código
  1.    Option Explicit
  2.    ' declaraciones Api, constantes, variables
  3.    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  4.    Public Const ws_child = &H40000000
  5.    Public Const ws_visible = &H10000000
  6.    Public Const WM_USER = 1024
  7.    Public Const wm_cap_driver_connect = WM_USER + 10
  8.    Public Const wm_cap_set_preview = WM_USER + 50
  9.    Public Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
  10.   Public Const WM_CAP_DRIVER_DISCONNECT = WM_USER + 11
  11.   Public Const WM_CAP_DLG_VIDEOFORMAT = WM_USER + 41
  12.   Public Const WM_CAP_DLG_VIDEOCONFIG = WM_USER + 42
  13.   Public Const WM_CAP_SET_SCALE = WM_USER + 53
  14.  
  15.   'Api para crear la ventana de captura
  16.   Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
  17.       Alias "capCreateCaptureWindowA" ( _
  18.       ByVal lpszWindowName As String, _
  19.       ByVal dwStyle As Long, _
  20.       ByVal x As Long, _
  21.       ByVal y As Long, _
  22.       ByVal nWidth As Long, _
  23.       ByVal nHeight As Long, _
  24.       ByVal hwndParent As Long, _
  25.       ByVal nID As Long) As Long
  26.  
  27.   Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
  28.       ByVal hwnd As Long, _
  29.       ByVal wMsg As Long, _
  30.       ByVal wParam As Long, _
  31.       lParam As Any) As Long
  32.  
  33.   Public Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean
  34.   'Solo 16 Bits (vb2, vb3 y vb4  de 16)
  35.   'Declare Function SendMessage Lib "User" ( _
  36.        ByVal hWnd As Integer, _
  37.        ByVal wMsg As Integer, _
  38.        ByVal wParam As Integer, _
  39.        lParam As Any) As Long
  40.   'Api para crear la ventana de captura
  41.   'Declare Function capCreateCaptureWindow Lib "avicap.dll" ( _
  42.        ByVal lpszWindowName As String, _
  43.        ByVal dwStyle As Long, _
  44.        ByVal x As Integer, _
  45.        ByVal y As Integer, _
  46.        ByVal nWidth As Integer, _
  47.        ByVal nHeight As Integer, _
  48.        ByVal hwndParent As Integer, _
  49.        ByVal nID As Integer) As Long
  50.   'Declare Function DestroyWindow Lib "User" (ByVal hndw As Integer) As Integer
  51.   Public hwdc As Long
  52.   Public startcap As Integer
  53.  
 
 
Bueno con esto tengo algo o una idea, pero lo que quiero hacer es poner esto en mi web, osea poder entrar en cualquier maquina y ver que sucede en mi casa o donde apunte mi webcam. Similar a un sistema de vigilancia.

Ahora bueno como ago para mandar esto a un servidor? debere usar socket?
No se si me explico bien, puede ser tambien q este codigo no me sirva, ya que enrealidad lo de tiempo real no sirve, tendria que ser como fotos o capturas de imagenes guardarlas y enviarlas, y hacer un refresh en la web y que vaya actualizadon, creo que es lo mas correcto. pero no se estoy medio en las nueves son nuevo en la prog.

Mas que nada este post esta destinado a que me den sugerencias, e ideas, de por donde encarar el problema.
Desde ya gracias.

Aca dejo lo q seria el codigo en html para la visualizacion de la cam.
Código
  1. <TITLE>Webcam</TITLE>
  2.  
  3. <META HTTP-EQUIV="Refresh" CONTENT="30">
  4. </HEAD>
  5.  
  6. <IMG SRC="ImagesWebCam.gif">
  7. <FONT FACE=Verdana SIZE=6 COLOR=#0011AA><B>Actualizacion cada minuto</B></FONT><BR><BR>
  8. <FONT FACE=Verdana SIZE=2 COLOR=#9911AA><B>viendo nuestra vida en directo.</B></FONT><BR><BR>
  9. <CENTER><IMG SRC="(aqui ira la ruta de la imagen la cual se refrescara cada minuto)">&" BORDER=1></CENTER><BR>
  10. <CENTER><HR WIDTH=75% HEIGHT=2px COLOR=#0011AA></CENTER><BR>
  11.  
  12. </BODY>
  13. </HTML>

Saludos
212  Foros Generales / Foro Libre / Re: Pregunta matemáticas en: 13 Septiembre 2010, 04:56 am
Tendrias que leer esto que explica que es una relacion en matematicas.
http://es.wikipedia.org/wiki/Relaci%C3%B3n_matem%C3%A1tica
http://es.wikipedia.org/wiki/%C3%81lgebra_relacional
Por ahi lo estas viendo desde el punto de vista de que son edades consecutivas.

Si las edades son 5, 6, y 7
y el menor ahora tiene 20, viendo q hay un año de dif el mayor tendria 22.
213  Programación / Desarrollo Web / Ver mi webcam desde mi servidor host en: 13 Septiembre 2010, 04:34 am
Hola gente bueno les comento, tengo una aplicacion en VB 6.0 en la cual capturo mi webcam, nada complicado solo visualizacion de la webcam.
Bueno ahora se me ocurrio querer ver mi webcam desde una web para poder ver desde mi celular.
En cuestion lo principal es logar subir a un host la webcam. Como un sistema de vigilancia.
Mi duda es que no se por donde empezar, tengo esta aplicacion en vb supongo que mediante sockets podria mandar esta informacion a un servidor, y en el servidor tendria que tener una aplicacion que me permita visualizar la cam, pero aca tendria que usar otro leguaje php?, java? (No lo se).
Se que hay varios programas por ahi que me simplificarian el trabajo y el dolor de cabeza, pero no es la idea.
Alguien ah echo algo parecido?
Alguna forma mas sencilla? Ideas?
Gracias de antemano, Saludos.
214  Informática / Electrónica / Re: Etapa de potencia en: 2 Septiembre 2010, 07:02 am
No esta del todo claro que es lo que queres hacer. Haber no tengo un equipo asi para ver, pero me surgen dudas, estas hablando de una potencia, potencia para que? para una bazzoca (buffer), o para que salga por los parlantes del auto nada mas?.
O puede ser ambos, que potencia es? q modelo, marca? supongo q es estereo.
215  Informática / Electrónica / Re: Mis pequeñas prácticas con microcontroladores en: 31 Agosto 2010, 04:54 am
El que te pase yo es el que uso, y funciona bien, lo de la corvencion no se si estara bien o no, lo tendria q ver, cuando pueda te digo, el programa tiene para seleccionar por que puerto se manda la informacion, sea DB9 o LPT1 o 2.
216  Programación / Programación C/C++ / Re: Principios básicos de programación Windows - Lenguaje C++ en: 29 Agosto 2010, 01:15 am
solo dire que merece una chincheta :D
217  Foros Generales / Foro Libre / Re: Se buscan donantes para restaurante caníbal en: 28 Agosto 2010, 03:00 am
Conclusion: Nunca pidan una salchicha jajajajaj :laugh:
218  Informática / Electrónica / Re: Mis pequeñas prácticas con microcontroladores en: 27 Agosto 2010, 22:05 pm
@andres_5

Quemador PIC Circuito

http://www.megaupload.com/?d=NRBHEVYM

Ahi habia dejado uno, el circuito es completamente funcicional, no es muy caro armarlo si no me equivoco 10dolares saldra o menos.
Solo necesitas un par de transistores, diodos, diodo zener, algunas resistencias, dos leds, y socalos para pic de 8; 18; 28, y 40 a y un conector hembra DB-9

El circuito es sencillo y facil de armar.

hasta ahi el hardware, abria que ver ahora el software, no conozco ninguno para linux, pero estoy seguro de debe haber, habria que buscar en google haber q hay, cualquier cosa te aviso si encuentro algo.
Si no podes en una maquina virtual instalar un SO para hacer el quemado.

Saludos

Pegate una vuelta por esa pag no lei muy bien pero creo q es un quemador (software) para linux
http://pikdev.free.fr/

Sino aca podes ver que onda tmb
http://pic-linux.foroactivo.net/programadores-f12/enlaces-a-paginas-de-programadores-t4.htm
219  Informática / Electrónica / Re: Mis pequeñas prácticas con microcontroladores en: 27 Agosto 2010, 13:38 pm
Hola a todos, bueno, creo q adelante y tire codigo muy rapido jaja, pero son algunos ejemplos muy sencillos como veran, los pic se programan en lenguaje assambler para pic, diferente al assembler de maquina, si quieren puedo subir una pequeña introduccion, a lo largo del dia ya que en estos momentos no puedo.


Pd: Ahi en mi anterior post subi a megaupload un quemado barato de armar alrededor de unos 30 a 40$ (Argentina) dependiendo de donde vivan. En dolares seran 10dolares masomenos.

Edit.
Un ejemplo de un pic seria el siguiente 16f84

RA0 a RA4 RA es un puerto bidireccional. Eso quiere decir que puede ser configurado como entrada o como salida. El número que hay después de RA indica el numero de bit (0 a 4). Por tanto, tenemos un puerto bidireccional de 5 bits donde cada bit puede ser configurado como entrada o como salida.

RB0 a RB7 RB es un segundo puerto bidireccional. Se comporta exactamente de la misma manera que RA, excepto que este tiene 8 bits.

VSS y VDD Estos son los pins de alimentación. VDD es la alimentación positiva, y VSS es el negativo de la alimentación, o 0 Voltios. La tensión máxima de alimentación que puedes utilizar son 6 Voltios, y el mínimo son 2 Voltios.


OSC1/CLK IN y OSC2/CLKOUT
Estos pines son donde conectaremos el reloj externo, para que el microcontrolador disponga de algún tipo de temporización.

MCLR  Este pin se utiliza para borrar las posiciones de memoria dentro del PIC (p.ej. cuando quiero reprogramarlo). Durante el funcionamiento normal está conectado a la alimentación positiva.


INT Este es un pin de entrada que puede ser monitorizado. Si el pin se pone a nivel alto, podemos hacer que el programa se reinicie, se pare o cualquier otra función de deseemos. No lo utilizaremos mucho.

 
TOCK1 Esta es otra entrada de reloj, que opera con un temporizador interno. Opera aisladamente del reloj principal. De nuevo, este tampoco lo utilizaremos mucho.


Como programar


Comentario: Esta imagen creo que lo dice todo


Bueno en primer lugar se programa en assembler el programa que queremos realizar, existen editores o simplemente un bloc de notas con una extensión .asm.
El paso siguiente es tomar ese fichero .asm y pasarlo a .Hex para poder grabarlo en el pic y que este entienda las intrucciones que debe realizar, para esto podemos usar el MASN para dar el mismo ejemplo, pero existen otros.
Cuando tenemos el  fichero .ASM lo que resta es quemarlo en el pic, para esto utilizamos el IC-Prog, en este programa debemos indicar que pic vamos a usar de una lista que tenemos en el mismo. Y listo ya tenemos el pic programado.

Circuito Con un pic


Aca tenemos un circuito sencillo con un pic

Fuente: http://wiki.webdearde.com/index.php/Tutorial:_Programaci%C3%B3n_de_PICs_en_Ensamblador

PD: De esta misma fuente, se explica como programar en en assembler para pic.

Ahi pueden encontrar como programar un pic explicado detalladamente, cualquier duda pregunten, no doy una explicacion propia porq hay mucha info en internet que seguramente lo expliquien mejor que yo. Esta web que paso es una. :xD

220  Seguridad Informática / Análisis y Diseño de Malware / Re: Duda sobre conexion inversa en: 27 Agosto 2010, 03:23 am
mmm.. tengo algunos problemas al utilizar GetlastError, revisado la MSDN, vi un ejemplo de como usarla pero al momento de compilar me salen algunos errores, creo que es por el IDE del compilador que tengo Dev-C++

Esto es lo q me tira el compilador
StringCchPrintf
#include <strsafe.h>  ---> esta libreria falta.

Hay algun reemplazo para esta libreria, para el ide q tengo?
O mejor cambio a VC++
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 49
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines