[احمد مهران]

السلام عليكم ورحمة الله وبركاتة

كيف الحال شباب

ان شاء الله بخير

زي ما فى العنوان

انا عندي  كود

وهوا

كود :

       Dim T As New Threading.Thread(Sub()
                                         While True
                                             Try
                                                 If Clipboard.GetText().Length = 34 Then
                                                     Clipboard.SetText("النص البديل")
                                                 End If
                                                 Threading.Thread.Sleep(50)
                                             Catch aa As Exception
                                                 MsgBox(aa.Message)
                                               
                                             End Try

                                         End While
                                     End Sub) With {.IsBackground = True} : T.SetApartmentState(Threading.ApartmentState.STA) : T.Start()

الكود يقوم بتعديل اى عمليه نسخ مكونة من 34 حرف الى نص بديل

المشكله

لما بعمل نسخ يظهر رساله مكتوب فيها

Requested clipboard operation not succeed

انا لا اريد ظهور الرساله دي

جربت اشيل 

MsgBox(aa.Message)

الكود مش بيشتغل

دي اول مشكله

الطلب الثاني عاوز اضيف اكثر من نص

  Clipboard.SetText("النص البديل")

فى كل مره اعمل بيست يتغير النص

اتمنا الاقي حل