Microsoft Visual Basic 6.0 é uma linguagem de programação de computador que lhe dá as ferramentas para desenvolver aplicativos do Windows. Você pode usar o Visual Basic para desenvolver utilitários simples, bem como aplicativos de desktop e de Internet avançado. Screensavers são imagens em movimento ou padrões que aparecem na tela do computador quando o teclado ou o mouse não tem sido utilizado por um período de tempo especificado. Em poucos passos , você será capaz de criar um programa de proteção de tela usando o Visual Basic. Instruções
1

Inicie o Microsoft Visual Basic 6.0, em seguida, clique em " Standard EXE " no " New Project" janela de diálogo. Direito do mouse no formulário e selecione "Propriedades ". Type " " ao lado de "Legenda ". Set " CaixaDoControlo ", " MinButton " e " MaxButton " para "false ".
2

Selecione " 0 - Nenhum " para" BorderStyle "e" 2 - . maximizado " para" WindowState " Defina o " BackColor "para" & H0 "
3

Clique no ícone" Ver código ". acima o nome do projeto no painel " Project Explorer " para abrir a janela de código . Copie e cole as duas funções a seguir no topo da janela do seu código:

privados SetWindowPos Declare Function Lib " user32 " _ (ByVal hwnd As Long , ByVal hWndInsertAfter As Long , _ByVal x As Long , ByVal Y Como longo, ByVal cx As Long , _ByVal cy As Long , ByVal wFlags As Long ) As Long

Private Declare Function ShowCursor Lib " user32 " _ (ByVal bShow As Long ) As Long
4

Copie e cole o código abaixo para criar um novo procedimento que irá manter a forma no topo :

Sub AlwaysOnTop ( FrmID as Form , OnTop as Boolean ) Const SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const BANDEIRAS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = - 1Const HWND_NOTOPMOST = -2

Se OnTop ThenOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0 , 0, 0, 0 , bandeiras ) ElseOnTop = SetWindowPos ( FrmID.hWnd , HWND_TOPMOST , 0, 0 , 0, 0 , bandeiras ) End Sub IfEnd
5

Clique em " Modo Design ", no " Project Explorer " para acessar o formulário. Clique duas vezes no formulário para criar o evento "Load" . Copie e cole o seguinte código dentro do formulário evento "Load" para lidar com o screensaver:

Selecione Caso LCase (Esquerda (Command , 2) ) Case " /p": ENDCASE " /s " Case Else : Me.Hide : frmSettings.Show : Exit SubEnd Selecione

Dim x As IntegerCall AlwaysOnTop (Me , True) x = ShowCursor ( False)
6

Copie e cole o seguinte código no "Descarregar " evento do formulário para mostrar o cursor quando o programa termina:

Dim x As Integerx = ShowCursor (Verdadeiro)
7

Copie e cole o seguinte código no o " KeyPress " evento do formulário para descarregar o screensaver se o usuário pressiona uma tecla no teclado :

Contagem estático como IntegerCount = Contagem Contagem + 1Se > 5 ThenUnload MeEnd Se
8

Clique no menu " Arquivo", clique em "Make . exe" para criar um executável. Vá para o diretório do projeto e alterar a extensão " EXE " para " SCR ". Copie o arquivo para o "C: \\ Windows \\ System \\ " . Pasta