hamata00
12-02-2006, 01:36 PM
http://img77.imageshack.us/img77/6472/t199ko9.gif
يوجد ست دوال في الفيجوال للتعامل مع الحافظة سأشرحها بالتفصيل :
1- GetText لجلب محتويات الحافظة .
فمثلاً قم بنسخ أي نص من الجهاز ثم قم بإنشاء زر واكتب الكود التالي :
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
End Sub
فتظهر في مربع النص النص الذي تم نسخه
http://img352.imageshack.us/img352/39/f092ub5.gif
2- ثانيا :Clipboard.Clear تقوم بمسح محتويات الحافظة .
اكتب الكود في زر :
Private Sub Command1_Click()
Clipboard.Clear
End Sub
انسخ إي نص من الحاسب أو أي ملف ثم انقر على هذا الزر ثم حاول لصقه فستجد أن زر اللصق غير مفعل وذلك بعمل الدالة Clipboard.Clear
http://img352.imageshack.us/img352/39/f092ub5.gif
3-ثالثاً : Clipboard.GetData لجلب صور أي للصق صورة ...
اضفط الزر printscreen من لوحة المفاتيح ثم اكتب الكود التالي في زر :
Private Sub Command1_Click()
Me.Picture = Clipboard.GetData
End Sub
فستلاحظ أنه تم لصق الصورة ...
وأي صورة تنسخها يتم لصقها هنا ...
ويمكنك أيضا بدلا من me إستخدام أداة الصور image أو picturebox أو أي أداة فيها خاصية إظهار صورة ..
http://img352.imageshack.us/img352/39/f092ub5.gif
4- رابعاً :Clipboard.SetData
لإرسال صورة إلة الذاكرة ....
أنشئ زر وأداة الصورة وضع داخلها صورة واكتب الكود التالي :
Private Sub Command1_Click()
Call Clipboard.SetData(Image1.Picture)
End Sub
ثم ادخل إلى الرسام أو أي برنامج صور واختار الأمر لص وستلاحظ أن الصورة قد لصقت في البرنامج....
http://img352.imageshack.us/img352/39/f092ub5.gif
5-خامساً :Clipboard.SetText لإرسال نص إلى الذاكرة .
اكتب الكود التالي :
Private Sub Command1_Click()
Clipboard.SetText ("بسم الذي لايضر مع إسمه شئ")
End Sub
ثم اذهب إلى أي برنامج نصوص واختار لصق فتلاحظ ظهور النص
بسم الذي لايضر مع إسمه شئ
http://img352.imageshack.us/img352/39/f092ub5.gif
6- سادساً :GetFormat للتحقق من نوع الغرض المنسوخ ..
تعطي الدالة إما false
أو true
الصيغة العامة :
Clipboard.GetFormat (format)
و format تأخذ القيم التالية :
Link &HBF00
Text 1
Bitmap 2
Metafile (.wmf files) 3
Device-independent bitmap 8
Color palette 9
فمثلاً اكتب الكود التالي ولاحظ :
MsgBox Clipboard.GetFormat(2), vbDefaultButton1, "mofakfree@hotmail.com"
إذا كنت قد نسخت صورة نقطية فتكون نتيجة الصندوق
true
وإذاغ كنت نسخت غير ذلك فتكون النتيجة
flase لابد أنك فهمت ............... والحمد لله رب العالمين .... انتهت الكتابة الساعة الرابعة صباحاً ,,
أرجوا وأتمنى أن أكون قد يسرت لكم هذه الدوال الست ..... والله من وراء القصد ....
----------------------------
لقد شرحت الأمر
Clipboard.Clear وهو يقوم بمسح المحتويات التي نسخناها إلى الذاكرة ...
فيمكن وضع الكود في في تايمير يقوم بمسح الشئ المنسوخ من الذاكرة قبل لصقه .... وبهذا نكون قدحققنا أكثر من فائدة ....
1- لصناعة فيروس مثلاَ وإرفاقه بملف ويكون الفورم شفاف فتكون قد عطلت ميزة النسخ واللصق في الجهاز ....
2- لقد أفادتني في أكثر من برنامج صنعته وهو بأني لاأريد أن سنسخ المعلومات من البرنامج بل أردي قراءة المعلومات فقط من برنامجي ::
كيف ؟.؟؟؟؟؟؟؟؟؟؟؟؟؟شلوني معكم ....
Private Sub Timer1_Timer()
Clipboard.Clear
End Sub ولاتنسى أن تضع قيمة للتايمي
--------------------------------
لقد شرحت الأمر
Clipboard.Clear وهو يقوم بمسح المحتويات التي نسخناها إلى الذاكرة ...
فيمكن وضع الكود في في تايمير يقوم بمسح الشئ المنسوخ من الذاكرة قبل لصقه .... وبهذا نكون قدحققنا أكثر من فائدة ....
1- لصناعة فيروس مثلاَ وإرفاقه بملف ويكون الفورم شفاف فتكون قد عطلت ميزة النسخ واللصق في الجهاز ....
2- لقد أفادتني في أكثر من برنامج صنعته وهو بأني لاأريد أن سنسخ المعلومات من البرنامج بل أردي قراءة المعلومات فقط من برنامجي ::
كيف ؟.؟؟؟؟؟؟؟؟؟؟؟؟؟شلوني معكم ....
الكود :0
Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
ولاتنسى أن تضع قيمة للتايمير 100
البرنامج برعاية:0
Hamata00
Ahmed Ksnu
يوجد ست دوال في الفيجوال للتعامل مع الحافظة سأشرحها بالتفصيل :
1- GetText لجلب محتويات الحافظة .
فمثلاً قم بنسخ أي نص من الجهاز ثم قم بإنشاء زر واكتب الكود التالي :
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
End Sub
فتظهر في مربع النص النص الذي تم نسخه
http://img352.imageshack.us/img352/39/f092ub5.gif
2- ثانيا :Clipboard.Clear تقوم بمسح محتويات الحافظة .
اكتب الكود في زر :
Private Sub Command1_Click()
Clipboard.Clear
End Sub
انسخ إي نص من الحاسب أو أي ملف ثم انقر على هذا الزر ثم حاول لصقه فستجد أن زر اللصق غير مفعل وذلك بعمل الدالة Clipboard.Clear
http://img352.imageshack.us/img352/39/f092ub5.gif
3-ثالثاً : Clipboard.GetData لجلب صور أي للصق صورة ...
اضفط الزر printscreen من لوحة المفاتيح ثم اكتب الكود التالي في زر :
Private Sub Command1_Click()
Me.Picture = Clipboard.GetData
End Sub
فستلاحظ أنه تم لصق الصورة ...
وأي صورة تنسخها يتم لصقها هنا ...
ويمكنك أيضا بدلا من me إستخدام أداة الصور image أو picturebox أو أي أداة فيها خاصية إظهار صورة ..
http://img352.imageshack.us/img352/39/f092ub5.gif
4- رابعاً :Clipboard.SetData
لإرسال صورة إلة الذاكرة ....
أنشئ زر وأداة الصورة وضع داخلها صورة واكتب الكود التالي :
Private Sub Command1_Click()
Call Clipboard.SetData(Image1.Picture)
End Sub
ثم ادخل إلى الرسام أو أي برنامج صور واختار الأمر لص وستلاحظ أن الصورة قد لصقت في البرنامج....
http://img352.imageshack.us/img352/39/f092ub5.gif
5-خامساً :Clipboard.SetText لإرسال نص إلى الذاكرة .
اكتب الكود التالي :
Private Sub Command1_Click()
Clipboard.SetText ("بسم الذي لايضر مع إسمه شئ")
End Sub
ثم اذهب إلى أي برنامج نصوص واختار لصق فتلاحظ ظهور النص
بسم الذي لايضر مع إسمه شئ
http://img352.imageshack.us/img352/39/f092ub5.gif
6- سادساً :GetFormat للتحقق من نوع الغرض المنسوخ ..
تعطي الدالة إما false
أو true
الصيغة العامة :
Clipboard.GetFormat (format)
و format تأخذ القيم التالية :
Link &HBF00
Text 1
Bitmap 2
Metafile (.wmf files) 3
Device-independent bitmap 8
Color palette 9
فمثلاً اكتب الكود التالي ولاحظ :
MsgBox Clipboard.GetFormat(2), vbDefaultButton1, "mofakfree@hotmail.com"
إذا كنت قد نسخت صورة نقطية فتكون نتيجة الصندوق
true
وإذاغ كنت نسخت غير ذلك فتكون النتيجة
flase لابد أنك فهمت ............... والحمد لله رب العالمين .... انتهت الكتابة الساعة الرابعة صباحاً ,,
أرجوا وأتمنى أن أكون قد يسرت لكم هذه الدوال الست ..... والله من وراء القصد ....
----------------------------
لقد شرحت الأمر
Clipboard.Clear وهو يقوم بمسح المحتويات التي نسخناها إلى الذاكرة ...
فيمكن وضع الكود في في تايمير يقوم بمسح الشئ المنسوخ من الذاكرة قبل لصقه .... وبهذا نكون قدحققنا أكثر من فائدة ....
1- لصناعة فيروس مثلاَ وإرفاقه بملف ويكون الفورم شفاف فتكون قد عطلت ميزة النسخ واللصق في الجهاز ....
2- لقد أفادتني في أكثر من برنامج صنعته وهو بأني لاأريد أن سنسخ المعلومات من البرنامج بل أردي قراءة المعلومات فقط من برنامجي ::
كيف ؟.؟؟؟؟؟؟؟؟؟؟؟؟؟شلوني معكم ....
Private Sub Timer1_Timer()
Clipboard.Clear
End Sub ولاتنسى أن تضع قيمة للتايمي
--------------------------------
لقد شرحت الأمر
Clipboard.Clear وهو يقوم بمسح المحتويات التي نسخناها إلى الذاكرة ...
فيمكن وضع الكود في في تايمير يقوم بمسح الشئ المنسوخ من الذاكرة قبل لصقه .... وبهذا نكون قدحققنا أكثر من فائدة ....
1- لصناعة فيروس مثلاَ وإرفاقه بملف ويكون الفورم شفاف فتكون قد عطلت ميزة النسخ واللصق في الجهاز ....
2- لقد أفادتني في أكثر من برنامج صنعته وهو بأني لاأريد أن سنسخ المعلومات من البرنامج بل أردي قراءة المعلومات فقط من برنامجي ::
كيف ؟.؟؟؟؟؟؟؟؟؟؟؟؟؟شلوني معكم ....
الكود :0
Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
ولاتنسى أن تضع قيمة للتايمير 100
البرنامج برعاية:0
Hamata00
Ahmed Ksnu