locked
script para mudar a imagem do ambiente de trabalho RRS feed

  • Pergunta

  • necessito de um sript para alterar o ambinte de trabalho, para um trabalho
    segunda-feira, 22 de junho de 2009 13:00

Respostas

  • Boa tarde Ja!

    Da uma olhada e ve se te ajduda.

    função para alterar a imagem do desktop

    Public sub AlterarDesktop(DesktopImg As String, ImgPos As String, mosaico As String)
      On Error GoTo error
      Set reg = New Registry
      k_root = HKEY_CURRENT_USER
      k_name = "Control Panel\Desktop"
      
      reg.UpdateKey k_root, k_name, "Wallpaper", DesktopImg
      reg.UpdateKey k_root, k_name, "WallpaperStyle", ImgPos
      reg.UpdateKey k_root, k_name, "TileWallpaper", mosaico
      SystemParametersInfo 20, 0, DesktopImg, 0
      
    error:
    End sub

    Se for util, por favor classifique como resposta!

    Abraço!

    Roger Dias MCTS - Microsoft Certified Technology specialist MCITP - Server Administrator
    • Marcado como Resposta Richard Juhasz segunda-feira, 8 de novembro de 2010 23:07
    sexta-feira, 31 de julho de 2009 17:24
  • Essa alteração pode ser muito facilmente realizada utilizando-se de uma imagem gravada em um diretório com leitura para os usuários e a aplicação de política de grupo executada no login.

     

    Abraço

    • Marcado como Resposta Richard Juhasz segunda-feira, 8 de novembro de 2010 23:07
    quarta-feira, 26 de maio de 2010 23:35

Todas as Respostas

  • Boa tarde Ja!

    Da uma olhada e ve se te ajduda.

    função para alterar a imagem do desktop

    Public sub AlterarDesktop(DesktopImg As String, ImgPos As String, mosaico As String)
      On Error GoTo error
      Set reg = New Registry
      k_root = HKEY_CURRENT_USER
      k_name = "Control Panel\Desktop"
      
      reg.UpdateKey k_root, k_name, "Wallpaper", DesktopImg
      reg.UpdateKey k_root, k_name, "WallpaperStyle", ImgPos
      reg.UpdateKey k_root, k_name, "TileWallpaper", mosaico
      SystemParametersInfo 20, 0, DesktopImg, 0
      
    error:
    End sub

    Se for util, por favor classifique como resposta!

    Abraço!

    Roger Dias MCTS - Microsoft Certified Technology specialist MCITP - Server Administrator
    • Marcado como Resposta Richard Juhasz segunda-feira, 8 de novembro de 2010 23:07
    sexta-feira, 31 de julho de 2009 17:24
  • Essa alteração pode ser muito facilmente realizada utilizando-se de uma imagem gravada em um diretório com leitura para os usuários e a aplicação de política de grupo executada no login.

     

    Abraço

    • Marcado como Resposta Richard Juhasz segunda-feira, 8 de novembro de 2010 23:07
    quarta-feira, 26 de maio de 2010 23:35