اريد كود حمايه التكسيت بوكس من النسخ

تقصد من النسخ بواسطة Ctrl + C و الكليك اليمين ؟

و لا من البرامج اللى بتجيب محتويات النصوص بالتأشير عليها بالماوس ?

تقصد من النسخ بواسطة Ctrl + C و الكليك اليمين ؟

ايوه هو ده

أيضاً يمكن النسخ عن طريق الماوس

فما الحل برأيك أخي msayed2004

يمكن نفرغ الذاكرة دائماً ولكن هذه الطريقة غير عملية

Private Sub Timer1_Timer()
Clipboard.Clear
End Sub

بفكرله فى فكرة *-) :huh:

يمكن الحل الى قال عليه الاخ طعبد العزيز اليوس"

اقتباس

يمكن نفرغ الذاكرة دائماً ولكن هذه الطريقة غير عملية

يمكن عمل ذلك فقط اذا حاول المستخدم الضغط على clic وكان زر الماوس هوالايمن يتم تفريغ الكليب بورد او لتكون اكثر عملية يتم مقارنة الحافظة مع محتويات التيكيست فاذا تطابقا يتم التفريغ

Private sub chh()
dim x as string
clipboard.gettext x
if x = text1.text then
clipbaord.clear
end if 
end sub

هذا الكود كتبتة داخل الرد

طيب ممكن كمان توقف عمل زار برنت اسكرين

انت عاوز تعمل برنامج تجسس ولا تحمى برنامجك من ماذا

زر print screen موجود داخل نظام التشغيل لا يمكن ايقافة اعتقد الا من داخل الريجسترى

لكن قولى ماذا تود ان تفعل ربما افيدك

انا عايز الغىprint screen علشان محداش يلقط صوره للبرنامج والكتابه اللى جوه

Option Explicit

Private Const GWL_WNDPROC As Long = (-4)
Private Const WM_RBUTTONUP As Long = &H205
Private Const WM_CHAR As Long = &H102
Private Const WM_GETTEXT As Long = &HD

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private m_lWndProc As Long
Private OriginalWndProc As Long

Public Sub ProtectFromCopy(hwnd As Long)
m_lWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
OriginalWndProc = hwnd
End Sub

Public Sub UnProtectFromCopy(hwnd As Long)
SetWindowLong hwnd, GWL_WNDPROC, m_lWndProc
End Sub

Private Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = WM_RBUTTONUP Then
	WindowProc = 0
	Exit Function
End If

If Msg = WM_CHAR Then
	Select Case wParam
		Case 3, 24
			WindowProc = 0
			Exit Function
	End Select
End If

If Msg = WM_GETTEXT Then
	WindowProc = 0
	Exit Function
End If

WindowProc = CallWindowProc(m_lWndProc, hwnd, Msg, wParam, lParam)
End Function

mr msayed2004 it's agood idea to make a sub calass and hock proc on this form when the form recive the print screen message it cancel the operation but you forgot to make the hock in your prev code when i tried to make the hock the follwing error message appears

invalid use of addressof operator

plzzzzzzzzzzzzzzzzzzzzzzz

execute this code again :(

ببساطة شديدة الـ Addressof لا تعمل سوى بموديول , يبقى لازم تحط الكود السابق بموديول.

دى قاعدة معروفة فى الـ Subclassing

بالنسبة لموضوع الـ Print screen هو سهل بس عندى فكرة تانية ليه ميزيتها أنها هتزود من حماية الكود السابق.

طب ماتقول الفكرة دى كلنا اذان صاغية

رجعت فى كلامى مش هتنفع مع الـ Print screen و كمان منع الوظيفة دى مش هينفع لأن المستخدم ممكن ببساطة ينقل الـ Focus لـ Window تانية مع الحفاظ على الـ Form اللى فيها الـ Text Box ظاهره و يضغط Print screen

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

السلام عليكم

اقتباس

انا عايز الغىprint screen علشان محداش يلقط صوره للبرنامج والكتابه اللى جوه

حتى لو لغيتها

أظن ان هناك برامج تلتقط الصور للشاشة و يمكن تصور سطح المكتب كملف فيديو

وبعدين تستخرج الصور

اقتباس

ولا قولك هطلع الجوال وصور الشاشة

يعني عدم التقاط الصور لبرنامجك امر ........ ;)

بارك الله فيكم أخوتي الكرام

وكل التحية لصاحب الموضوع .. والإخوة اللذين تفاعلوا مع المشاركة المفيدة

وتحياتي لكم جميعاً :D