Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD



Participe do fórum, é rápido e fácil

Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD


Batch-Satti
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Ir para baixo
avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty [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.
Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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"

Pssn e Elbl gostam desta mensagem

avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty 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:

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
Wesley Junio
Idade : 30

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Dom Nov 08, 2020 8:19 pm
Olá Elbl.
Vou tentar bolar algo aqui.

Elbl gosta desta mensagem

avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Dom Nov 08, 2020 8:57 pm
Obrigado amigos...
Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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.]

Pssn e Elbl gostam desta mensagem

avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Qui Nov 12, 2020 10:35 pm
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
Obrigado amigo, vou testar amanhã no trabalho e retorno aqui pra avisar.
avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty 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
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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


Última edição por Boss-Head em Dom Nov 15, 2020 9:25 am, editado 2 vez(es)
Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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...

Pssn gosta desta mensagem

Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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.
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
avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty 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...
Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Qui Dez 03, 2020 11:17 am
seu Windows é o 7?
avatar
Elbl
Idade : 41

[AJUDA]Perdendo a memória Empty 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
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Sab Dez 05, 2020 11:37 pm
no 10 não funcionou ?
Boss-Head
Boss-Head
Idade : 36

[AJUDA]Perdendo a memória Empty 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....

Pssn gosta desta mensagem

Conteúdo patrocinado

[AJUDA]Perdendo a memória Empty Re: [AJUDA]Perdendo a memória

Ir para o topo
Permissão neste fórum:
Você não pode responder aos tópicos