Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: xassiz_ en 14 Septiembre 2009, 21:13 pm


Título: {Resuelto} [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 14 Septiembre 2009, 21:13 pm
Se podría manejar el portapapeles en VBS?

Sin ser con sendkeys.. algo mas funcional xD

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 14 Septiembre 2009, 21:20 pm
Solo para texto .... nada que implique binarios

Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 14 Septiembre 2009, 21:23 pm
Si si, me refiero a texto.

Podrías pasar algun tutorial o algo?

Quería ver si se podria poner un texto en el code y que lo copiar directamente,, tambien si se podría copiar el contenido de un .txt por ejemplo..etc.

Gracias Nov!! ;-)

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Erik# en 14 Septiembre 2009, 21:54 pm
Puedes probar: My.Computer.Clipboard.SetText("This is a test string.")
Es de VB, pero puedes migrarlo: http://msdn.microsoft.com/es-es/library/e2z694z2.aspx

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 14 Septiembre 2009, 21:56 pm
Si es VB como lo voy a poner en VBS :rolleyes: ;D

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Erik# en 14 Septiembre 2009, 23:43 pm
vbs es visual basic script...... ¡Se nota que entiendes de VB!

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 14 Septiembre 2009, 23:55 pm
Claro que se que es VBS.

Pero VBS NEQ VB

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 00:32 am
A lo vago .. copiando y pegando un post que ya tenía XD

Código
  1. set objie = createobject("internetexplorer.application")
  2. objie.navigate "about:blank"
  3. 'Solo para abrir correctamente el iexplore
  4. objie.document.parentwindow.clipboarddata.setdata "text","Copiando en el portapapeles"
  5. 'El text va asi, lo que se cambia es el segundo texto, "Copiando ...", mas info:
  6. ':http://msdn.microsoft.com/en-us/library/ms536744%28VS.85%29.aspx
  7. objie.quit
  8. 'Terminamos el iexplore

Lo molesto de esto ...

(http://s3.subirimagenes.com:81/imagen/2957647iexore.png)

Ese mensaje se puede deshabilitar desde las opciones del iexplorer

Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 00:43 am
Para usar el clipboard hay que utilizar internet explorer? XD

Y desde el vbs por casualidad no se podra desactivar la opcion esa el iexplore no? xD

Otra cosa, lo de copiar el contenido de un .txt??


Gracias crack ;-)

PD: cosa que se me acaba de ocurrir, la ventana esa se podria quitar con sendkeys no?

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 00:57 am
Citar
Para usar el clipboard hay que utilizar internet explorer? XD
Si ... vbs no tiene soporte nativo para el portapapeles, pero por medio del iexplorer si se puede  :P

Citar
Otra cosa, lo de copiar el contenido de un .txt??

Solo es cuestión de tener el texto del txt asignado a una variable texto
Código
  1. mitexto = "Aqui va el contenido del archivo"
  2. objie.document.parentwindow.clipboarddata.setdata "text",mitexto

Citar
PD: cosa que se me acaba de ocurrir, la ventana esa se podria quitar con sendkeys no?
No podrías, porque de seguro tendrás el navegador oculto (objIE.visible = false), y en cuyo caso no llegarás a ver el mensaje para enviar sendkeys  :P, pero esa configuración del navegador tiene que estar dando vueltas por algún sitio en el registro de win, solo sería cuestión de buscarla (por mi parte nunca lo he hecho)

Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 01:00 am
Ok, gracias por responder tan pronto ^^

Citar
Código:
mitexto = "Aqui va el contenido del archivo"
objie.document.parentwindow.clipboarddata.setdata "text",mitexto

Código:
mitexto = "Aqui va el contenido del archivo"
Y como pongo ahí el contenido del archivo =S

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 01:20 am
Citar
Y como pongo ahí el contenido del archivo =S
Quieres que me ponga con el FSO, opentextfile, readall y demás? Como me digas que si veo la manera de golpearte :rolleyes:

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 11:54 am
Pegame me da igual si aprendo xD xD xD

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 12:57 pm
jaja, bueno, ya te he dejado las pistas, así que solo es cuestión de que leas y te informes de las funciones

Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 14:11 pm
Lo conseguí!!  ;-)

Código:
set objfso = createobject("scripting.filesystemobject")
set clipboard = createobject("internetexplorer.application")
set myfile = objfso.opentextfile("file.txt",1)
texto = myfile.readline
clipboard.navigate "about:blank"
clipboard.document.parentwindow.clipboarddata.setdata "text",texto
clipboard.quit
myfile.close

 ::)

Ahora a ver si encuentro alguna forma de quitar el..

(http://s3.subirimagenes.com:81/imagen/2957647iexore.png)


No se si valdrá una mezcla de sendkeys y setcursorpos.. :P :rolleyes: ;D


Gracias tio!! :-*

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 14:27 pm
Recuerda que si es TODO un archivo hay que cambiar de una linea (readline) a todas (readall)

Citar
No se si valdrá una mezcla de sendkeys y setcursorpos.
Insisto, yo me iría por buscar la clave de registro controla la seguridad en esos casos

Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 15:19 pm
Ok, buscaré la ruta del registro ;D

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 15:32 pm
Ya ...

:http://support.microsoft.com/kb/182569
Citar
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\
Citar
 Value Setting
 ------------------------------
 0 My Computer
 1 Local Intranet Zone
 2 Trusted sites Zone
 3 Internet Zone
 4 Restricted Sites Zone
Entiendo habría que "toquetear" la Zona 3

Citar
 Value Setting
 ------------------------------
[...]
 1407 Scripting: Allow Programmatic clipboard access
[...]
Y los valores a darle a la clave
Citar
Note Unless stated otherwise, each DWORD value is equal to zero, one, or three. Typically, a setting of zero sets a specific action as permitted, a setting of one causes a prompt to appear, and a setting of three prohibits the specific action.

El resto es cuestión de modificar la clave con regwrite

Saludos ;)

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 15:34 pm
Entonces se pondría 3?  :huh:

Título: Re: [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 15:43 pm
Prueba .. investiga ... no hay que esperar que las respuestas lluevan ...

(http://s4.subirimagenes.com/imagen/3211638regedit.png) (http://www.subirimagenes.com/imagen-regedit-3211638.html)


Saludos

Título: Re: [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 16:34 pm
Ok, gracias ;D

Pues todo resuelto ^^

Aqui tenemos el code para usar el portapapeles sin problemas, sin el maldito
(http://s3.subirimagenes.com:81/imagen/2957647iexore.png)

Código:
set registro = createobject("wscript.shell")
registro.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407",0,"REG_SZ"
set objfso = createobject("scripting.filesystemobject")
set clipboard = createobject("internetexplorer.application")
set myfile = objfso.opentextfile("file.txt",1)
texto = myfile.readall
clipboard.navigate "about:blank"
clipboard.document.parentwindow.clipboarddata.setdata "text",texto
clipboard.quit
myfile.close

 ;-)

Título: Re: {Resuelto} [Duda VBS] Clipboardd.
Publicado por: Novlucker en 15 Septiembre 2009, 16:44 pm
Y te ha funcionado?  :o

Lo digo porque el tipo de valor debería de ser REG_DWORD

Saludos

P.d: si esta todo ok cierro el tema

Título: Re: {Resuelto} [Duda VBS] Clipboardd.
Publicado por: xassiz_ en 15 Septiembre 2009, 16:45 pm
Si que a funcionado xDD

Que raro.. u.U


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines