16-02-17, 08:03 PM
السلام عليكم ورحمة الله وبركاتة
كيف الحال شباب
ان شاء الله بخير
زي ما فى العنوان
انا عندي كود
وهوا
كود :
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("النص البديل")
فى كل مره اعمل بيست يتغير النص
اتمنا الاقي حل