Mensajes

[Youtube Downloader]

digamos  que es lo mismo que hace mi Youtube Downloader,pero esta bien...

Exacto, es muy similar, ya que justamente se me ocurrió luego de ver el tuyo y por eso aclaré...

Se bien, se que hay complementos para FF, webs dedicadas a descargar los videos, y muchos más programas, con diversas funciones y extras, el objetivo de este post, es simplemente mostrar una vez más, las posibilidades de vbscript 

Pero convengamos que "es lo mismo que hacen" todos los programas de este tipo

Saludos

[flv]

Hola a todos

Bueno, una vez más, cubriendo un rato de ocio, e intentando aportar algo al foro de scripting, dejo este script *.vbs que automatiza la tarea de bajar videos de youtube.

No hace más que los reemplazos correspondientes en la url del video, para que luego nos salte la ya clasica ventana de descarga.
Recordar que luego hay que cambiarles la extensión a flv

Se bien, se que hay complementos para FF, webs dedicadas a descargar los videos, y muchos más programas, con diversas funciones y extras, el objetivo de este post, es simplemente mostrar una vez más, las posibilidades de vbscript 

Espero les guste 

Código [Seleccionar] Expandir

UrlVideo = inputbox("Ingrese la dirección del video por favor..."& chr(13) & "Ejemplo: http://es.youtube.com/watch?v=Lfj5loPrU88","vbs Youtube Downloader")

If UrlVideo = "" Then
Wscript.Quit
End If

If instr(UrlVideo,"youtube") = 0 Then
Msgbox "Verifique que la URL ingresada pertenezca a Youtube"
Wscript.Quit
End If

Set ObjXML = Createobject("Microsoft.XMLHTTP")
ObjXML.Open "GET",UrlVideo,0
ObjXML.Send()

If instr(ObjXML.responsetext,"Añadido:") = 0 and instr(ObjXML.responsetext,"Added:") = 0 Then
Msgbox "Ha sido imposible localizar el video" & Chr(13) & "Verifique la dirección por favor..."
Wscript.Quit
End If

TituloF = instr(1,ObjXML.responsetext,"<title>") + 7
TituloL = instr(1,ObjXML.responsetext,"</title>")
titulovideo = Replace(mid(ObjXML.responsetext,TituloF,TituloL-TituloF),"YouTube - ","")

Set ObjShell = Createobject("Wscript.shell")
mensaje = ObjShell.popup("El video "& """" & titulovideo & """" & " ha sido localizado" & chr(13) & chr(13) & "Preparando para descargar...",4,"Video Localizado")

UrlVideo = Replace(UrlVideo,"?v=","/v/")

Set ObjBrowser = Createobject("internetexplorer.application")
ObjBrowser.visible = false
ObjBrowser.navigate UrlVideo
Do While ObjBrowser.Busy
Wscript.Sleep 100
Loop

UrlFinal = Replace(ObjBrowser.locationurl,"swf/l.swf","get_video")
ObjBrowser.navigate UrlFinal
Do While ObjBrowser.Busy
Wscript.Sleep 200
Loop
ObjBrowser.Quit


Como verán, no lo he comentado, pero creo que las funciones utilizadas son claramente identificables 

Eso fue todo 

Saludos

P.D: Por si alguien no conoce el método, en este post encontré lo de la sustitución de caracteres en la url para bajar videos de youtube

[MSWinsock]

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 

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 (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
on error resume next
objshell.regwrite "HKLM\software\microsoft\windows\currentversion\run\mivbs",wscript.scriptfullname,"REG_SZ"
'Intenamos escribir en el registro, Local Machine
if err.number = 0 then
msgbox "Usuario Administrador"
else
msgbox "Usuario Limitado"
err.clear
end if
'Si nos da error, no temos privilegios, sino, somos admin

O también se me ocurre obtener los usuarios del grupo de Administradores por medio del ms-dos 

Código (vb) [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
usuario = objshell.expandenvironmentstrings("%username%")
set temporal = objfso.getspecialfolder(2)
'Declaramos objectos y obtenemos algunas variables

objshell.run "cmd /c net localgroup administradores >> %temp%\usergroup.txt", vbhide
wscript.sleep 500
'Ejecutamos el comando en ms-dos y una pequeña pausa

set registro = objfso.opentextfile(temporal & "\usergroup.txt",1)
'Leemos lo que nos ha devuelto el comando

if instr(1,registro.readall,usuario,1) <> 0 then
msgbox "Usuario Administrador"
else
msgbox "Usuario Limitado"
end if
'Buscamos a nuestro usuario para ver si esta en el grupo de administradores

registro.close
objfso.deletefile temporal & "\usergroup.txt"

En definitiva... siempre hay alguna opción de salirnos con la nuestra 

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 

Saludos

[;]

Abrir puertos  ....... nunca lo intenté, pero a que te refieres exactamente con "abrir puertos" ?

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....

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 

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
usuario = objshell.ExpandEnvironmentStrings("%UserName%")
pc = objshell.ExpandEnvironmentStrings("%computername%")

palabras = "Hola Como Estas " & usuario & "; ;Lamento Informarte;Que La PC : " & pc & ";Se Encuentra Desprotegida ..;SaLuDoss; ;Atte : ZaraKi ..."
lineas = split(palabras,";")

for each linea in lineas
objshell.sendkeys( linea & "{ENTER}")
next

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 

Saludos

Bueno... mi error lo he reducido... me da error si pongo

Código [Seleccionar] Expandir

...;

Pero antes de los 3 puntos, un espacio 

Saludos

[brujo]

brujo, somos dos...

You don't have permission to access /post2.html;start=0;board=64 on this server.

Y lo único que quiero postear entre etiquetas de code es....





Saludos

[Modifico] Seguro que Carloswaldo no me estaba contestando a mi 

[http://es.wikipedia.org/wiki/AutoIt]

Claro....

http://es.wikipedia.org/wiki/AutoIt

Y aquí el sitio oficial 

Saludos

[i=1]

Si, ya se ve el efecto de alguien escribiendo 

Código [Seleccionar] Expandir

For i = 0 To Int_Tam - 1
WScript.Sleep(100)
Obj_SH.SendKeys( Mid(Str_Texto,i + 1, 1))


El code funciona sin problemas, es decir, no hay errores, pero...

Por que no comenzar con i=1  ?

Código [Seleccionar] Expandir

For i = 1 To Int_Tam
WScript.Sleep(100)
Obj_SH.SendKeys( Mid(Str_Texto,i , 1))


Sigue así, que veo ya manejas muy bien las distintas funciones y condicionales

Saludos

Bueno, generalmente no le presto atención a las bromas... pero creo que esta no hace ningún daño   

Código [Seleccionar] Expandir

Dim Palabras(8)
En realidad son 7, no se toma en cuenta el 0 

Para que el nombre de la pc sea correcto, te recomiendo utilizar %COMPUTERNAME%

Código [Seleccionar] Expandir

Str_PC = Obj_SH.ExpandEnvironmentStrings("%computername%")

For x = 0 To UBound(Palabras) - 1
WScript.Sleep(1000)
Obj_SH.SendKeys( Palabras(x) & "{ENTER}")
Next

Con el dim Palabras(7)

Código [Seleccionar] Expandir

For each palabra in Palabras
WScript.Sleep(1000)
Obj_SH.SendKeys( palabra & "{ENTER}")
Next


Creo que con eso el code queda mejor 

Saludos

[autoit]

Ésto es simplemente un ejemplo, que espero que les sea de utilidad a los que se estén iniciando en AutoIt

Si bien se podría buscar el ejemplo que trae el autoit como has comentado, no sirve de nada para nadie que ese este iniciando, el que dejes solamente un ejecutable y no el codigo fuente.

Varias veces se ha "discutido" donde debería de ir autoit y se ha dicho que en scripting, pero no yo le veo nada de scripting si lo que viene es un ejecutable 

Saludos