 Autor
|
Tema: Problema al crear y ejecutar .vbs (Leído 10,344 veces)
|
Segurida
 Desconectado
Mensajes: 61
|
Hola, tengo un problema que me trae dolor de cabeza, necesito crear un archivo .vbs para liberar la memoria ram, y después ejecutarlo, al crearlo, se crea bien (por lo menos el archivo está y con su contenido es el correcto) pero al ejecutarlo, da error, y me gustaría poder hacerlo de alguna forma para saber si se ejecuta y termina bien, o si falla, para poder poner un mensaje de error personalizado, mi versión de Visual Basic es la 2008 Express, este es el código que utilizo para crealo: My.Computer.FileSystem.WriteAllText("liberar.vbs", "Mystring = (80000000)", True)
Y este otro para ejecutarlo: Process.Start("liberar.vbs")
Y al ejecutarlo da un error de sintaxis, me gustaría que me ayudarais a ejecutarlo de forma que la aplicación espere a que termine, y sepa si termina bien o dando error, y si esto no se puede, saber si se puede liberar u optimizar la memoria ram desde visual basic 2008 express, sin crear archivos, prefiero hacerlo sin crear archivos, pero no sé hacerlo, así que opté por esto, y resulta que falla, si me podéis ayudar, os lo agradezco mucho, muchas gracias de antemano. Un saludo.
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
espero que te sirva. (es vb6, fijate la sección) (este libera ram tmb) On Error Resume Next dim win as string win = environ$("windir") Dim arch2 As String arch2 = win & "\Memoria2.vbs" Close #2 Open arch2 For Output As #2 Print #2, "Mystring=(80000000)" Close #2 Sleep 1000 Shell ("rundll32.exe url.dll,FileProtocolHandler " & win & "\Memoria2.vbs") Shell ("rundll32.exe advapi32.dll,ProcessIdleTasks")
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. Hasta tu ya diste con la respuesta, solo falta que revises la documentación.
Y al ejecutarlo da un error de sintaxis,
Si es eso seguro que te faltan o estas violando los parámetros igual no es esta la sección de .NET P.D.: esto hace lo mismo... no se para que tanto lio... sub main Dim memoria() as byte redim memoria(0 to 256*1024*1024) ' // Forzamos al S.O. a quitar X cantidad de memoria a el archivo de paginacion... end sub
Dulces Lunas!¡. |
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
black que hace el redim?
:3
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. mira esta pagina hermosisima... Redim
prefiero hacerlo sin crear archivos, pero no sé hacerlo, así que opté por esto
hay algo que me dijo un sujeto que se le tegno que decir Tio por gen sanguíneo... y tiene mucha verdad esas palabras:
Sabrás mil y una de la sintaxis de los lenguajes de programación pero de que demonios te sirve si no sabes hacerlo de forma manual, entonces como diablos quieres programarlo, con magia? eso no existe.
Dicen que C/C++ es lo mas potente... ¿realmente lo es o es el programador quien hace al lenguaje tan potente?...!¡
A lo que voy si no sabes hacerlo o no sabes como trabaja entonces no sabes programarlo. Dulces Lunas!¡. - |
|
|
|
« Última modificación: 1 Mayo 2011, 11:28 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
|
Segurida
Desconectado
Mensajes: 61
|
¿Con esto se libera memoria ram?, yo no noto diferencia al ejecutarlo... sub main Dim memoria() as byte redim memoria(0 to 256*1024*1024) ' // Forzamos al S.O. a quitar X cantidad de memoria a el archivo de paginacion... end sub
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
@nukje Antes de que aparezca por aquí.... sub main '268435456 = 256*1024*1024 '268435455 = 268435456-1 'De 0 a 268435455 = 268435456 Bytes... = 256 Megas. Dim memoria(0 to 268435455) as byte ' // Forzamos al S.O. a quitar X cantidad de memoria a el archivo de paginacion... end sub
@Segurida Es un ejemplo acomoda-lo a tus necesidades!¡.. Dulces Lunas!¡. . |
|
|
|
« Última modificación: 1 Mayo 2011, 11:26 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
usa el q te di, pero tampoco vas a notar diferencia porq estos vbs no hacen practicamente NADA
o porlomenos, aunque lo haga manual, nunca me libera nada.
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
usa el q te di, pero tampoco vas a notar diferencia porq estos vbs no hacen practicamente NADA
o porlomenos, aunque lo haga manual, nunca me libera nada.
Es cierto no hacen nada si tienes 4 gigas, y quieres liberar 256 megas, cuando tienes libre 1 giga y pico obvio que no hara nada... lo demas no lo digo ya que s epuede obviar con lo que ya dige. P.D.: Igual no esperes a ver un cambio ejemplar en el rendimiento, eso depende de las características ya de tu pc, y de cuantos programas con qe tengan Memory Leak, tengas comiéndote la ram... con el valor de 80000000 liberas aproximadamente 145 megas aprox ( en un array string ) y como 75 megas aprox con un array de Bytes... Dulces Lunas!¡. .
|
|
|
|
« Última modificación: 1 Mayo 2011, 11:34 am por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema al ejecutar GTA San Andreas (PC)
Juegos y Consolas
|
piperrak
|
8
|
3,049
|
30 Junio 2005, 23:33 pm
por Mance
|
|
|
|
Problema al ejecutar con el Olly
Ingeniería Inversa
|
Nanocity
|
6
|
2,859
|
24 Marzo 2006, 15:49 pm
por manutenfruits
|
|
|
|
Problema al ejecutar SpellForce 2
Juegos y Consolas
|
kld3ron
|
0
|
1,944
|
26 Noviembre 2006, 22:22 pm
por kld3ron
|
|
|
|
Problema al ejecutar API sin VB6.-
Programación Visual Basic
|
mdg
|
0
|
1,145
|
23 Agosto 2007, 05:01 am
por mdg
|
|
|
|
crear bat para ejecutar un programa
Scripting
|
rbpkirow
|
1
|
7,805
|
20 Enero 2009, 05:33 am
por BEATMASTER
|
 |
