1. TugaTech » Programação, Scripts e Webmasters » Tutoriais e Dicas

Siga-nos

Realize o Login na sua conta ou Registe-se para participar.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Shaxine

Moderador
avatar
Bom... O que vos vou "Ensinar" a fazer vai ser uma Janela como esta:

Que se clicarem "Sim" Aparece isto:


E Se Clicarem "Não" Aparece isto:


1º - Abram o Bloco de Notas(Notpad) e Copiem isto para lá:

Código:

if msgbox ("SUBSTITUAM ISTO PELA PERGUNTA",vbyesno + vbquestion,"E ISTO PELO TITULO DA MENSAGEM")=vbyes Then

  msgbox "CASO A RESPOSTA SEJA SIM"

else

    msgbox "CASO A RESPOSTA SEJA NÃO"

end if

* O "vbyesno" faz aparecer os botões "Sim" e "Não"
o "+" é para indicar os 2 elementos se por algum mutivo quiser tirar o "vbquestion" para a mensagem ficar em esse icon tem de tirar também o "+"
E o "vbquestion" serve para por o que pode ser mudado por outro.

2º - Depois de teres a tua mensagem como desejas é só guardar
Para a guardares, guardas "com_o_nome_que_tu_quiseres.vbs" .vbs de Visual Basix Script
Exemplo: "pergunta.vbs" (sem aspas)

3º - Abrir e ver o resultado! xD

Para mais indicações consulte o 1º Tutorial sobre este Tema AQUI

Bem Este foi mais um Mini Tutorial feito por mim Tonito1 espero que tenha vos sido algo útil! Razz
Alguma duvida por-favor não ezitem em colocar! Wink



Última edição por Tonito1 em Ter 20 Jul 2010 - 17:39, editado 1 vez(es)

Ver perfil do usuário antnio13
conectado

DJPRMF

Administrador
avatar
Mais uma vez,muito bom (e o erro no titulo Razz )

So uma pequena pergunta, invés de colocar
Código:
 msgbox "CASO A RESPOSTA SEJA SIM"
pode-se colocar qualquer outro tipo de instrução, certo?
Por exemplo, abrir outra janela de "Sim/Não" ou um programa...


____________________________________________




Não respondo a MP's de tópicos que podem ser colocados no forum. Ajude e seja ajudado por todos.
TugaTech | Host TugaTech
Ver perfil do usuário http://tugatech.com.pt https://www.facebook.com/DJPRMF https://twitter.com/dj_prmf DJPRMF https://plus.google.com/+PedroFernandes-DJPRMF?rel=author

Shaxine

Moderador
avatar
Sim... claro!
Só usei isso como um exemplo para não complicar muito Razz

Ver perfil do usuário antnio13
conectado

DJPRMF

Administrador
avatar
Obrigado! Very Happy
Bravo

So mais uma pergunta... Razz
Será que me podia dizer qual era o comando para abrir, por exemplo, o Bloco de Notas?


____________________________________________




Não respondo a MP's de tópicos que podem ser colocados no forum. Ajude e seja ajudado por todos.
TugaTech | Host TugaTech
Ver perfil do usuário http://tugatech.com.pt https://www.facebook.com/DJPRMF https://twitter.com/dj_prmf DJPRMF https://plus.google.com/+PedroFernandes-DJPRMF?rel=author

Shaxine

Moderador
avatar
O Comando para abrir algum ficheiro ou programa é:
Código:

    Set shell = CreateObject("wscript.shell")
    Launch = shell.run("C:\DIRECTÓRIO\DO\FICHEIRO.extensão")
Para ir directo ao Bloco de notas devia haver uma maneira como simples como:

Launch = shell.run(notepad)

mas não dá Sad
Penso que vai ter de meter o directório todo Razz

Ver perfil do usuário antnio13
conectado

DJPRMF

Administrador
avatar
Bravo

Muito obrigado! Wink
Ja andava a procura de uma coisa destas,assim é mais fácil... Razz


____________________________________________




Não respondo a MP's de tópicos que podem ser colocados no forum. Ajude e seja ajudado por todos.
TugaTech | Host TugaTech
Ver perfil do usuário http://tugatech.com.pt https://www.facebook.com/DJPRMF https://twitter.com/dj_prmf DJPRMF https://plus.google.com/+PedroFernandes-DJPRMF?rel=author

Shaxine

Moderador
avatar
Eu Considero-me um pequeno amante de VB 2008!
Geralmente quando não tenho nada para fazer divirto-me a criar programas com o vb 2008.
Se Algum dia tiver alguma duvida, pergunte-me, porque assim até eu aprendo mais... Wink

Ver perfil do usuário antnio13

ELITE-BR

Avançado
avatar
se pode fazer isso com o bloco de notas e salvar com a extenção ".bat" ?

Eu fiz uma coisa parecida, que era para desligar o computador ^ ^
eu era novinho, botei em todos os PCs da escola 8)

Ver perfil do usuário http://gtaivclan.ogameteam.net/forum.htm

Shaxine

Moderador
avatar
@ELITE-BR escreveu:se pode fazer isso com o bloco de notas e salvar com a extenção ".bat" ?

Eu fiz uma coisa parecida, que era para desligar o computador ^ ^
eu era novinho, botei em todos os PCs da escola 8)
Não, Isso é outra coisa, ".bat" Batch trabalha com o MS-DOS e ".vbs" VisualBasicScript com Visual Basic, são coisas diferentes.

Ver perfil do usuário antnio13

ELITE-BR

Avançado
avatar
Ata!.. Agora intendi Very Happy
não entendo muito de programação Crying or Very sad

Ver perfil do usuário http://gtaivclan.ogameteam.net/forum.htm

Shaxine

Moderador
avatar
@ELITE-BR escreveu:Ata!.. Agora intendi Very Happy
não entendo muito de programação Crying or Very sad
Programação é fácil principalidade a deste post. basta te interessares por programação que começas a perceber. Wink

Ver perfil do usuário antnio13

ELITE-BR

Avançado
avatar
Tonito1 escreveu:
@ELITE-BR escreveu:Ata!.. Agora intendi Very Happy
não entendo muito de programação Crying or Very sad
Programação é fácil principalidade a deste post. basta te interessares por programação que começas a perceber. Wink

Aqui no Brasil, tem cursos sobre programação em geral, desde jogos a programas "comuns".. eu estava pensando em fazer.
Eu estou voltando para a Amazônia no final Agosto, para continuar meu treinamento militar Very Happy(exercito).
quando voltar vou fazer um Wink

Ver perfil do usuário http://gtaivclan.ogameteam.net/forum.htm

lamina

Avançado
avatar
Eu nao consegui :S

Pode me dar o codigo ja pronto ?

Ver perfil do usuário playerwill
conectado

DJPRMF

Administrador
avatar
@lamina escreveu:Eu nao consegui :S

Pode me dar o codigo ja pronto ?

O que não entendeu?

Copie o codigo para o bloco de notas:
Código:

if msgbox ("SUBSTITUAM ISTO PELA PERGUNTA",vbyesno + vbquestion,"E ISTO PELO TITULO DA MENSAGEM")=vbyes Then

  msgbox "CASO A RESPOSTA SEJA SIM"

else

    msgbox "CASO A RESPOSTA SEJA NÃO"

end if

e grave com a extenção vbs.. Wink


____________________________________________




Não respondo a MP's de tópicos que podem ser colocados no forum. Ajude e seja ajudado por todos.
TugaTech | Host TugaTech
Ver perfil do usuário http://tugatech.com.pt https://www.facebook.com/DJPRMF https://twitter.com/dj_prmf DJPRMF https://plus.google.com/+PedroFernandes-DJPRMF?rel=author

lamina

Avançado
avatar
Mas presisa salvar o codigo num bloco de notas ?

PQ ?

Ver perfil do usuário playerwill

Shaxine

Moderador
avatar
Então... Isso é um executável.
ao Abrires a mensagem aparece.

Ver perfil do usuário antnio13
conectado

DJPRMF

Administrador
avatar
Tonito1 escreveu:Então... Isso é um executável.
ao Abrires a mensagem aparece.

Exacto...
Pode estar descansado que não faz nada de mal no computador, se for isso que esteja a pensar...

A maioria dos programas "simples" é muitas vezes feito em Bloco de notas ou programas do género.. .Wink


____________________________________________




Não respondo a MP's de tópicos que podem ser colocados no forum. Ajude e seja ajudado por todos.
TugaTech | Host TugaTech
Ver perfil do usuário http://tugatech.com.pt https://www.facebook.com/DJPRMF https://twitter.com/dj_prmf DJPRMF https://plus.google.com/+PedroFernandes-DJPRMF?rel=author

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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




Aplicações do TugaTechAplicações TugaTechBlog TugaTechBlog do TugaTechRSS TugaTechRSS do TugaTechSpeedtest TugaTechSpeedtest TugatechHost TugaTechHost TugaTech