کپی و پیست به صورت خودکار

[vb8334]

با سلام به تمامی دوستان

من می خواستم بدونم چجوری میشه وقتی کاربر یه متن رو مثلآ یه آدرس سایت رو تو مرورگر
کپی میکنه چجوری به صورت خودکار متن تویه تکست باکس برنامه که توی systry قرار داره
paste بشه

ممنون

[Nima0711]

برای تشخیص انجام یه پروسه خارج از GUI باید از یک کامپوننت استفاده کنی تا بتونه تشخیص بده (اسم کامپوننت رو یادم نمی یاد ولی اگه صبر کنی یادم میاد بهت می گم) ولی اگه نخوای از کامپوننت استفاده کنی می تونید از سورس یه برنامه کیلاگر استفاده کنید و بعد یه شرط همیشه در حال چک که اگر کاربر دکمه ترکیبی کنترل و سی را گرفت بیا سیسترای رو باز کن و پیست کن ، قسمت دومش که کاری نداره از دستور Gettext استفاده کن
مثال برای دریافت و چاپ یه متن با کپی و پیست

a = InputBox("", "")
Clipboard.SetText (a)
Print Clipboard.GetText

[vb8334]

اگه اسم کامپوننت هم یادت اومد بگو

ممنون

[vb8334]

دوستان کسی نیست که به ما کمک کنه

[vb8334]

خودم کد copy و paste رو نوشتم اما حالا می خوام زمانی که من کپی کردم متن رو. برنامه که تو
system try هستش بیاد بالا برای این چکار کنم

ممنون

اینم کدی که نوشتم خیلی ساده اول یه تایمر بذارید بعد مقدار interval رو 100 قرار بدید

سپس در تایمر این کد رو بنویسید :



Private Sub Timer1_Timer()
Dim str As String
str = Clipboard.GetText
If str = "" Then Exit Sub
Text1.Text = str
End Sub