Início
Conectar-se
Registrar-se
Elbl- Idade : 41
![[AJUDA]Perdendo a memória Empty](https://2img.net/i/empty.gif)
[AJUDA]Perdendo a memória
Dom Nov 08, 2020 2:59 pm
Olá a todos, espero conseguir uma ajuda de vcs, estou perdendo a memória, estou ficando velho kkkk.
Preciso que no computador do trabalho, de segunda a sexta, apareça uma mensagem na tela pra mim executar um serviço, com 2 opções de resposta, a primeira opção ele feche e volta aparecer somente no outro dia e na segunda resposta ele execute o .bat após 1 minuto.
ex: segunda a sexta às 11:00 ele execute sozinho e aparece a mensagem na tela:
Fez o café?
se a resposta for sim, ele finaliza e vai para o proximo dia
se a resposta for não, ele executa novamente após 1minuto
Fiz algumas coisas mais não consegui executar, consegui criar uma mensagem box, mas não consegui que ela executasse sozinha e no horário e dias certos, nem com o Agendador de tarefas.
Dê preferencia que ele já ficasse em segundo plano com o inicio do windows.
Preciso que no computador do trabalho, de segunda a sexta, apareça uma mensagem na tela pra mim executar um serviço, com 2 opções de resposta, a primeira opção ele feche e volta aparecer somente no outro dia e na segunda resposta ele execute o .bat após 1 minuto.
ex: segunda a sexta às 11:00 ele execute sozinho e aparece a mensagem na tela:
Fez o café?
se a resposta for sim, ele finaliza e vai para o proximo dia
se a resposta for não, ele executa novamente após 1minuto
Fiz algumas coisas mais não consegui executar, consegui criar uma mensagem box, mas não consegui que ela executasse sozinha e no horário e dias certos, nem com o Agendador de tarefas.
Dê preferencia que ele já ficasse em segundo plano com o inicio do windows.
Boss-Head- Idade : 36
Re: [AJUDA]Perdendo a memória
Dom Nov 08, 2020 6:49 pm
- Código:
schtasks.exe /create /F /SC once /ST 11:00 /TN Nome_da_Tarefa /TR "%~dp0Seu_Batch.bat"
Elbl gosta desta mensagem
- Elbl
- Idade : 41
Re: [AJUDA]Perdendo a memória
Dom Nov 08, 2020 7:07 pm
Obrigado amigo pela resposta, testei aqui no meu computador e não funcionou....
Vou dar exemplo do meu .bat q quero executar na hora certa e com repetiçao se a resposta for não:
Vou dar exemplo do meu .bat q quero executar na hora certa e com repetiçao se a resposta for não:
- Código:
if msgbox ("A EXPEDICAO FOI FEITA?",vbyesno + vbquestion,"HORARIO DE EXPEDICAO")=vbyes Then
msgbox "BOM TRABALHO!!!"
else
msgbox "EXECUTAR AGORA"
end if
Wesley Junio- Idade : 29
Re: [AJUDA]Perdendo a memória
Dom Nov 08, 2020 8:19 pm
Olá Elbl.
Vou tentar bolar algo aqui.
Vou tentar bolar algo aqui.
Elbl gosta desta mensagem
- Boss-Head
- Idade : 36
Re: [AJUDA]Perdendo a memória
Qui Nov 12, 2020 5:37 pm
- Código:
@echo Off
@color 17
chcp 1252>nul
chdir /d "%~dp0"
SCHTASKS /QUERY|find /i "Fez o café">NUL
IF ERRORLEVEL 1 (
if not exist "%systemdrive%\Tomou_cafe" md "%systemdrive%\Tomou_cafe"
xcopy /y %0 "%systemdrive%\Tomou_cafe"
if "%1" neq "Administrador" call :elevate
schtasks.exe /create /F /SC once /ST 11:00 /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0"
exit
)
:inicio
for /f %%d in ('powershell -command "[reflection.assembly]::LoadWithPartialName('System.Windows.Forms')|out-null;[windows.forms.messagebox]::Show('Fez o café ?','Tarefa diária','YesNo')"') do set value=%%d
if /I "%value%"=="Yes" ( Exit ) ELSE ( TimeOut /T 120 /NoBreak & goto:inicio)
endlocal
exit
exit
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
testei no windows 10 64 virtual -
[Você precisa estar registrado e conectado para ver este link.]
Elbl gosta desta mensagem
- Elbl
- Idade : 41
Re: [AJUDA]Perdendo a memória
Qui Nov 12, 2020 10:35 pm
Obrigado amigo, vou testar amanhã no trabalho e retorno aqui pra avisar.Boss-Head escreveu:
- Código:
@echo Off
@color 17
chcp 1252>nul
chdir /d "%~dp0"
SCHTASKS /QUERY|find /i "Fez o café">NUL
IF ERRORLEVEL 1 (
if not exist "%systemdrive%\Tomou_cafe" md "%systemdrive%\Tomou_cafe"
xcopy /y %0 "%systemdrive%\Tomou_cafe"
if "%1" neq "Administrador" call :elevate
schtasks.exe /create /F /SC once /ST 11:00 /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0"
exit
)
:inicio
for /f %%d in ('powershell -command "[reflection.assembly]::LoadWithPartialName('System.Windows.Forms')|out-null;[windows.forms.messagebox]::Show('Fez o café ?','Tarefa diária','YesNo')"') do set value=%%d
if /I "%value%"=="Yes" ( Exit ) ELSE ( TimeOut /T 120 /NoBreak & goto:inicio)
endlocal
exit
exit
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
- Elbl
- Idade : 41
Re: [AJUDA]Perdendo a memória
Sab Nov 14, 2020 11:11 am
Bom dia amigos, teste, copiei todo o código, salvei como .bat, executei...aguardei o horário e nada....aguma dica?
- Boss-Head
- Idade : 36
Re: [AJUDA]Perdendo a memória
Dom Nov 15, 2020 8:52 am
- Código:
@echo Off
@color 17
chcp 1252>nul
chdir /d "%~dp0"
if "%1" neq "Administrador" call :elevate
schtasks /delete /tn "Fez o café" /F
exit
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
Execute esse batch primeiro para excluir a tarefa criada anteriormente !
depois Substitui
- Código:
schtasks.exe /create /F /SC once /ST 11:00 /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0"
por
- Código:
SCHTASKS /CREATE /SC DAILY /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0" /ST 11:00
- Boss-Head
- Idade : 36
Re: [AJUDA]Perdendo a memória
Dom Nov 15, 2020 9:27 am
- Código:
@echo Off
@color 17
chcp 1252>nul
chdir /d "%~dp0"
SCHTASKS /QUERY|find /i "Fez o café">NUL
IF ERRORLEVEL 1 (
md %systemdrive%\Tomou_cafe
xcopy /y %0 "%systemdrive%\Tomou_cafe"
if "%1" neq "Administrador" call :elevate
SCHTASKS /CREATE /SC DAILY /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0" /ST 11:00
)
:inicio
for /f %%d in ('powershell -command "[reflection.assembly]::LoadWithPartialName('System.Windows.Forms')|out-null;[windows.forms.messagebox]::Show('Fez o café ?','Tarefa diária','YesNo')"') do set value=%%d
if /I "%value%"=="Yes" ( Exit ) ELSE ( TimeOut /T 120 /NoBreak & goto:inicio)
endlocal
exit
exit
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
O arquivo final vai ficar assim...
- Boss-Head
- Idade : 36
Re: [AJUDA]Perdendo a memória
Seg Nov 16, 2020 8:06 am
esse aqui pergunta falando se já fez o café !!
claro tem de ter caixa de som etc.
claro tem de ter caixa de som etc.
- Código:
@echo Off
@color 17
chcp 1252>nul
chdir /d "%~dp0"
SCHTASKS /QUERY|find /i "Fez o café">NUL
IF ERRORLEVEL 1 (
md %systemdrive%\Tomou_cafe
xcopy /y %0 "%systemdrive%\Tomou_cafe"
if "%1" neq "Administrador" call :elevate
SCHTASKS /CREATE /SC DAILY /TN "Fez o café" /TR "%systemdrive%\Tomou_cafe\%~nx0" /ST 11:00
)
:inicio
echo %time:~0,2%h %time:~3,2% min %time:~6,2% S
echo Set Speech = CreateObject("SAPI.SpVoice")> "Falar.vbs"
echo Speech.Speak "Bom dia, %username% !" >> "Falar.vbs"
echo Speech.Speak "São %time:~0,2% horas, e %time:~3,2% minutos " >> "Falar.vbs"
echo Speech.Speak "Você, já fez o café ? " >> "Falar.vbs"
cscript //nologo Falar.vbs
for /f %%d in ('powershell -command "[reflection.assembly]::LoadWithPartialName('System.Windows.Forms')|out-null;[windows.forms.messagebox]::Show('Fez o café ?','Tarefa diária','YesNo')"') do set value=%%d
if /I "%value%"=="Yes" ( Exit ) ELSE ( TimeOut /T 120 /NoBreak & goto:inicio)
endlocal
exit
exit
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
- Elbl
- Idade : 41
Re: [AJUDA]Perdendo a memória
Seg Nov 30, 2020 7:21 pm
Boa noite amigos, desculpa a demora na resposta, mas tava corrido no trabalho, então testei as opções e não funcionou....
Não apareceu nenhum "msgbox" pra mim escolher o sim ou o não e não fez nada...
Não apareceu nenhum "msgbox" pra mim escolher o sim ou o não e não fez nada...
- Elbl
- Idade : 41
Re: [AJUDA]Perdendo a memória
Sex Dez 04, 2020 1:12 pm
Uso o windows 7 no trabalho que mais me interessa mesmo e em casa o windows 10.
- Boss-Head
- Idade : 36
Re: [AJUDA]Perdendo a memória
Dom Dez 06, 2020 12:02 am
- Código:
@echo off
@MODE CON: COLS=32 LINES=3
@color 17
chcp 1252>nul
chdir /d "%~dp0"
SCHTASKS /QUERY|find /i "Fez o café" >NUL
IF "%ERRORLEVEL%"=="0" (
if "%1" neq "Administrador" call :elevate
schtasks /delete /tn "Fez o café" /F >NUL
)
SCHTASKS /QUERY|find /i "Fezocafe" >NUL
IF "%ERRORLEVEL%"=="1" (
md %systemdrive%\Tomou_cafe
xcopy /y %0 "%systemdrive%\Tomou_cafe"
if "%1" neq "Administrador" call :elevate
SCHTASKS /CREATE /SC DAILY /TN "Fezocafe" /TR "%systemdrive%\Tomou_cafe\%~nx0" /ST 11:00
)
:inicio
echo.
echo %time:~0,2%h %time:~3,2% min %time:~6,2% S
echo Set Speech = CreateObject("SAPI.SpVoice")> "Falar.vbs"
echo Speech.Speak "Bom dia, %username% !" >> "Falar.vbs"
echo Speech.Speak "São %time:~0,2% horas, e %time:~3,2% minutos " >> "Falar.vbs"
echo Speech.Speak "Você, já fez o café ? " >> "Falar.vbs"
cscript //nologo Falar.vbs
Call :YesNoBox "Voce fez o cafe ?"
if "%YesNo%"=="7" (
call:conta
)
exit /b
:YesNoBox
REM returns 6 = Yes, 7 = No. Type=4 = Yes/No
set YesNo=
set MsgType=4
set heading=%~2
set message=%~1
echo wscript.echo msgbox(WScript.Arguments(0),%MsgType%,WScript.Arguments(1)) >"%temp%\input.vbs"
for /f "tokens=* delims=" %%a in ('cscript //nologo "%temp%\input.vbs" "%message%" "%heading%"') do set YesNo=%%a
exit /b
:conta
set Contagem=0
set Contagem_Max=1000
set SEG=1
:LOOP
title Aguarde ..... \
call :Aguardar
title Aguarde ..... ^|
call :Aguardar
title Aguarde ..... /
call :Aguardar
title Aguarde ..... -
if /i "%Contagem%" equ "%Contagem_Max%" goto :EXIT
set /a Contagem+=1
cls
echo Aguardando %Contagem% de %Contagem_Max%
goto :LOOP
:Aguardar
ping -n %SEG% 127.0.0.1 > nul
ping -n %SEG% 127.0.0.1 > nul
goto :EOF
:EXIT
title FIM!
goto:inicio
:Elevate
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"Administrador","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
del "%~dp0Elevating.vbs"
Exit
ultima tentativa testei no 10 e no 7....
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum