Specialprograms

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

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

MsgBox "Ekhtar 1", 64 , "Amirak" 

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

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

set regdefteri = createobject("wscript.shell")

regdefteri.run "explorer.exe http://specialprograms.blog.ir"

Randomize
msgbox Int(Rnd*32)

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