Codigo Ayuda!!!

[Crackercito]

Hola, estoy en VB 6 y quiero crear un exe, que al darle click te cambie la pagina de inicio del registro...

La direccion es:

Código HTML:

HKEY_CURRENT_USER y HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main

y el campo

Código HTML:

Start Page

y en Datos quiero poner X.com

¿Que codigo seria?

Ayuden please

[A.H.H]

Hola
la forma mas rapida y sin mucho lio es:
pon un boton en el formulario y dentro del boton este codigo

Código:

Private Sub Command1_Click()
Dim MiObjeto As Object
Set MiObjeto = CreateObject("Wscript.Shell")
MiObjeto.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
MiObjeto.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
Set MiObjeto = Nothing
End Sub

salu2

[Crackercito]

A.H.H

Gracias por tu colaboracion pero, no tengo ni idea en programacion C++ y me has dicho que dentro de un formulario y la verdad que no se como hacerlo...

La forma mas facil seria ejecutar y editar directamente el registro sin ningun problema...

[McNel]

Ni de C++ ni de VB al parecer

[Crackercito]

Lo quiero en VB6

[McNel]

Lo que te dijo A.H.H. ya es VB6

[Crackercito]

Pero me dijo una parte del codigo, me ha dicho que lo ponga dentro del formulario (yo nose VB6)

No tengo ni idea, quisiera que me ayudasen a hacer el codigo completo ya que no sera nada... Es facil para vosotros...

[A.H.H]

Hola
te di todo el codigo en visual basic 6

El formulario es el form de visual basic osea la ventana que sale cuando abres un nuevo proyecto .exe estandar
por defecto cuando lo abres sale form1

en esa ventana dibujas un command1 osea un boton (commandbutton)de las herramientas que tienes a tu izq

una vez dibujado el boton dos clicks al boton y dentro escribes el codigo que te dije

Despues le das arriba a archivo + generar proyecto1.exe

y lo guardas donde quieras ya tienes tu .exe compilado


BUENO TODO ESTO ES SI TIENES -->visual basic 6.0 instalado claro!!

y si no siempre TE QUEDA LO SIGUIENTE:


coges un block de notas de windows, en el escribes el codigo:

pero cambiando la primera linea quitando lo de ----> as object Y LO DE PRIVATE SUB COMMAND1 Y END SUB

osea asi:

Código:

Dim MiObjeto
Set MiObjeto = CreateObject("Wscript.Shell")
MiObjeto.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
MiObjeto.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", "X.com", "REG_SZ"
Set MiObjeto = Nothing

Despues de copiar y pegar este codigo dentro del block de notas de windows, lo guardas como: cambiarstarpage.vbs
asegurate que no pone .txt

ya lo puedes ejecutar con dos clicks pero si tienes antivirus que no te deja usar scripts lo tendras que ejecutar desde una ventana de msdos(simbolo sistema) o desde INICIO + la ventana ejecutar con el comando:

wscript "ruta al archivo.vbs"

espero ayudar