Ayuda, Codigo copiar y pegar portapapeles

[-The Nax-]

Hola, a todos bueno recien empiezo con esto, asi ek sepan entenderme ja.
Bueno como dice el nombre del tema, alguno que tenga el code para copiar el portapapeles y tmb para poder pegarlom haciendose de forma infinita hasta que se ponga stop,

Bueno Muchas Gracias

[Ther0x]

Hola

Mira, agregas un textbox y 2 commands, dejando los nombres por defecto.

Código:

Private Sub Command1_Click()
Clipboard.SetText ("Prueba")
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & Clipboard.GetText
End Sub

Para que se repita la función de pegar el texto solo tienes que crear un bucle Do...Loop

Código:

Do
Clipboard.GetText
Loop

Espero ayudarte

Saludos

[-SharK_90-]

JAJA... no sabia lo del clipBoard.! Gracias..
Dia a Dia se aprenden cosas, asi sean pelotudeses que despues te sirven.!!

SALu2

[-The Nax-]

Disculpenme pero no entendi como hacerlo, haci que hice una imagen a ver si es mejor


Para ver este enlace Registrate o Inicia Sesion

Lo que yo quiero es que cuando toco en algun option se copie eso en el text y que cuendo ponga iniciar se pegue, pero no en el texto sino que en una archivo aparte y que se copie hasta que toque parar, lo mismo cuando yo quiera pegar un texto diferente en el text y me lo copie, Bueno espero que me entiendan ja.
Una ultima cosita ja si me ayudarian con el code de salir y de limpiar que no se como se hace,

Muchas Gracias

[Ther0x]

:S :S :S :S :S :S :S :S :S :S :S :S :S :S :S :S :S :S :S :S

No entendí nada de lo que quieres hacer.

El botón de salir supongo que cierra el programa, para eso usa:

Código:

end

Y el de limpiar supongo que borra el texto que haya en el textbox, para eso:

Código:

Text1.Text = ""

El resto no lo he entendido.

Saludos

[-The Nax-]

jaja bueno perdon, lo voy a intentar explicar mejor,
Lo que quiero hacer es que cuando seleccione algunas de los dos Option, ese texto que esta ahi se me copie automaticament e en la parte de Text1, y que cuando ponga inciar se empieze a pegar ese texto, pero no en el programa ese, sino por ejmplo en un archivo word o lo que sea, pero si por ejemplo la palabras que quiero que se copie no esta en los Optien, tengo el text1 ahi, y entonces copio la palabra que quiero que haga lo que ya explique antes. jaja bueno me parece que ahi esta mejor.

Muchas Gracias

[ziBboh]

Buenas tardes a todos, a lo que me ofrece esta imagen


dedusco que se trata de un flooder al ver los botones de "Iniciar" y "Terminar", en fin en todos los casos -The Nax- ya explico mejor su proyecto.

Ahora lo que tienes que hacer es preguntarte "¿cuantas veces lo quieres copiar?" pienso que seria mejor que sepas N veces de envio, en lugar de un "Iniciar/Parar", por que no usarias un Timer, sino solo un ciclo p.ej.

Código:

Dim num, N as Integer
'N puede ser igual a otro TextBox en el cual se ingrese un numero de veces que se repetira la accion
Do While Not num = N 'Mientras num no sea igual a N
Clipboard.Clear 'Limpia el portapapeles
Clipboard.SetText Text1.Text 'Añade al portapapeles el contenido del Text1
SendKeys "^V" 'Envia la función de pegar
SendKeys "{ENTER}" 'Envia un Enter para pasar a la siguiente linea
num = num + 1 'Le suma 1 a num
loop