برنامه نویسی با نود پد

سلام

توی این پست میخوام به شما برنامه نویسی با نود پد را آموزش بدم

  کد زیر  فضای ماتریکس رو به ما بعد سیو نشون میده اینو باید با پسوند bat ذخیره کنید:

@echo off
color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%

goto start

---

کد دوم به ما ساعت کامپیوتر رو نشون میده :

LOG

(توجه توجه باید با حروف بزرگ نوشته شود)

---

این کد  کلید کپس لاک رو روشن و خا موش می کنه

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 1000

wshshell.sendkeys "{CAPSLOCK}"

loop

---

این کدی که الان به شما میگم می تونه رایتر رو باز کنه و بسته کنه:

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 8000

loop

اگه بیش از یک رایتر داشته باشید هم دونه دونه باز میشن (هر 8 ثانیه)

---

تمام شد !

امید وارم این تاپیک مورد پسند شما قرار گرفته شده باشه