Screen Saver Naufrago feito com WINDEV
CODIGOS
PROCEDURE Screensaver_Close()
Screensaver_SavePosicao()
Close()
//-------------------------------------------------------------------------------------------
PROCEDURE Screensaver_MouseMove() //ATIVAR O TIMER PARA FUNCIONAR DE 1 SEGUNDO
//FECHA AO MOVER O MOUSE
IF EDT_MOUSE_x <> MouseXPos() OR EDT_MOUSE_Y <> MouseYPos() THEN
Screensaver_Close()
ELSE
EDT_MOUSE_x = MouseXPos()
EDT_MOUSE_Y = MouseYPos()
END
//-------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Open()
sFile = fCurrentDir() + fSep() + "NAUFRAGO.MP4"
WinRedraw()
IF sFile<>"" THEN
EDT_Arquivo = sFile
MultimediaOpen(MM_Video,EDT_Arquivo)
SLD_PositionTimer..MaxValue = MultimediaDuration(MM_Video)
Screensaver_UltimaPosicao()
IF ErrorOccurred THEN
Error(ErrorInfo())
END
END
//--------------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Pause()
// Pause the selected video
MultimediaPause(MM_Video)
//--------------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Play()
MultimediaPlay(MM_Video)
//-------------------------------------------------------------------------------------------------
PROCEDURE Screensaver_PlayInicial()
SLD_PositionTimer = 0
INIWrite("Config","UltimaPosicao","0",fCurrentDir()+fSep()+"config.ini")
MultimediaPosition(MM_Video,SLD_PositionTimer)
Screensaver_Play()
//-------------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Posicao()
//MultimediaPause(MM_Video)
MultimediaPosition(MM_Video,SLD_PositionTimer)
MultimediaPlay(MM_Video)
//------------------------------------------------------------------------------------------------
PROCEDURE Screensaver_SavePosicao()
Posicao is int = SLD_PositionTimer
INIWrite("Config","UltimaPosicao",Posicao,fCurrentDir()+fSep()+"config.ini")
//-----------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Stop()
// Stop reading the selected video
MultimediaStop(MM_Video)
MultimediaBeginning(MM_Video)
//----------------------------------------------------------------------------------------------
PROCEDURE Screensaver_UltimaPosicao()
Posicao is int = INIRead("Config","UltimaPosicao","",fCurrentDir()+fSep()+"config.ini")
SLD_PositionTimer = Posicao
//---------------------------------------------------------------------------------------------
PROCEDURE Screensaver_Volume()
MultimediaVolume(MM_Video,VOLUME_SLIDER)
//---------------------------------------------------------------------------------------------
//AO ABRIR A JANELA
Screensaver_Open()
Screensaver_UltimaPosicao()
Screensaver_Posicao()
Screensaver_Play()
Screensaver_MouseMove()
//-----------------------------------------------------------------------
// AO FECHAR A JANELA
//-----------------------------------------------------------------------
ARQUIVO MP4 PARA DOWNLOAD
https://youtu.be/7kMJlyPoNO8
//----------------------------------------------------------------------
DENTRO DA PASTA EXE TEM A INSTALACAO DO ANTIGO PROGRAMA EM 64BITS
//---------------------------------------------------------------------
Screensaver_Close()
//------------------
Proteção de tela do náufrago para Windows
Johnny Castaway é uma proteção de tela criada nos anos 90 que mostra a rotina de um náufrago em uma pequena ilha com um coqueiro. Porém, apesar do cenário restrito, a proteção tem muitas cenas diferentes.
Existem vários tutoriais na internet ensinando a instalar o screensaver Johnny Castaway nas versões de 64 bits do Windows 7/8.1/10. Entretanto, todos eles são muito trabalhosos e precisam de várias configurações.
Você precisa instalar e configurar o Dosbox, instalar e configurar o driver de áudio do emulador do Dosbox, além de instalar o programa ScreenLauncher para executar o Dosbox quando a proteção de tela for ativada.
Com base nesses tutoriais, eu criei um arquivo de instalação que automatiza 99% do processo, basta você seguir os passos abaixo para instalar a proteção de tela Johnny Castaway no Windows 7, 8 e Windows 10.
Instalar a proteção de tela Johnny Castaway utilizando esse arquivo de instalação é muito simples. Faça o download do arquivo “setup_johnny_castaway.exe” e execute-o para iniciar a instalação da proteção de tela.
O processo de instalação é automatizado e no final da instalação, a janela de configuração de proteção de tela do Windows será aberta. Selecione a proteção de tela “Screen Launcher” e clique em “Configurações…”.
johnny-castaway_win7_8_10_config1
Na janela de configuração, clique em “Browse”, navegue até a pasta “C:\Program Files (x86)\DOSBox-0.74” e selecione o arquivo “DOSBox.exe” ou, se preferir, copie e cole o caminho abaixo na janela de configuração:
C:\Program Files (x86)\DOSBox-0.74\DOSBox.exe
johnny-castaway_win7_8_10_config2
Em seguida, clique no botão “Visualizar” para testar a proteção de tela. Se estiver tudo certo, você irá ver o náufrago na tela do computador. Balance o mouse ou pressione alguma tecla para sair da proteção de tela.
Em alguns casos, ela pode dar algum erro na primeira execução. Se isso acontecer, clique em “Visualizar” novamente. Por último, defina o tempo de inatividade para a proteção de tela ser ativada e clique em “OK”.
Note que você poderá ver algumas janelas antes da proteção de tela começar a ser exibida. Porém, esse é preço a se pagar para ter a proteção de tela Johnny Castaway no Windows 7, Windows 8/8.1 e Windows 10.
Compatível com Windows 7, Windows 8/8.1 e Windows 10 (64 bits) esta na pasta exe.
Fonte: https://www.softdownload.com.br/protecao-de-tela-johnny-castaway-windows-7-8-e-10.html