Script para ejecutar google chrome...

[Eleкtro]

quizas se podría buscar el acceso directo y agregarle esta propiedad para que cada vez que se ejecute este acceso directo acceda con la opcion habilitada.

Eso es precisamente lo que hacen los comandos externos que te comenté

A ver, Es que no tengo muy claro la forma en que van a usar tu script...
Para que el usuario no haga nada manualmente, Puedes crear un archivo extraible con WINRAR. Adentro metes el comando externo (El archivo.exe), Y usas el comando externo en tu script, tal y como lo detalla el manual del primer comando externo que te puse...
¿Me entendiste?


Bueno, De todas maneras no importa, Te lo voy a poner muy fácil...

Cuando comentaba lo de los argumentos, Me referia a "iniciar" el VBS pasándole los parámetros que obtienes en el bat (La ruta del chrome), Y así hacer el acceso directo.

Aqui tienes la variante del code que te ppuse arriba:

PD: No ejecuta Chrome, Simplemente crea el acceso directo en el escritorio.

Código (dos) [Seleccionar] Expandir

@Echo OFF

REM Comprueba la versión de Windows para usar debidamente el comando START
wmic os get name /format:list | find /i "windows 7" >NUL
If errorlevel 0 (Set Win7=SI)

Echo: Buscando Google Chrome...

REM Primero busca en las carpetas corrientes de los programas instalados.
For /F "Tokens=*" %%# in ('Dir /B /S "%Programfiles%\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%#")
For /F "Tokens=*" %%# in ('Dir /B /S "%Programfiles(x86)%\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%#")

REM Busca en todas las unidades.
For /F "Tokens=2 delims==:" %%# in ('wmic logicaldisk get caption /format:list') Do (
For /F "Tokens=*" %%$ in ('Dir /B /S "%%#:\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%$"))
Goto :Error

REM Crea el acceso directo
:Shortcut
Echo: Set Shell = CreateObject("WScript.Shell") > %Systemdrive%\chrome.vbs
Echo: DesktopPath = Shell.SpecialFolders^("Desktop") >> %Systemdrive%\chrome.vbs
Echo: Set link = Shell.CreateShortcut(DesktopPath ^& "\Google Chrome.lnk") >> %Systemdrive%\chrome.vbs
Echo: link.Description = "Google Chrome" >> %Systemdrive%\chrome.vbs
Echo: link.IconLocation = Wscript.Arguments(0) >> %Systemdrive%\chrome.vbs
Echo: link.TargetPath = Wscript.Arguments(0) >> %Systemdrive%\chrome.vbs
Echo: link.Arguments = Wscript.Arguments(1) >> %Systemdrive%\chrome.vbs
Echo: link.WorkingDirectory = Wscript.Arguments(2) >> %Systemdrive%\chrome.vbs
Echo: link.Save >> %Systemdrive%\chrome.vbs
Echo: Wscript.Quit(0)  >> %Systemdrive%\chrome.vbs

wscript %Systemdrive%\chrome.vbs %* --ignore-gpu-blacklist "%~dp1"
If NOT %Errorlevel% EQU 0 (Goto :Error)
Del /Q "%Systemdrive%\chrome.vbs"
Exit


REM Si no lo encuentra...
:Error
Echo: No se ha encontrado el executable "Chrome.exe" | MORE
Pause
Exit

[fullhaksistem]

abrir navegador

con  archivos .vb

Código (vb) [Seleccionar] Expandir

Set variable = CreateObject("WScript.Shell")
variable.Run "http://lcscript.........."


desde visual Basic =

Código (vb) [Seleccionar] Expandir

Try
           System.Diagnostics.Process.Start("http://lcscript........./")
       Catch
           'Code to hanle the error
       End Try


esperimentando...............

[Eleкtro]

@fullhaksistem
No creo que sea de mucha ayuda un snippet de VB.NET para un usuario que preguntó en un subforo de Scripting, aún así, gracias por colaborar con los demás.

Fíjense en el perfil de los usuarios antes de revivir un tema antiguo:

Nombre:    gandalf2706
Última vez activo:    23 Marzo 2012, 16:07

Tema cerrado,
Saludos!