- Copie o código e cole em um novo documento do bloco de notas. Set sr = getobject("winmgmts:\\.\root\default:Systemrestore") WTIA=MsgBox("Ponto de Restauração criado em: "& date & " às: " & time,0+64,"Novo Ponto de Restauração") If (sr.createrestorepoint("Ponto de Restauração...

Para alterar o som e os icones de uma mensagem em VBS, utilize a relação abaixo, faça os testes e escolha a combinação que melhor lhe agradar: Prmeiro Número na Mensagem (Botão)               Segundo Número na Mensagem (Som) 0 =...

Abra um novo documento do bloco de notas (notepad). Copie e cole o código abaixo: x=MsgBox("Sua mensagem aqui",0+16,"Titulo da janela da mensagem") Onde: 0 = Botão da Mensagem e 16 = Som e icone da mensagem. Salve com a extensão .vbs Para alterar o botão e o som da mensagem, leia o...