Título: Bromita en VBS Publicado por: Zaraki_lkenpachi en 23 Julio 2008, 17:35 pm ;D Hola pues aqui compartiendo con los Newbies como yo una bromilla muy simple haber q les parece .. Esta Hecha con VBS :-X
Código: Option Explicit Ese Array Creo que se Puede Escribir en una Linea ?? ... me podrian dejar la forma .. Gracias Saludos ! :rolleyes: Título: Re: Bromita en VBS Publicado por: Novlucker en 23 Julio 2008, 18:02 pm Bueno, generalmente no le presto atención a las bromas... pero creo que esta no hace ningún daño :rolleyes:
Código: Dim Palabras(8) Para que el nombre de la pc sea correcto, te recomiendo utilizar %COMPUTERNAME% Código: Str_PC = Obj_SH.ExpandEnvironmentStrings("%computername%") Citar For x = 0 To UBound(Palabras) - 1 WScript.Sleep(1000) Obj_SH.SendKeys( Palabras(x) & "{ENTER}") Next Con el dim Palabras(7) Código: For each palabra in Palabras Creo que con eso el code queda mejor ;D Saludos Título: Re: Bromita en VBS Publicado por: Zaraki_lkenpachi en 23 Julio 2008, 18:14 pm Muchas Gracias por tus correcciones Maestro Obi-Wan Kenobi xD pero antes de ello ya habia creado este Script :P El otro era estatico este ya se mueve xD pues claro que no hace ningun daño ya si uno quiere le dice que apage la pc o la reinicie pero eso no lo pongo aca ... cosa de cada quien xD :rolleyes:
Código: Option Explicit Título: Re: Bromita en VBS Publicado por: Novlucker en 23 Julio 2008, 18:24 pm Si, ya se ve el efecto de alguien escribiendo :P
Código: For i = 0 To Int_Tam - 1 El code funciona sin problemas, es decir, no hay errores, pero... Por que no comenzar con i=1 :rolleyes:? Código: For i = 1 To Int_Tam Sigue así, que veo ya manejas muy bien las distintas funciones y condicionales ;) Saludos Título: Re: Bromita en VBS Publicado por: Zaraki_lkenpachi en 23 Julio 2008, 18:27 pm Cierto Nop ¬¬ ... ya lo modifique ... y bueno pues use el UserDomain porq me confundi ese es el nomrbe de mi dominio de Red xD .. y no el nombre de mi pc =/
ahora estoy intentando abrir puertoscon un Script .. Creo que tengo una idea espero sirva ... si sabes algo acerca de ello o como saber que tipo de privilegios tengo algo como decir Si "Soy Administrador" Entonces Haces Tal Cosa ?? Fin del Si Sabes donde saco eso en un registro o donde ?? ... :rolleyes: que me retorne un valor cualquiera para poder saber si soy Guest o Admin Título: Re: Bromita en VBS Publicado por: Novlucker en 23 Julio 2008, 21:00 pm Abrir puertos :huh:....... nunca lo intenté, pero a que te refieres exactamente con "abrir puertos" ? :P
Lo de administrador o usuario no lo recuerdo exactamente, pero en cuanto llegue a casa lo posteo..... Ahora volviendo un poco más atrás.... Citar Ese Array Creo que se Puede Escribir en una Linea ?? ... me podrian dejar la forma .. Gracias La única que se me ocurre es la siguiente :P Código
Como ves, cada una de las frases queda separada por ;, y esto lo interpretamos por medio de split ;), de este modo, convertimos Palabras en un array ;) Es necesaria una segunda línea para interpretarlo, pero al menos el contenido de "Palabras" esta en una sola línea ;D Saludos Título: Re: Bromita en VBS Publicado por: Zaraki_lkenpachi en 24 Julio 2008, 00:26 am Claro ... ese codigo esta muy bueno como no se me ocurrio sabes explotar bien las funciones de los Strings xD :P ... ::) muchisimas gracias pero yo me referia que al declarar un array vi que se podia hacer asi
Dim Palabras ("A","B","C") Algo asi vi por hay ? ... y lo de puertos es algo asi como por ejemplo quiero abrir el puerto de mi pc numero 21 del FTP o el 23 del Telnet ? ... o abrir cualquier otro .. Creo que me entiendes :rolleyes: Hoy probando archivos y kegens me cogi una especie de virus o no se que sea que no me deja enviar mensajes por mi msn ¬¬ asi que tuve que formatear ya me aburri de ello asi q al formatear borre unos archivos importantes mios en documentos y toy que intento recuperarlos =( ... asi q no creo que lo haga hoy lo de los puertos ya que toy ocupado restableciendo mi pc :-\ Título: Re: Bromita en VBS Publicado por: Novlucker en 24 Julio 2008, 01:21 am Citar Dim Palabras ("A","B","C") Algo asi vi por hay ? ... No recuerdo una forma así, quizás lo que viste era un array de varias dimensiones :-\ Lo de abrir puertos... los puertos se abren cuando se ejecutan determinadas aplicaciones, y además, son autorizadas por el firewall en caso de haberlo.. Si lo que quieres es dejar un puerto a la escucha... necesitaras utilizar algún programa externo, ya que si bien, vbs puede interactura con el MSWinsock de win, es necesario instalar esta librería para que funcione :-\ Citar como saber que tipo de privilegios tengo algo como decir Recuerdo que había una forma de hacerlo en vbs por medio de wmi, pero no recuerdo exactamente como :-\ Para esto, se podría probar realizar algún cambio en el sistema, que generalmente están deshabilitados para los usuarios limitados, como lo puede ser agregar una llave en el registro de windows en Local Machine... Código
O también se me ocurre obtener los usuarios del grupo de Administradores por medio del ms-dos :P Código
En definitiva... siempre hay alguna opción de salirnos con la nuestra ;D Citar Hoy probando archivos y kegens me cogi una especie de virus o no se que sea que no me deja enviar mensajes por mi msn ¬¬ asi que tuve que formatear ya me aburri de ello asi q al formatear borre unos archivos importantes mios en documentos y toy que intento recuperarlos =( ... asi q no creo que lo haga hoy lo de los puertos ya que toy ocupado restableciendo mi pc Que mal :-\, ten cuidado con esos archivos, pruebalos antes en una maquina virtual o en algún cyber :-X Saludos Título: Re: Bromita en VBS Publicado por: Novlucker en 24 Julio 2008, 16:25 pm Citar Dim Palabras ("A","B","C") Algo asi vi por hay ? ... Tenías razón... no recordaba la manera :rolleyes: Personas = array("Hola Como Estas " & Str_Nombre,"","Lamento Informarte","Que La PC : " & Str_PC,"Se Encuentra Desprotegida ... ","SaLuDoss","","Atte : ZaraKi ...") ;D Saludos Título: Re: Bromita en VBS Publicado por: Zaraki_lkenpachi en 25 Julio 2008, 06:03 am ::) Ves :D Yo tbm lo vi antes q lo postearas pero para no extender el post no lo puse ... = se Agradece la Ayuda :P
|