منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال وطلب بس للمحترفين بصراحة عجزت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال وطلب بس للمحترفين بصراحة عجزت (/showthread.php?tid=10302)



سؤال وطلب بس للمحترفين بصراحة عجزت - shadid - 01-04-14

السلام عليكم
بصراحة يا اخوان انا عندي طلب وسؤال
الطلب :
وهو عمل تكست مثل تكست اسم المستخدم يعني يكون مكتوب داخله اسم المستخدم بخط رمادي مثلا اول ما اكتب حرف يمسح اسم المستخدم ويكتب الحرف اللي انا كتبته بلون اسود زي صفحة الهوتميل واذا تركته فاضي يرجع يكتب داخله اسم المستخدم بخط رمادي

السؤال :
كيف بقدر احمي برنامجي من سرقة السورس كود وهل في طريقة امنع نسخ الملف اللي موجود بيه البرنامج والاهم انا مثلا عندي قواعد sql server اكيد بحالة سرقة السورس كود رح يظهر الباسوورد
يعني كلشي صار بخطر




سؤال وطلب بس للمحترفين بصراحة عجزت - shadid - 05-04-14

ولا رد يا جماعة ؟1!!!!!!!!


سؤال وطلب بس للمحترفين بصراحة عجزت - Ammar Yaseen - 06-04-14

السلام عليكم

اخي الكريم ضع استفسارك في المنتدى الجديد لكي يتم الاجابة عليه

http://www.vb4arb.com/vb/

يعطيك العافية


سؤال وطلب بس للمحترفين بصراحة عجزت - shadid - 07-04-14

مشكور حبيبي


RE: سؤال وطلب بس للمحترفين بصراحة عجزت - Hell Cell - 17-12-14

أول مشاركة لي في المنتدى :*
إن شاء الله يفيدك هذا الكود
في الحدث click للتكست

on error resume next
if textpass.text = " كلمة السر هنا " then textpass,text = ""
textpass.forecolor = رقم اللون الذي تريده
else
textpass.text = " كلمة السر هنا"
textpass.forecolor = رقم اللون الذي تريده
end if


RE: سؤال وطلب بس للمحترفين بصراحة عجزت - محمد العبيدي - 16-01-15

اخي shadid
بالنسبة لطلبك فان الجواب هو التالي فارجو ان يكون جوابي هو ماتقصده حضرتك
كود :
Private Sub Form_Load()
   Text1.ForeColor = &H808080
   Text1.Text = "Enter UserName..."
End Sub

Private Sub Text1_Click()
   If Trim(Text1.Text) = "Enter UserName..." Then
       Text1.ForeColor = &H0&
       Text1.Text = ""
   End If
End Sub

Private Sub Text1_LostFocus()
   If Trim(Text1.Text) = "" Then
       Text1.ForeColor = &H808080
       Text1.Text = "Enter UserName..."
   End If
End Sub

اما بخصوص سؤالك فيمكنك حماية الكود عن طريق تحويل البرنامج الى صيغة ملف تنفيذي exe عن طريق عمل Package
وللحماية من النسخ يمكن اعتماد رقم الهارد الخاص بالحاسبة لمنع تشغيل النظام على حاسبة اخرى