Um comando para

encerrar o computador


Com este programa em Rexx você terá no OS/2 aquelas opções de desligamento do micro que o Windows 95 oferece. Copie o programa, salve-o como boot.cmd, coloque na raiz (C:, por exemplo) e dê o comando boot no prompt do Warp.


por Francisco Edson N. de Melo, Team OS/2


>
> All,
>
> Estou precisando de uma ajuda. Queria que se alguém fizesse
> um programa bem pequeno e enxuto (em Rexx?) que faça o seguinte.
> Quando for selecionado, perguntar se quer da um Reboot ou Desligar o
> micro. Algo como a opção Desligar do Windows 95.


Vamos comecar com algo talvez "enxuto demais": um pequeno programa
REXX que rodará em tela de texto, oferecendo as três opções que você sugere. Evitei acentos, o que seria facilmente corrigido. É bem pequeno, pode ser útil, e publico para que programadores mais experientes possam opinar....

Deverá funcionar no seu micro, mas tem um problema: A opção
"Reinicializar o micro" não irá funcionar para quem não tem o Boot
Manager instalado. Para estes, o comando "Setboot /B" é
inoperante..... Espero vir a encontrar uma solução para isto em breve,
caso nao apareça alguém com uma....

Uma versão "gráfica" poderia ser feita com o Vispro/REXX, que
tenho por aqui. Mas ai ocuparia bem mais espaço em disco (talvez mais
de 100Kb)

O programa está entre as linhas tracejadas abaixo. Salve como um
arquivo com extensão ".CMD ". Caso alguém queira aprofundar a discussão
deste material, talvez possamos passar para a lista "Programação no
OS/2" do OS/2 Brasil.


------ Inicio de "Boot.CMD"--------------------------------
/* Programa para Encerrar OS2 */
Do Forever

Say "Voce deseja:"

Say " (R)einicializar o microcomputador"
Say " (D)esligar o microcomputador"
Say " (C)ancelar o comando"

Pull Resposta

Select
When Resposta = 'R' | Resposta = 'r' Then
Do
Say
Say "Reinicializando o microcomputador....."
'@Start /B /MIN /N SETBOOT /B'
Exit
End

When Resposta = 'D' | Resposta = 'd' Then
Do
Say
Say "Desligando o microcomputador..."
'@Start /B /MIN /N SHUTDOWN /-Q'
Exit
End

When Resposta = 'C' | Resposta = 'c' Then
Do
Say
Say "Comando cancelado...."
Exit
End

Otherwise
Say
Say "Comando invalido... Tente novamente."
Say; Say; Say

End

End
-------- Fim de "Boot.cmd"-------------------------------------

Francisco Edson N. de Melo
emelo@iaccess.com.br