none
Alterar proteção de tela

    Pergunta

  • Olá a todos,

     

    Possuo um DVD personalizado do XP o qual instala drivers, programas, etc.  Como faço alguns ajustes, os scripts me ajudam a automatizar tarefas.   Gostaria de um para setar para uma proteção de tela de terceiros que é instalada junto com o DVD (Aqua Real), não precisando especificar tempo nem se o PC exibirá tela de boas-vindas.

    Agradeço desde já.

    domingo, 17 de outubro de 2010 15:47

Respostas

  • fmaquino,

    Segue uma vbs (não sei se irá te atender) mas está funcionando perfeitamente. Basta alterar o caminho em negrito para o caminho do seu screensaver e testar.

    Set oShell = CreateObject("WScript.Shell")
    sScreensaver = "C:\Windows\system32\screesaver1.scr"

    ' update in registry
    oShell.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", sScreensaver

    ' let the system know about the change
    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

    quarta-feira, 22 de fevereiro de 2012 19:33

Todas as Respostas

  • fmaquino,

    Segue uma vbs (não sei se irá te atender) mas está funcionando perfeitamente. Basta alterar o caminho em negrito para o caminho do seu screensaver e testar.

    Set oShell = CreateObject("WScript.Shell")
    sScreensaver = "C:\Windows\system32\screesaver1.scr"

    ' update in registry
    oShell.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", sScreensaver

    ' let the system know about the change
    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

    quarta-feira, 22 de fevereiro de 2012 19:33
  • Olá Ismael,

    Vou testar e posto o resultado.

    Agradeço desde já.

    []'s


    Fabio Maia - MCP - MCC

    quinta-feira, 23 de fevereiro de 2012 13:53