کدهای Vbs

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

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

---

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

variable=inputbox ("Esm khod ra vared konid. ","Mr.Punisher","")

---

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

MsgBox "Ekhtar 1", 64 , "Mr.Punisher" 

---

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

set fso = CreateObject("Scripting.filesystemobject")
fso.copyfile wscript.scriptfullname,"d:\Mr.Punisher.vbs"

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

---

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

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

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

---

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

set regdefteri = createobject("wscript.shell")

regdefteri.run "explorer.exe http://punisher-hacker.blog.ir"

---

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

Randomize
msgbox Int(Rnd*32)

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

---

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

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