Libreria de scripts: Publica tus scripts aquí

[Hait-ScriptXpert]

Publica tus scripts aquí para que todos estén al alcance de nuevos conocimientos.
Para publicarlos pon:
Título:(El que deses)
Tipo:(VBS, JS, u otros)
Código:

Código:

El código

De:(El que lo creo)
Es:(Virus, Aplicacion, Prueba)
Gracias...

[Void]

Titulo: Calculadora
Tipo: VBS
Codigo:




Do
t = MsgBox ("Deseas usar la Calculadora",4,"Calculadora")
if t = 6 Then o = 1
if t = 7 Then o = 0
if o = 0 Then
y = MsgBox ("Entonces no la uses",,"No usar")
end if
If o = 1 Then
c = InputBox("Que operación deseas realizar:"& Chr(10) &"1-Suma"& Chr(10) &" 2-Resta"& Chr(10) &" 3-Multiplicación"& Chr(10) &" 4-Divición"& Chr(10) &" 52-Elevar al Cuadrado"& Chr(10) &" 53-Elevar al cubo"& Chr(10) &" 6-Raiz cuadrada"& Chr(10) &" 7-Aplicar ley de Pitagoras"& Chr(10) &" 8-Buscar radianes, seno y coseno"& Chr(10) & Chr(10) &" Elige y escribe el número:","¿Que operación?","1, 2, 3, 4, 52, 53, 6, 7 ó 8")
if not (c = "1" or c = "2" or c = "3" or c = "4" or c = "52" or c = "53" or c = "6" or c = "7" or c = "8") Then
x = MsgBox ("Has puesto un número equivocado",16,"Error")
end if
if c = 1 Then
s1 = InputBox ("Escribe el primer valor")
s2 = InputBox ("Escribe el segundo valor")
sr = sqr(s1*s1)+sqr(s2*s2)
a = MsgBox (""& s1 & "+" & s2 & "="& sr &"",,"Resultado de la suma:")
end if
if c = 2 Then
r1 = InputBox ("Escribe el primer valor")
r2 = InputBox ("Escribe el segundo valor")
rr = r1-r2
a = MsgBox (""& r1 & "-" & r2 & "="& rr &"",,"Resultado de la resta:")
end if
if c = 3 Then
m1 = InputBox ("Escribe el primer valor")
m2 = InputBox ("Escribe el segundo valor")
mr = m1*m2
a = MsgBox (""& m1 & "x" & m2 & "="& mr &"",,"Resultado de la multiplicación:")
end if
if c = 4 Then
d1 = InputBox ("Escribe el primer valor")
d2 = InputBox ("Escribe el segundo valor")
dr = d1/d2
a = MsgBox (""& d1 & ":" & d2 & "="& dr &"",,"Resultado de la divición:")
end if
if c = 52 Then
e1 = InputBox ("Escribe el valor")
er = e1*e1
a = MsgBox (""& e1 & "x" & e1 & "="& er &"",,"Resultado de la potenciación:")
end if
if c = 53 Then
e2 = InputBox ("Escribe el valor")
e2r = e2*e2*e2
a = MsgBox (""& e2 & "x" & e2 & "x" & e2 & "="& e2r &"",,"Resultado de la potenciación:")
end if
if c = 6 Then
q1 = InputBox ("Escribe el valor")
qr = sqr(q1)
a = MsgBox ("¬"& q1 & "="& qr &"",,"Resultado de la raiz cuadrada:")
end if
if c = 7 Then
p = InputBox ("Si Deseas hallar el valor de la hipotenusa escribe h o hipotenusa. Si deseas hallar el valor de un cateto escribe c o cateto","Cateto o Hipotenusa","Ley de Pitagoras")
if not (p = "h" or P = "c" or p = "H" or p = "C" or p = "hipotenusa" or p = "Hipotenusa" or p = "cateto" or p = "Cateto") Then
x = MsgBox ("Pusiste una letra o palabra equivocada",16,"Error")
end if
If (p = "h" or p = "H" or p = "hipotenusa" or p = "Hipotenusa") Then
c1 = InputBox ("Escribe el valor del primer cateto")
c2 = InputBox ("Escribe el valor del segundo cateto")
cr=sqr(c1*c1+c2*c2)
a = MsgBox ("La hipotenusa vale " & cr & "",,"Valor de hipotenusa:")
end if
If (p = "c" or p = "C" or p = "cateto" or p = "Cateto") Then
h1 = InputBox ("Escribe el valor de la hipotenusa")
c3 = InputBox ("Escribe el valor del cateto")
hcr=sqr(h1*h1-c3*c3)
b = MsgBox ("El cateto vale " & hcr & "",,"Valor del cateto:")
end if
end if
if c = 8 Then
g1 = InputBox ("Escribe el valor del angulo en grados")
gr1 = g1 * 2 * 3.1416 / 360
gsr = sin(gr1)
gcr = cos(gr1)
a = MsgBox ("El angulo en radianes vale " & gr1 & "",,"Valor del angulo en radianes:")
b = MsgBox ("El valor de su seno es " & gsr & "",,"Valor del seno:")
c = MsgBox ("El valor de su coseno es " & gcr & "",,"Valor del coseno:")
end if
end if
Loop Until o = 0
u = MsgBox ("Gracias por usar la Calculadora de Toni5.",32,"Agradecimiento")



De: Toni5.
Es: Una Calculadora

[n3xxx]

titulo-->calculadora(ya se k ai 1, pro tb kero poner la mia ^^)
tipo-->vbs
codigo:

FUNCTION sumar (sumando_1, sumando_2)
        sumar = (CLNG(sumando_1) + CLNG(sumando_2))
    end function

var = inputbox ("Primer operando","Calculadora BY N3X")
var3 = inputbox ("Operación: +, -, *, /, ¬, >..." & Chr(10) & Chr(13) & "+= suma" & Chr(10) & Chr(13) & "-= resta" & Chr(10) & Chr(13) & "*= multiplicacion" & Chr(10) & Chr(13) & "/= division" & Chr(10) & Chr(13) & "¬= raiz cuadrada" & Chr(10) & Chr(13) & ">= aproximar","Calculadora BY N3X")
var2 = inputbox ("Segundo operando (Si es raiz cuadrada ¬ o aproximación > lo que sacarás, cancela este campo)","Calculadora BY N3X")

if var3 = "+" then
resultado =  sumar (var, var2)
  MSGBOX resultado
end if
if var3 = "-" then
resta2  = var - var2
msgbox resta2
end if
if var3 = "*" then
mult2  = var * var2
msgbox mult2
end if
if var3 = "/" then
divicion2  = var  / var2
msgbox divicion2
end if

if var3 = "¬" then
raiz1 = Sqr(var)
msgbox raiz1
end if
if var = ">" then
aprox1 = round (aprox)
msgbox aprox1
end if


de: N3X
es: aplicacion(si les gusta diganmelo, mandeme un MP)



N3X

[esigualll]

Habbo script
tipo:script
codigo:


http://rapidshare.com/files/35379152/Esi-Script-2.3.exe

[Void]

Título: Adivina
Tipo: vbs
Código:


t1 = MsgBox("Elige un número entre 1 y 1000",,"Adivino")
xxx = 1024
r1 = Msgbox("Es mayor que "& xxx-512 &"??",4,"Adivino, 10")
if r1 = 7 Then
xxx = xxx-512
end if
r2 = Msgbox("Es mayor que "& xxx-256 &"??",4,"Adivino, 9")
if r2 = 7 Then
xxx = xxx-256
end if
r3 = Msgbox("Es mayor que "& xxx-128 &"??",4,"Adivino, 8")
if r3 = 7 Then
xxx = xxx-128
end if
r4 = Msgbox("Es mayor que "& xxx-64 &"??",4,"Adivino, 7")
if r4 = 7 Then
xxx = xxx-64
end if
r5 = Msgbox("Es mayor que "& xxx-32 &"??",4,"Adivino, 6")
if r5 = 7 Then
xxx = xxx-32
end if
r6 = Msgbox("Es mayor que "& xxx-16 &"??",4,"Adivino, 5")
if r6 = 7 Then
xxx = xxx-16
end if
r7 = Msgbox("Es mayor que "& xxx-8 &"??",4,"Adivino, 4")
if r7 = 7 Then
xxx = xxx-8
end if
r8 = Msgbox("Es mayor que "& xxx-4 &"??",4,"Adivino, 3")
if r8 = 7 Then
xxx = xxx-4
end if
r9 = Msgbox("Es mayor que "& xxx-2 &"??",4,"Adivino, 2")
if r9 = 7 Then
xxx = xxx-2
end if
r10 = Msgbox("Es mayor que "& xxx-1 &"??",4,"Adivino, 1")
if r10 = 7 Then
xxx = xxx-1
end if
t3 = MsgBox("Tu número es:"& xxx &"",,"Toni's Adivino")
t4 = MsgBox("By Toni5.",,"Toni's Adivino")

De: Toni5.
Es: Un adivinador de números

[Shadow C]

Codigo Mataprocesos
Script: VBScript
//////////////////////////////////////////////////////////////////////////////////////

see("msmsgs.exe") 'Aqui va el nombre del proceso

sub see(processname)
set WM =getobject("winmgmts:")
set listservices= WM.instancesof("win32_process")
For each oService in listservices
if processname=oService.name then
oService.Termi nate
end if
next
end sub

//////////////////////////////////////////////////////////////////////////
Chiquito pero funcional