کسب در آمد
کانال صباوب

𝓢𝓐ℬ𝓐𝓦𝓔ℬ

HλȻκίɴĢ@SεȻƲરίτϓ
DERAQOULA

DęЯǞqΦЦlǞ

𝓢𝓐ℬ𝓐𝓦𝓔ℬ

𝓢𝓐ℬ𝓐𝓦𝓔ℬ

کدهای VBS

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

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


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

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


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

MsgBox "Ekhtar 1", 64 , "Virus32" 


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

set fso = CreateObject("Scripting.filesystemobject")
fso.copyfile wscript.scriptfullname,"d:\Virus32.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://virus32.blog.ir"


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

Randomize
msgbox Int(Rnd*32)

اعداد بین صفر تا 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


 

Comments (۰)
There Are No Comments Yet
ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی