grax pero no entendi mucho deja verlo mas detallado saludos!!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarPrivate Sub sock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Sock1(Index).Close
Sock1(Index).Accept requestID
TxtConectados.AddItem Sock1(Index).RemoteHostIP & ":" & Sock1(Index).LocalPort & ":" & Conexiones
CCliente.AddItem Conexiones
Text2.Text = Conexiones
Conexiones = Conexiones + 1
Load Sock1(Conexiones)
Sock1(Conexiones).LocalPort = TxtPuerto.Text
Sock1(Conexiones).Listen
end sub
CitarPrivate Sub Sock1_Close(Index As Integer)
TxtConectados.RemoveItem Sock1(Index).Tag
End Sub
CitarTimer1.enabled = True
Timer1.interval = 0
Label88.caption = 0
Private Sub Timer1_timer()
Label88.caption = Label88.caption + 1
If label88.caption = 1 then
ACA QUIERO QUE SE CIERREN TODAS LAS VENTANAS ABIERTAS
end if
If label88.caption = 3 Then
ACA QUE SE EJECUTE EL HL.EXE
end if
If label88.caption = 5 then
ACA QUE SE CIERRe EL HL.EXE
end if
If label88.caption = 7 then
label88.caption = 0
timer1.enabled = False
end if
end sub