Este código VB.NET cria um protetor de tela simples que exibe círculos de tamanho aleatório e posicionado. Ele inclui recursos para detectar o movimento do mouse para sair e lida com as propriedades necessárias para proteger. Lembre -se de que a implantação de um protetor de tela requer etapas adicionais além da compilação do código; Você precisará criar um instalador de tela de tela.
`` `vb.net
Sistema de importações
Importações System.drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Runtime.Interropservices
MyScreensaver de classe pública
'Declare a função da API para impedir que o protetor de tela de ativar
Funções compartilhadas privadas setCursorpos (ByVal X como inteiro, Byval y como inteiro) como booleano
Função final
Círculos privados como nova lista (de retângulo)
RND privado como novo aleatório ()
Sub myScreensaver_load privado (remetente como objeto, e como eventArgs) lida com mybase.load
'Defina a cor de fundo
Me.backcolor =color.black
'Defina propriedades de formulário para tela cheia
Me.formBordersTyle =formbordersTyle.None
Eu.top o mais =true
Me.WindowState =formstate.Maximized
'Iniciar o temporizador para animação
Timer1.start ()
Final sub
Sub Timer1_Tick privado (remetente como objeto, e como EventArgs) lida com timer1.tick
'Invalidar para desencadear o evento de pintura
Me.invalidate ()
Final sub
Sub myScreensaver_paint privado (remetente como objeto, e como pintorventArgs) lida com mybase.paint
'Limpar círculos existentes
Circles.clear ()
'Crie novos círculos aleatórios
Para i como número inteiro =0 a 10 'Ajuste o número de círculos aqui
Tamanho escuro como número inteiro =rnd.next (20, 80) 'Ajuste a faixa do tamanho do círculo
Dim x como inteiro =rnd.next (0, me.width - tamanho)
Dim y como inteiro =rnd.next (0, me.Height - tamanho)
círculos.Add (novo retângulo (x, y, tamanho, tamanho))
Próximo
Desenhe círculos
Usando g como gráficos =e.graphics
G.SmoothingMode =SmoothingMode.antialias
Para cada ret como retângulo em círculos
Usando pincel como solidbrush =new SolidBrush (color.fromargb (rnd.next (256), rnd.next (256), rnd.next (256)) 'cor aleatória
G.FILLELLIPSE (Brush, Rect)
Termine usando
Próximo
Termine usando
Final sub
Sub myscreensaver_mouseMove privado (remetente como objeto, e como mouseeventargs) lida com mybase.mouseMove
'Saia no movimento do mouse
Me.close ()
Final sub
Sub myscreensaver_keydown privado (remetente como objeto, e como keyeventargs) lida com mybase.keydown
'Saia na imprensa de teclas
Me.close ()
Final sub
'Impedir a ativação do protetor de tela de ativar enquanto isso está sendo executado
Substituições protegidas subativadas (e como EventArgs)
MyBase.onActivated (e)
SetCursorpos (me.width \ 2, me.Height \ 2)
Final sub
Classe final
`` `
para compilar e potencialmente implantar isto:
1. Crie um novo projeto de aplicativo VB.Net Windows Forms.
2. Substitua o código do formulário padrão pelo código acima.
3. Adicione um controle do timer (Timer1) ao formulário.
4. compilar o projeto. Isso criará um arquivo executável (.exe).
Para implantar como um protetor de tela: Isso é * significativamente * mais complexo e requer a compreensão dos mecanismos de implantação de protetores de tela (que variam nas versões do Windows). Normalmente, você precisaria criar um projeto de instalador (por exemplo, usando o projeto de configuração do Visual Studio) que lida com entradas de registro e colocação de arquivos para integrar seu .exe como uma opção de tela adequada no Windows. O instalador precisa registrar o executável no sistema Windows Screensaver. Existem tutoriais e recursos disponíveis on -line para guiá -lo através do processo de implantação de protetores de tela; A busca pela implantação de protetores de tela do VB.NET "será útil. Esta etapa está além do escopo de um exemplo de código simples.
Considerações importantes:
* Manuseio de erro: O código fornecido não possui um manuseio robusto de erros. Um protetor de tela pronto para produção precisaria de verificações de erro mais robustas.
* desempenho: Para resoluções muito altas ou muitos círculos, você pode precisar de técnicas de otimização para manter uma taxa de quadro suave.
* Personalização: Você pode alterar facilmente a aparência modificando o tamanho, a cor e o número do círculo. Gráficos mais sofisticados também podem ser implementados.
Lembre -se de que a distribuição de um protetor de tela requer uma consideração cuidadosa de licenciamento e possíveis problemas de segurança. Teste completamente o seu protetor de tela antes de distribuí -lo.
