Test Foro de elhacker.net SMF 2.1

Se podría manejar el portapapeles en VBS?

Sin ser con sendkeys.. algo mas funcional xD

Solo para texto .... nada que implique binarios

Saludos

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!! ;-)

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

Si es VB como lo voy a poner en VBS :rolleyes: ;D

vbs es visual basic script...... ¡Se nota que entiendes de VB!

Claro que se que es VBS.

Pero VBS NEQ VB

A lo vago .. copiando y pegando un post que ya tenía XD

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

Lo molesto de esto ...


Ese mensaje se puede deshabilitar desde las opciones del iexplorer

Saludos

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?

CitarPara 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

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

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

CitarPD: 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

Ok, gracias por responder tan pronto ^^

Citar

Código [Seleccionar] Expandir

mitexto = "Aqui va el contenido del archivo"
objie.document.parentwindow.clipboarddata.setdata "text",mitexto

mitexto = "Aqui va el contenido del archivo"
Y como pongo ahí el contenido del archivo =S

CitarY 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:

Pegame me da igual si aprendo xD xD xD

jaja, bueno, ya te he dejado las pistas, así que solo es cuestión de que leas y te informes de las funciones

Saludos

Lo conseguí!!  ;-)


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!! :-*

Recuerda que si es TODO un archivo hay que cambiar de una linea (readline) a todas (readall)

CitarNo 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

Ok, buscaré la ruta del registro ;D

Ya ...

:http://support.microsoft.com/kb/182569

CitarHKEY_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

CitarNote 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 ;)

Entonces se pondría 3?  :huh:

Prueba .. investiga ... no hay que esperar que las respuestas lluevan ...



Saludos

Ok, gracias ;D

Pues todo resuelto ^^

Aqui tenemos el code para usar el portapapeles sin problemas, sin el maldito


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


;-)

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

Si que a funcionado xDD

Que raro.. u.U