وهذا الكود لمنع النسخ أو اللصق لعدم نسخ البرنامج
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
R = Clipboard.GetText
If Len(R) = 0 Then
Clipboard.Clear
End If
End Sub
`·.¸¸.·´´¯`··._.· (تشي جيفارا) `·.¸¸.·´´¯`··._.·`
لا يهمني اين و متى ساموت بقدر ما يهمني ان يبقى الثوار يملئون العالم ضجيجا كي لا ينام العالم بثقله على أجساد الفقراء.
|