[Tutorial]
Os scripts podem ser criados ou editados pelo bloco de notas sem a necessidade de nenhum programa ou pelo editor Notepad++ se preferir:
Para executar os códigos do blog basta criar um arquivo "novo" em sua area de trabalho e mudar a extenssão *.txt para *.vbs ou com o bloco de notas e "salvar como" *.vbs.
Exemplo:
clique direito do mouse: Opçao "novo" clicar em "Novo documento txt" e depois mudar a extenção *.txt para *.vbs e o seu arquivo esta pronto para ser editado ou executado no windows.
##################################################
##################################################
MSGBOX
[source]
Rem # Meu Primeiro programa
msgbox "Hello World!", vbInformation, "Meu Primeiro programa em VB Script"
INPUTBOX
[source]
Rem #Inputbox
nome =Inputbox("Digite o seu nome e Sobrenome","Input Required")
WScript.Echo nome
idade =Inputbox("Digite a sua idade","Input Required")
WScript.Echo idade
INPUTBOX + COMANDO DE VOZ
[source]
Dim message, sapi
message=InputBox("Digite a sua mensagem de voz?", "Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
##################################################
##################################################
Neste campo segue varios exemplos do mesmo Script em blocos diferentes:
##################################################
RUN COMAND (0) - CMD
[source]
Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /K CD C:\ & Dir"
Set objShell = Nothing
RUN COMAND (1)
[source]
Rem Declarar uma variavel "obj"
Dim objShell
Rem Criar uma variavel "Obj" (Qualquer nome)
Set objShell = WScript.CreateObject ("WScript.shell")
Rem Executar programas
objShell.run "notepad.exe"
objShell.run "mspaint.exe"
Set objShell = Nothing
RUN COMAND (2)
[source]
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run ("%windir%\notepad.exe " & WScript.ScriptFullName)
RUN COMAND (3)
[source]
Rem # Declarar uma variavel
Dim a
Rem # Criar uma variavel (Qualquer nome)
Set a = WScript.CreateObject ("WScript.shell")
Rem Executar programas
a.run "notepad.exe"
a.run "mspaint.exe"
Set a = Nothing
[source]
Rem # Para adicionar um "Comentario" nas linhas do programa.
Rem # Forçar todas as variaveis
Option Explicit
Rem # Declarar todas as variaveis
Dim obj, a, b, c
Set obj = WScript.CreateObject ("WScript.shell")
Set a = WScript.CreateObject ("WScript.shell")
Set b = WScript.CreateObject ("WScript.shell")
Set c = WScript.CreateObject ("WScript.shell")
Rem # Executar todos os programas
obj.run "notepad.exe"
a.run "chrome.exe"
b.run "mspaint.exe"
c.run "iexplore.exe"
Rem # Variavel Nula ou Vazia
Set d = Nothing
RUN COMAND (5)
[source]
Set objShell = CreateObject("WScript.Shell")
objShell.run("cscript C:\scripts\demo.vbs")
##################################################
##################################################
Neste campo segue 2 exemplos do mesmo Script:
##################################################
StrComp (1)
[source]
REM #######################################################
REM # Syntax
REM # StrComp(String1, String2 [,compare] )
REM # Key
REM # String1 A string expression.
REM # String2 A string expression.
REM # compare vbBinaryCompare (0) or vbTextCompare(1)
REM #######################################################
REM # If string1 = string2 StrComp returns 0 (vbFalse)
REM # If string1 < string2 StrComp returns -1 (vbTrue)
REM # If string1 > string2 StrComp returns 1
REM # If either string = null StrComp returns null
REM #######################################################
REM # DECLARAÇÃO DE STRINGS USANDO TEXTOS, NUMEROS E EXPRESSÕES:(=, <, >, null)
Dim strCasa
strCasa ="Casa"
strNumero =45
REM # COMPARAÇÃO DE STRINGS USANDO STRING
strResultado =StrComp(45, strCasa)
WScript.Echo strResultado
StrComp (2)
[source]
REM #######################################################
REM # Syntax
REM # StrComp(String1, String2 [,compare] )
REM # Key
REM # String1 A string expression.
REM # String2 A string expression.
REM # compare vbBinaryCompare (0) or vbTextCompare(1)
REM #######################################################
REM # If string1 = string2 StrComp returns 0 (vbFalse)
REM # If string1 < string2 StrComp returns -1 (vbTrue)
REM # If string1 > string2 StrComp returns 1
REM # If either string = null StrComp returns null
REM #######################################################
REM # DECLARAÇÃO DE STRINGS USANDO TEXTOS, NUMEROS E EXPRESSÕES:(=, <, >, null)
Dim strCasa
strCasa ="Casa"
strNumero ="45"
REM # COMPARAÇÃO DE STRINGS USANDO VARIAVEL
var1 =StrComp(strCasa, strNumero, 0)
WScript.Echo var1
##################################################
##################################################
Neste campo segue exemplos de if e else usando varieis e strings:
##################################################
If then, ElseIf, Else
[source]
Rem Comparaçoes usando Case sensitivity (if then, ElseIf, Else)
IF "CACHORRO" = "Cachorro" Then
msgbox "O Valor é diferente (1)", vbInformation
ElseIf "Cachorro" = "Cachorro" Then
msgbox "O Valor esta correto (2)", vbInformation
Else msgbox "O Valor de ambos é diferente (3)", vbInformation
End If
If then, ElseIf, Else - STR (1)
[source]
hournow = hour(Time())
If hournow < 12 Then WScript.Echo "Good Afternoon"
Dim strCountry
strCountry = "USA"
If strCountry = "USA" Then
WScript.Echo "United States of America."
ElseIf strCountry = "CA" Then
WScript.Echo "Canada."
Else
WScript.Echo "Some other country."
End If
If then, ElseIf, Else - STR (2)
[source]
Rem Comparação de variaveis (if then, ElseIf, Else)
DIM strCountry
strCountry = "USA"
IF strCountry = "EUA" Then
msgbox "O local esta correto (1)", vbInformation
ElseIf strCountry = "CA" Then
msgbox "O Local esta errado! (2)", vbInformation
Else msgbox "O Local de ambos esta errado! (3)", vbInformation
End If
##################################################
##################################################
