Mensajes

[estos]

A mi gusto mas simple q eso son estos módulos

1S4ludo

Código [Seleccionar] Expandir

'BOTON PARA DESACTIVAR Ctrl+Alt+Sup:

Private Sub cmdDesactiva_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

'BOTON PARA Activar Ctrl+Alt+Sup:

Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

Pues depende xDD lo kieres hacer sin tener un server a la escucha en el otro Pc?? si es solo para mensajeria como dices usa la de windows y asi no tienes q instalar ningun server (por q e lserver ya lo trae windows activado )
Si kieres hacer el tullo propio pues tienes q poner servers a la escucha o aprovechar alguna vulnerabilidad...

Pues si kieres un joiner ya fabricado esta el MSB q es muy weno o el red binder (creo q se esribe asi).
De todas formas lo mas recomendable es q te hagas el tullo propio, hay manuales por el foro y no es nada compliado

Pues no me hagas mucho caso, pero por lo que tengo entendido VB no es un buen lenguaje para hacer esto. C por ejemplo es mas rapido...

Si, tienes razon le falta una oma que me e comido:

Código [Seleccionar] Expandir

Put #1, , Text4.Text

Una cosa. Ese code q has puesto no funciona si el archivo es muy grande (haz la prueva) por q el ws parte las cadenas q envia, tienes q hacerlo asi:

Server:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub


Cliente:

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If


He puesto ademas para que salga un ProgressBar1  si no lo quieres simplemente elimina estas lineas:

Código [Seleccionar] Expandir

ProgressBar1.Max = LenFile
ProgressBar1.Value = 0
ProgressBar1.Value = Len(DataFile)

1S4ludo

Jajaja ok la proxima vez te aviso, pero bamos q no kedas como un boludo, todos nos ekivocamos, no tiene mayor importancia, para eso estamos aki para aprender, aun recuerdo cuando aprendi el aceso a archivos por una cosa q te pregunté xDD

Hace tiempo keria hace mi propio reproductor y googleando encontre algunos proyectos con lo que tu kieres, googlea a ver... tb podrias preguntar a RedMX q me parece q tiene un reproductor con esas caracteristicas

1S4ludo

Mira esto: http://foro.elhacker.net/index.php/topic,151013.0.html a ver si es lo q buscas...

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-tabbed-dialog.htm

Te aviso q es un poco incomodo trabajar con este control si hay muxas pestañas...

1S4ludo