Mensajes

[Servidor Proxy]

lo que quiero es un script que me entregue ips falsas y que simulen ser mi ip real

???

Eso tiene nombre, Servidor Proxy.

Instalate el ultrasurf

No puedes crear ningún código en batch que sirva de proxy...

Saludos.

Ni idea, Yo probé esa iso que comentas en VBox 4.1.8 (Eligiendo Windows 8 como OS) y funcionaba bien, PC de sobremesa.

quizás séa por la RAM, a veces cuando bajo demasiado la ram no me funciona win 7, xp, ni ISO's de Windows Live cd's
Aumentando la ram siempre se arregla,prueba a ver...

PD: Ram de mi maquina virtual para win 8: 2 gb mínimo

Eso sí, Ni 5 minutos de vida le dí a este nuevo windows en mi maquina virtual, A la basura se fue, Lo odio  .

Saludos

¿Que diferencia hay entre el Ares original (Ares galaxy v2.1.8) y los ares de pago tipo "Ares 3.1", "Ares 2012"?

Acaso en las versiones modificadas tienen mejor calidad de servidores, más archivos, etc?

O solo han modificado el source del Ares original para hacerlo de pago y sacar dinero de la gente?

¿Con cual versión de ares se quedarían ustedes?

Saludos

con respecto ala instalacion no se como see instalan o que comandos se usan pero si medises que comando los instala te podre ayudar eso creo

El comando del bucle:   N.InvokeVerb("Install")

Código [Seleccionar] Expandir

[quote author=$Edu$ link=topic=350544.msg1715816#msg1715816 date=1328456136]
Porque tiene que ser vbs? si lo sabes hacer en batch.
shell.run "copy /Y *.ttf C:\*.ttf" , vbhide
[/quote]

Eso lo se hacer, pero no me sirve porque en batch no se pueden instalar fuentes (En windows 7 no) , con un "copy" no es suficiente, la única forma es dandole click derecho al archivo, o un programa o script vbs que haga el trabajo

Vale, he avanzado un poquito, ya no se como seguir ni corregir los errores que tengo:

Código (vb) [Seleccionar] Expandir

Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")


set winsh = CreateObject("WScript.Shell")
set winenv = winsh.Environment("Process")
windir = winenv("WINDIR")


Set objShell = CreateObject("Shell.Application")
carpeta=objshell.expandenvironmentstrings("sCurPath")
set f=objarchivo.getfolder(carpeta)
set fc=f.files

For each f1 in fc
if mid(f1.name,len(f1.name)-3,4)=".ttf" then
   f1.InvokeVerb("Install")
   end if
next

[novlucker]

Explica que es lo que queres hacer con el script porque me parece que estas haciendo cosas de mas.

Lo que quiero hacer es un script que instale los archivos de fuentes de texto .ttf  a la carpeta fonts de windows.

El script original es casi identico solo le he modificado 3 palabras, porque el original trabajaba solamente sobre 1 archivo .ttf, osea, el script funcionaba, pero necesito que trabaje con todos los archivos .ttf del directorio donde ejecute el vbs.

hola hacker aver si te sirve este code ya que yo tengo xp y tu 7 saludos hacker espero que te sirva

Te lo agradezco pero tu script solo funciona con el primer archivo, es decir, solo muestra un msgbox del primer archivo que encuentra en "C:\Windows\archivo.ttf"

He intentado modificarlo pero es bastante dificil para mi:

Código [Seleccionar] Expandir

carpeta=objshell.expandenvironmentstrings("C:\Users\Administrador\Desktop\Nueva carpeta")
De todas formas eso no me serviría, no estoy definiendo el directorio actual como se haría en batch por ejemplo así:

Código [Seleccionar] Expandir

%CD%

Pero ahora viendo tu script al menos ya se como definir el tipo de archivo "ttf", gracias.

No pretendo que me lo hagan todo, si alguien me diera esta información podría intentar modificarlo yo:

- definir el "CurrentDir" osea para que el script trabaje en el directorio actual en vez de %systemroot% en tu script

- Y que el "FOR" no se detenga en el primer resultado, Aunque esta información creo que debe estar en el tutorial de novlucker, pero sin la primera información me quedo en las mismas


Gracias a los dos

Up!

Una ayudita porfavor 

...

NETSTAT /?

[.fap]

cambiaba todas las extensiones de archivo por .fap

XDDDD que bueno tu virus

el 2 y el 1 no es lo mismo poner >nul

no

con ">" redireccionas la salida normal, y con "2>" redireccionas la salida de errores del comando.


saludos