USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Papel de Parede
Bicicchi
SOROCABA
SP - BRASIL
Postada em 17/02/2007 10:31 hs            
Olá pessoal
 
Gostaria de saber se tem como toda vez que um cliente meu for usar meu cyber, quando ele colocar seu código e senha o sistema coloque o arquivo "imagem.jpg" como papel de parede, pois alguns clientes salvam figuras da net como papel de parede e as vezes são imagens pornográficas.
 
Ou então impedir de alterar o papel de parede.
 
Já tentei pelo gpedit.msc mas não tive sucesso.
     
AmiltonLira
NATAL
RN - BRASIL
Postada em 24/02/2007 12:57 hs            
'Faça o seguinte, adicione um modulo (ou fique a vontade para fazer de outra maneira) e adiciona este código:
 
Private Declare Function SystemParametersInfo Lib _
        "User32" Alias "SystemParametersInfoA" _
        (ByVal uAction As Long, ByVal uParam As _
        Long, ByVal lpvParam As String, ByVal _
        fuWinIni As Long) As Long
Public Const SPIF_UPDATEINIFILE As Long = &H1
Public Const SPI_SETDESKWALLPAPER As Long = 20
Public Const SPIF_SENDWININICHANGE As Long = &H2
Public Sub SetWallpaper(ByVal sArquivo As String)
  Dim RT As Long
  RT = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
       0&, sArquivo, SPIF_UPDATEINIFILE Or _
       SPIF_SENDWININICHANGE)
End Sub
' No form adiciona um botão e chama a função:
 
Call SetWallpaper("endereçoda foto")
 
'exemplo :
 
'Call SetWallpaper("C:foto.bmp")
 
 
Espero que tenha ficado claro, qualquer duvida é só postar..
No seu caso, como você tá aplicando a um determinado usuário, pode usar banco de dados(endereço das fotos), e um sistema sisples de login. Pressuponho que vc deve saber fazer isso, mas qualquer coisa, estou a disposição!!
Abração,
Até mais!!!
 
 
 
 
 
TÓPICO EDITADO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página