جاسم کدخدایی بنت
10-05-2010, 20:54
این تاپیک ویژه هواداران note pad میباشد
---------- Post added at 08:41 PM ---------- Previous post was at 08:37 PM ----------
بدون شرح
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد زیرو وارد کنید بعدش با پسوند vbs ذخیره کنید
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
---------- Post added at 08:42 PM ---------- Previous post was at 08:41 PM ----------
Caps loo
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
با فرمت vbs ذخیره کنید
---------- Post added at 08:47 PM ---------- Previous post was at 08:42 PM ----------
جالبه این ترفند
با پشوند batذخیره شودضرری نداره!!
هیچ خطری نداره
----
@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
---------- Post added at 08:51 PM ---------- Previous post was at 08:47 PM ----------
بدون خطر
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با اسم LOG.txt ذخیره شود
---------- Post added at 08:53 PM ---------- Previous post was at 08:51 PM ----------
با اسم start.bat ذخیره شود
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
---------- Post added at 08:54 PM ---------- Previous post was at 08:53 PM ----------
با پسوند bat ذخیره شود جالبه این!
@echo off
color 2
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start
---------- Post added at 08:41 PM ---------- Previous post was at 08:37 PM ----------
بدون شرح
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد زیرو وارد کنید بعدش با پسوند vbs ذخیره کنید
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
---------- Post added at 08:42 PM ---------- Previous post was at 08:41 PM ----------
Caps loo
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
با فرمت vbs ذخیره کنید
---------- Post added at 08:47 PM ---------- Previous post was at 08:42 PM ----------
جالبه این ترفند
با پشوند batذخیره شودضرری نداره!!
هیچ خطری نداره
----
@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
---------- Post added at 08:51 PM ---------- Previous post was at 08:47 PM ----------
بدون خطر
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با اسم LOG.txt ذخیره شود
---------- Post added at 08:53 PM ---------- Previous post was at 08:51 PM ----------
با اسم start.bat ذخیره شود
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
---------- Post added at 08:54 PM ---------- Previous post was at 08:53 PM ----------
با پسوند bat ذخیره شود جالبه این!
@echo off
color 2
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start