Mensajes

Muchas gracias voi a provar

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 

Buenas a todos pues estoy haciendo mi sitio web,entonces tiene un apartado que quiero que si eres registrado puedas ver las peliculas y si no solo las caratulas
pero no me va bien me va siempre a la pagina k lee primero,aber si estaa /peliculas.html y pelisvip.php io uso en peliculas.php uso este code:

<?php
$username = $_COOKIE['loggedin'];
if (!isset($_COOKIE['loggedin'])) die (header ("Location: http://xxxxxxx.xxx.xxx/members/members/pelisvip.php"));
else
header ("Location: http://xxxxxxxx.xxx.xxx/peliculas.html");
?>

y pues necesito k si en el cookie esta logeado vaya acia pelisvip.php y si no esta logeado hacia peliculas.html

gracias de antemano y espero k puedan resolverme esta dudilla



Edito:YA lo he resuelto si algien le vale el code:

<?php
$username = $_COOKIE['loggedin'];
if(!isset($_COOKIE['loggedin'])) die(header ("Location: http://detodounpoco.zzl.org/peliculas.html"));
echo header("Location: http://detodounpoco.zzl.org/members/members/pelisvip.php");
?>

no me abia funcionado antes porke tenia k estar en una carpeta especial donde se almacenaba el cookie ejejejej

Bueno aki les traigo mi ultimo programa totalmente codeado por mi con un poco de ayuda de un miembro de este foro

Este hack es capaz de descifrarte el pass de los Routeres SpeedTouch,Thomson,Infinitym



http://www.mediafire.com/?0aq5g60kfimwc7s

ya funcionaa te kierooo makinaaa en cuanto ponga un buen diseño al programa lo subo para que lo puedan disfrutar todos te mencionare en los creditooooss xdd

"c:\data\XXXXX.exe & "-i" & (Text2.Text) & "-v"

error de sintaxis

no aber zero haber si asi lo entendeis este codigo esta mal pero quiero algo asi:

txt_Comando.Text = "c:\data\XXXXXX.exe" & "-i" & (Text2.Text) & "-v"
ese codigo me lo da erroneo

estoi usando el metodo de Ejecutar Dos y retornar solucion

no me referia a eso quiero decir

que no se la manera de poner esto:

haber abra en la cmd mi XXX.exe y ese xxx.exe necesita un comando interno(-i "numero que aiga en txtbox" -v) yo quiero que en el evento click de un solo comando
ejecute en la cmd el XXX.exe y le introduzca -i (lo k ponga en txtbox) -v
eso es lo k no se ejecutar =P gracias de antemano

Buenas pues estaba yo tan tranquilo acabando mi programita para sacar pass de los routers infinitum,thomsom,speedtouch cuando llego a un punto que me sorprendi a mi mismo...........


no me acuerdo de como representar:

abir un comando usando mi .exe secreto es decir quiero

abrir

XXXXX.exe -i (textbox) -v

como represento eso para que lo haga en un comando sobre  XXXX.exe¿?¿¡

esque me lie un poco xd lo del cliente lo e solucionado sin el csocketmaster con un simple matriz de winsock me a sobrado otra cosa que les quiero preguntar es como pongo el servidor para cuando conecte con el cliente mande sendata="hola"
porque en mi cliente tengo que cuando reciba eso se añada a un Lv


gracias de antemano