إليك مزحة غير ضارة يمكنك لعبها في يوم كذبة أبريل

يوم كذبة أبريل قاب قوسين أو أدنىيعني أنك يجب أن تتوقع أن تكون مزحة. وبالمثل ، يجب أن تحاول أيضًا الحصول على مزحة ناجحة تحت حزامك هذا العام بشرط أن تكون غير ضارة ولن تسبب إلا إزعاجًا خفيفًا أو إزعاجًا بسيطًا. بقدر ما تذهب مزحات المكتب غير المؤذية ، يمكنك دائمًا ربط بعض الورق بأسفل الماوس البصري ، ولكن إذا كنت تبحث عن مزحة أكثر طموحًا لكنها لا تزال غير ضارة ، فإننا نوصي بشدة بمزحة محرك الأقراص المضغوطة / أقراص DVD الموجودة حول للأعمار.

قبل أن نوضح لك كيفية سحب هذه المزحة ،أود أن أنصحك أن تسحبه على مسؤوليتك الخاصة. إذا قرر الهدف من هذا المزحة قذف شاشته عبر الغرفة بإحباط ، فلن نكون مسؤولين.

من أجل سحب هذه المزحة ، يجب أن يكون لديك حق الوصولإلى كمبيوتر الشخص الآخر لمدة خمس دقائق مع عدم وجود شهود حوله. إعداد مزحة على النظام الخاص بك. افتح المفكرة والصق النص التالي فيه. احفظ الملف بأي اسم وامتداد VBS. انسخ هذا الملف إلى موقع غامض إلى حد ما على كمبيوتر الشخص الآخر ، وقد انتهيت جميعًا.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop

كل دقيقتين ، سيظهر محرك CD / DVD الخاص بهمافتح. إذا كنت ترغب في جعل الأمر أكثر وضوحًا إلى الشخص الآخر الذي يتم إرسال الرسائل إليه ، فيمكنك تضمين رسالة منبثقة لتظهر والتي ، عند رفضها ، ستفتح محرك الأقراص. للقيام بذلك ، أدخل ما يلي في السطر الأول ؛

MsgBox("Happy April Fools" Day!")

المزحة تستمر طالما الشخص الآخرلا يكتشف أنه البرنامج النصي. إذا كان الهدف من مزحة الخاص بك هو شخص يعرف عن البرمجة النصية ، فهذا لن يمنحك الكثير من الضحك. ستحصل على أقصى تقدير في هذه الحالة ، جرب الورق أسفل خدعة الماوس.

في ملاحظة أخيرة ، إذا قررت مزحة أصدقائك في يوم كذبة أبريل ، فيرجى التأكد من أن المزحة مضحكة بدلاً من الإهانة أو الصدمة أو الإيذاء الجسدي.