کلکسیون بهترین کدهای vbs
1ــ ایجاد جعبه ورودی INPUT برای وارد کردن یک رشته متن
2ــ کد نمایش پیام اخطار
3ــ کد کپی شدن خود فایل
4ــ کد زیر را با فرمت vbs ذخیره کنید
5ــ کد زیر اینترنت اکس پلورر را اجرا کرده صفحه مورد نظر را نمایش میدهد
6ــ تولید اعداد تصادفی
7ــ جستوجوی فایل در یک پوشه
8ــ ...
1ــ ایجاد جعبه ورودی INPUT برای وارد کردن یک رشته متن
variable=inputbox ("Esm khod ra vared konid. ","Virus32","")
2ــ کد نمایش پیام اخطار
MsgBox "Ekhtar 1", 64 , "Virus32"
3ــ کد کپی شدن خود فایل
set fso = CreateObject("Scripting.filesystemobject")کدبالا با فرمت vbs و نام Virus32 ذخیره شده است که در درایو d کپی خواهد شد. با کپی کردن خط دوم میتوان تعداد درایوهایی که در آن باید کپی شود را افزایش داد.
fso.copyfile wscript.scriptfullname,"d:\Virus32.vbs"
4ــ کد زیر را با فرمت vbs ذخیره کنید
Set shell=CreateObject("wscript.shell")کد بالا برنامه notpad را اجرا میکند که شما میتوانید برنامه دیگری جایگزین کنید و یا میتوان از خط دوم آن صد ها بار کپی کرد تا در صورت اجرا سیستم هنگ کرده و ....
Shell.Run("Notepad.exe")
5ــ کد زیر اینترنت اکس پلورر را اجرا کرده صفحه مورد نظر را نمایش میدهد
set regdefteri = createobject("wscript.shell")
regdefteri.run "explorer.exe http://virus32.blog.ir"
6ــ تولید اعداد تصادفی
Randomizeاعداد بین صفر تا 32
msgbox Int(Rnd*32)
7ــ جستوجوی فایل در یک پوشه
set fso = CreateObject("Scripting.filesystemobject")
if fso.fileexists("D:\Virus32\Eminem.mp3") then
msgbox "File mojud ast"
else
msgbox "Yaft nashod"
end if
8ــ ...
لینکی