06/12/2005, 09:08
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 20 años, 5 meses Puntos: 6 | |
Código:
Dim Arch As String
Arch = "C:\Memoria.vbs"
Close #1
Open Arch For Output As #1
Print #1, "FreeMem = Space(" & Slider1.Value * 10000 & ")"
Close #1
Shell ("rundll32.exe url.dll,FileProtocolHandler " & "C:\Memoria.vbs")
salu2
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |