در سطور زير چند تا ديگر از موارد مصرف vbs را توضيح داده و اين بحث را تمام ميكنم و بقيه موارد بعهده خود
كاربر است كه بيشتر ياد بگيرد.
توجه داشته باشيد كه زماني جوان بودم و هر مطلبي را ميخواستم توضيح دهم ، همه در ذهنم بودند و راحت
بودم.ولي امروز سني گذشته و پيري هست و مريضي، و مهمتر از همه فراموشي.
يعني الان ديگر مطالب در ذهنم نبوده و تمام نكاتي را كه عرض ميكنم از يادداشت هاي قديمم انتخاب ميكنم
و توضيح مي دهم
منظور از گفتن اين جملات اين است كه فراموش نكنيد كه جواني پايدار نيست و شما هم روزي پير خواهيد
شد. لذا از امروز به فكر آن روز باسيد تا در آن روز دچار مشكلات نباشيد.
Delete كزدن يك يا چند فايل توسط فايل vbs
========================
گاهي ميخواهيد توسط فايل vbs فايل يا فايل هائي را ديليت كنيد.
فرض مي كنيم كه فايلي بنام xxx.txt در داخل پوشه اي بنام Tools در روت درايو E وجود داشته و شما
مي خواهيد با دستور vbs آن را Delete كنيد. در زير كد هاي مربوط به اين كار را مي بينيد:
کد:
Const DeleteReadOnly = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("E:\Tools\xxx.txt"), DeleteReadOnly
تذكر: وقتي كه فايلي داراي خاصيت Read only باشد، دستورات معمولي vbs اين نوع فايل را Delete نميكنند
ولي با كدي كه در بالا مي بينيد اين نوع فايل ها را هم Delete خواهد كرد.
شما براي استفاده از اين كد ها فقط بايد قسمت E:\Tools\xxx.txt را بدلخواه تغيير دهيد.
در ضمن اين نكته را هم اضافه كنم كه در صورتيكه در مثال بالا در داخل پوشه فوق تعداد زيادي فايل txt وجود
داشته باشد و شما بخواهيد همه آن ها را پاك كنيد ، در كد هاي بالا فقط بجاي عبارت "E:\Tools\xxx.txt" از
عبارت "E:\Tools\*.txt" استفاده كنيد.
Restart و ShutDown توسط فايل vbs
=====================
كد هاي Restart بصورت زير است:
کد:
dim strShutDown,objShell
strShutdown = "shutdown.exe -r -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown, 0, false
براي Shutdown در كد هاي بالا در سطر دوم بعد از عبارت shutdown.exe بجاي s- از r- استفاده نمائيد.
تايپ اتوماتيك پيعام در برنامه Notepad
=====================
فرض كنيم كه شما ميخواهيد برنامه Notepad باز شده وعبارت زير بطور اتوماتيك داخل آن تايپ شود:
کد:
Hello Sahand This is For Test _ Magsou d _
كد زير را تايپ كرده و آن را با نام فزضا" Auto Type.vbs ذخيره نمائيد:
کد:
Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 100
wshshell.sendkeys "H"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 100
wshshell.sendkeys "l"
wscript.sleep 100
wshshell.sendkeys "l"
wscript.sleep 100
wshshell.sendkeys "o"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "S"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "h"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "n"
wscript.sleep 100
wshshell.sendkeys "d"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "T"
wscript.sleep 100
wshshell.sendkeys "h"
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "i"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "F"
wscript.sleep 100
wshshell.sendkeys "o"
wscript.sleep 100
wshshell.sendkeys "r"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "T"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys "t"
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "_ "
wscript.sleep 100
wshshell.sendkeys "M"
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "g"
wscript.sleep 100
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys "o"
wscript.sleep 100
wshshell.sendkeys "u "
wscript.sleep 100
wshshell.sendkeys "d "
wscript.sleep 100
wshshell.sendkeys "_ "
wscript.sleep 100
حال اگر كاربر اين قايل را احرا كند خواهيد ديد كه عبارت بالا درست مثل اينكه داريد تايپ ميكنيد ، تايپ خواهد شد.
مطلب زياد است و اميدوارم كه شما بقيه راه را موفق باشيد.
علاقه مندی ها (بوک مارک ها)