Sisteme de Operare VBS Script

Extras din proiect Cum descarc?

' RULARE APLICATIE()
'*******************************************
Sub rep()
txt=Inputbox("Scrieti Ceva:")
wscript.echo(Replace(replace(replace(replace(txt,",","."),"$","s"),"#","i"),"@","a"))
call main()
End Sub
'********************************************
'Apel fisier executabil
'****************************************** 
sub ap()
set objshell=wscript.createobject("wscript.shell")
objshell.run("www.ase.ro")
objshell.run("mspaint.exe")
objshell.run("SNDREC32.exe ")
call main()
End Sub
'********************************************
' Apel script extern
'**********************************************
sub script()
dim ob
set ob=wscript.createobject("wscript.shell")
cale=InputBox("Introduceti numele scriptului:")
ob.run(cale)
call main()
End sub
'*************************************
' Subrutina
'*************************************
z = 10
TestSubrutina z
sub TestSubrutina(z)
Wscript.Echo z
Wscript.Echo "Aceasta nu este o buna utilizare a unei subrutini."
call main()
End sub
'*************************************
' Structura conditionala
'*************************************
sub cond()
mesg=inputbox("Introduceti ora:")
i=mesg
if i=0 then
wscript.echo ("Este miezul noptii!")
else if i>0 then
if i<5 then
wscript.echo ("Afara este noapte!")
else If i<10 Then
wscript.echo ("Buna Dimineata!")
else if i=12 then
wscript.echo ("Este miezul zilei!")
Else if i<=18 then 
wscript.echo ("Buna Ziua!")
Else if i<24 then 
wscript.echo ("Buna seara!")
else if i=24 then
wscript.echo ("Este miezul noptii!")
else wscript.echo ("Ora introdusa depaseste numarul de ore dintr-o zi! Va rugam introduceti alta ora!") 
end if
end if
end If
end if
end if
end if
end if
end if
call main()
end sub
'*************************************
'Structura repetitiva
'*************************************
sub repet()
n=InputBox("Introduceti n:")
p=1
for i=2 to n
p=p*i
expresie=expresie+p
next
wscript.echo "expresia este:" & expresie
for i=1 to n
s=s+i^2
next
wscript.echo "suma patratelor primelor " & n & " numere naturale este:" & s
for i=1 to n
q=q+i^3
next
wscript.echo "suma cuburilor primelor " & n & " numere naturale este:" & q
f=1
for i=1 to n
f=f*i
next
wscript.echo "factorialul primelor " & n & " numere naturale este:" & f
call main()
end sub
'*************************************
' Validare date
'*************************************
sub valid()
char_type=InputBox("Introduceti un caracter:")
If Asc(UCase(char_type)) >= 48 And Asc(UCase(char_type)) <= 57 then.


Fisiere in arhiva (14):

  • Sisteme de Operare VBS Script
    • apel fisier executabil.vbs
    • file object.vbs
    • functie obisnuita de inlocuire.vbs
    • memorieram.vbs
    • object drive.vbs
    • schimbare fundal desktop.vbs
    • script extern.vbs
    • Sisteme de Operare VBS Script.doc
    • struct conditionala.vbs
    • strucutra for.vbs
    • subrutina.vbs
    • testare numar.vbs
    • validare carcatere.vbs
    • WSHobject.vbs

Imagini din acest proiect Cum descarc?

Banii inapoi garantat!

Plateste in siguranta cu cardul bancar si beneficiezi de garantia 200% din partea Proiecte.ro.


Descarca aceast proiect cu doar 5 €

Simplu si rapid in doar 2 pasi: completezi adresa de email si platesti.

1. Numele, Prenumele si adresa de email:

Pe adresa de email specificata vei primi link-ul de descarcare, nr. comenzii si factura (la plata cu cardul). Daca nu gasesti email-ul, verifica si directoarele spam, junk sau toate mesajele.

2. Alege modalitatea de plata preferata:



* La pretul afisat se adauga 19% TVA.


Hopa sus!