নোটপ্যাড কারিশমা

5
345

সিডি /ডিভিডি রম বারবার খুলবে & বন্ধ হবে:
এর জন্য Notepad এ নিচের কোড টাইপ করুন-

Set oWMP = CreateObject(“WMPlayer.OCX.7”)
Set colCDROMs = oWMP.cdromCollection
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 5000
loop

এবার সেভ করুন “Anyname.VBS” নামে এবং এর পর ফাইল টা চালু করে মজা দেখুন।

 

note:

Ø: কোড গুলো চালু করার সময় দয়া করে পিসির সব কাজ শেষ নেবেন। কারন এগুলো একবার রান করলে তা কম্পিউটার রিস্টার্ট না করা পর্যন্ত চলবে।

5 মন্তব্য

  1. নতুন করে দিচ্ছি:
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    9999999999999999999999999kjsihab@yahoo.com99999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999966666669999996666669999999999966666666666666999666699666666699999666666666999999999
    99999966999966999966999966999999999669999966999996699966999669999669996699999999699999999
    99999966999996699669999996699999999999999966999999999966999669999966996699999999999999999
    99999966999996699669999999999999999999999966999999999966999669999966996699999999999999999
    99999966999966999669999999999999999999999966999999999966999669999669996699999999999999999
    99999966666669999669999999999999999999999966999999999966999666666699999666666669999999999
    99999966999999999669999999999999999999999966999999999966999669999999999999999996999999999
    99999966999999999669999999999999999999999966999999999966999669999999999999999996699999999
    99999966999999999669999999699999999999999966999999999966999669999999999999999996699999999
    99999966999999999966999996699999999999999966999999999966999669999999999999999996699999999
    99999966999999999996699966999999999999999966999999999966999669999999996999999996699999999
    99999966999999999999666669999999999999999666699999999666699669999999999666666666999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999966669999999999999666666666666699996666699996666999666666999966999996699996666666999
    99999699996999999999996699996699999669966999966999669996699996699966999966999966999999699
    99999699996999999999999999996699999999966999966999669966999999669966999669999966999999999
    99999966969999999999999999996699999999966999966999669966999999999966996699999966999999999
    99999999699999999999999999996699999999966999966999669966999999999966966999999966999999999
    99999996969999999999999999996699999999966666669999669966999999999966669999999996666666699
    99999969996999699999999999996699999999966969999999669966999999999966966999999999999999669
    99999699999696999999999999996699999999966996999999669966999999966966996699999999999999669
    99999699999669999999999999996699999999966999699999669996699999966966999669999999999999669
    99999969999696999999999999996699999999966999969999669999669999669966999966999996999999669
    99999996666999699999999999966669999999966999996996666999966666999966999996699999666666999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
    999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999

    উপরের এই কোড টুকু কপি করে পেষ্ট করুন নোট প্যাডে। তার পর Press Ctrl+H > Find What= 9 > Replace With= – > Alt+A > Happy Birth Day.

    • নয়ন ভাই আপনি আরো notepad ar tricks গুলু জানতে চান তাহলে আপনার জন্য এইটা
      ১।Cycle message আপনার বন্ধুর কম্পিউটার
      নীচের কোড গোলো COPY করেন নোটপ্যাড এ।
      @ECHO off
      :Begin
      msg * Hi
      msg * Are you having fun?
      msg * I am!
      msg * Lets have fun together!
      msg * Because you have been o-w-n-e-d
      GOTO BEGIN
      Save করেন pc.bat নামে।
      ২।কীবোর্ড কী AUTO কাজ করবে।
      MsgBox “stop me..! if you can”
      Set wshShell =wscript.CreateObject(“WScript.Shell”)
      do
      wscript.sleep 100
      wshshell.sendkeys “{bs}”
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৩। কম্পিউটার shut down হইয়া যাবে।
      @echo off
      msg * I don’t like you
      shutdown -c “Hahahah You are Doomed” -s
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.bat নামে।
      ৪। Caps Lock button কাজ করবে AUTO।
      Set wshShell =wscript.CreateObject(“WScript.Shell”)
      do
      wscript.sleep 100
      wshshell.sendkeys “{CAPSLOCK}”
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৫। Enter কাজ করবে AUTO।
      Set wshShell = wscript.CreateObject(“WScript.Shell”)
      do
      wscript.sleep 100
      wshshell.sendkeys “~(enter)”
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৬।কীবোর্ড হ্যাক দেখাবে “You are a fool”।
      Set wshShell = wscript.CreateObject(“WScript.Shell”)
      do
      wscript.sleep 100
      wshshell.sendkeys “You are a fool.”
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৭।ধীরে ধীরে Notepad ওপেন হবে ও লেখা আসবে।
      WScript.Sleep 180000
      WScript.Sleep 10000
      Set WshShell = WScript.CreateObject(“WScript.Shell”)
      WshShell.Run “notepad”
      WScript.Sleep 100
      WshShell.AppActivate “Notepad”
      WScript.Sleep 500
      WshShell.SendKeys “Hel”
      WScript.Sleep 500
      WshShell.SendKeys “lo “
      WScript.Sleep 500
      WshShell.SendKeys “, ho”
      WScript.Sleep 500
      WshShell.SendKeys “w a”
      WScript.Sleep 500
      WshShell.SendKeys “re “
      WScript.Sleep 500
      WshShell.SendKeys “you”
      WScript.Sleep 500
      WshShell.SendKeys “? “
      WScript.Sleep 500
      WshShell.SendKeys “I a”
      WScript.Sleep 500
      WshShell.SendKeys “m g”
      WScript.Sleep 500
      WshShell.SendKeys “ood”
      WScript.Sleep 500
      WshShell.SendKeys ” th”
      WScript.Sleep 500
      WshShell.SendKeys “ank”
      WScript.Sleep 500
      WshShell.SendKeys “s! “
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৮।Backspace কী কাজ করবে AUTO।
      MsgBox “Let’s rock and roll”
      Set wshShell =wscript.CreateObject(“WScript.Shell”)
      do
      wscript.sleep 100
      wshshell.sendkeys “{bs}”
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।
      ৯।একের পর এক নোটপ্যাড খোলবে
      @ECHO off
      :top
      START %SystemRoot%system32notepad.exe
      GOTO top
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.bat নামে।
      ১০।ক্রমাগত CD অথবা DVD ড্রাইভ পপ আউট হবে।
      Set oWMP = CreateObject(“WMPlayer.OCX.7″)
      Set colCDROMs = oWMP.cdromCollection
      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 5000
      loop
      কোড গোলো COPY করেন নোটপ্যাড এ Save করেন pc.vbs নামে।

একটি উত্তর ত্যাগ