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