اجرای فایل با استفاده از متد Run و Open

اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران  مرداد ۱۴۰۳

مرگ بر سه ابلیس    آمریکا اسرائیل و انگلیس

در حال حاضر که حدود ۴ روز  از سکوت خبری جزئیات ترور اسماعیل هنیه و شوک بزرگ امنیتی در ایران می گذرد مشخص است که سربازان گمنام با جستجوی ترددهای محل اقامت و اطراف  و محل شلیک موشک از کوهستان روبروی محل اقامت ایشان به دنبال افرادی هستند که بتوان ثابت کرد عوامل نفوذی ایرانی مطمئناً در این ترور دخیل بوده اند ، و گرنه ایشان بسیار به ایران سفر کرده بود و دلیلی برای محافظت و مراقبت بیش از اندازه نبود. ولی بالاخره از یک غفلت اسرائیل البته با زمینه چینی بهره برد.

نوشتاری متد Run که دارای آرگومان هایی است

Syntax 
      objShell.Run (strCommand, 

[intWindowStyle], [bWaitOnReturn]) 

intWindowStyle از نوع عددی است اگر صفر باشد پنجره در حالت Hide قرار می گیرد و پنجره دیگری فعال می شود.

bWaitOnReturn  از نوع Boolean است یعنی False یا True می توانید قرار دهید یا عددی غیر 0 برای True : وقفه برای کامل شدن دستور  قبل از ادامه اجرای wsh script.

strFile = """"c:\foldername\filename.accdb""""

CreateObject("WScript.Shell").Run strFile

Open یکی از متدهای شئ Shell

CreateObject("Shell.Application").Open("C:\Temp\Book1.xlsx")

روش دیگر برای باز کردن یا پرینت گرفتن سند

.ShellExecute "application", "parameters", "dir", "verb", window 

Key 

application : فایلی که اجرا می شود( قید کردن نام اجباریست)

Parameters : آرگومان برای فایل های اجرایی

verb : عملیات برای اجرا ( runas/open/edit/print )

window : حالت نمایش پنجره ( عدد ۱ حالت معمول پنجره ، عدد صفر برای پنهان کرده پنجره و فعال کردن در پنجره دیگر  ، عدد ۲ برای به حداقل رساندن سایزپنجره [ minimize ] ، عدد ۳ برای حداکثر کردن سایز پنجره ، عدد ۴ برای بازیابی یا Restore ، عدد ۵ برای حالت جاری ، عدد ۷ به حداقل رساندن / غیر فعال شدن ، عدد ۱۰ حالت پیش فرض )

روش دیگر برای باز کردن فایل استفاده از توابع ویندوزی است 

برای ۳۲ بیت : 

ShellExecuteA Lib "shell32.dll" ( ByVal hWnd As Long ,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long) As Long

hWnd = 0

lpOperation = "open"

lpFile = Path + FileName

Others = vbNullString

اگر lpOperation را Null قرار دهید در زیر اشاره شده که پیش فرض  عمل Open خواهد بود.

Null

The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

برای باز کردن folder در آرگومان lpFile مسیر فولدر را بنویسید و بقیه را Null قرار دهید البته vbNullString

از FollwHyperlink هم که بسیار ساده و سریع هست هم می توانید بهره ببرید برای باز کردن فایل های اجرایی داکیومنت یا فولدر

مرداد ۱۴۰۳ در پی شهادت هنیه در اقامتگاهش در قلب ایران 

«بنیامین نتانیاهو» نخست وزیر رژیم صهیونیستی با تایید اینکه اسرائیل در حال حاضر در بالاترین سطح آماده باش قرار دارد، گفت که هر طرفی که اقدام تهاجمی علیه این کشور انجام دهد بهای بسیار سنگینی را خواهد پرداخت.

یک لحظه غفلت مامورین امنیتی باعث تاوان از دست دادن رهبران سیاسی بزرگ خواهد شد ، آنجا که فکر کنی دشمن خوابه همونجا خفتت می کنن !!!

امام علی(ع) در خبطه سی و چهارم نهج البلاغه می فرماید: دشمن به شما حمله مى کند و شهرها را از دستتان خارج می ‏سازد و شما به خشم نمی آئید! دیده دشمن براى حمله ‏به شما خواب ندارد، ولى شما در غفلت و بى خبرى به سر می ‏برید، شکست از آن آنانى است‏ که دست از یارى یکدیگر برمی ‏دارند.

«نیویورک تایمز»: خامنه‌ای برای حمله مستقیم موشکی و پهپادی ایران به ...

‹ 2024/08/01 ‹ iran ‹ farsi.alarabiya.net

۲۱ ساعت پیش · در همین راستا رادیو ارتش اسرائیل شامگاه چهارشنبه گزارش داد که ایران در حال بررسی انجام حملاتی به اسرائیل از خاک ایران، سوریه، عراق، لبنان و یمن

باید از اسرائیل انتقام بگیریم اما قبل از هر انتقامی در داخل سرزمین های اشغالی - که لازم است - باید انتقام جنایت تهران را در تهران گرفت و این انتقام چیزی نیست جز عملیات وعده صادق 2 برای شناسایی، دستگیری و مجازات نفوذی های اسرائیل در همه سطوح و بی هیچ تعارف و ترحمی. فراموش نکنیم که الی کوهن جزو چند نفر اول حکومت وقت سوریه بود و در همین ایران خودمان، عامل ترور همزمان رئیس جمهور رجایی و نخست وزیر باهنر، کسی نبود جز جانشین شورای امنیت کشور، مسعود کشمیری!

۱۱ تیر ۱۴۰۳ ( شهادت هنیه در ۱۱ مرداد ۱۴۰۳ )

گزارش اقتصادنیوز، سردار حاجی زاده  در جمع تعدادی از خانواده‌های شهدای غزه گفت: آرزومند رسیدن فرصت «عملیات وعده صادق ۲» هستیم که نمی دانم تعداد موشک‌های آن چقدر باید باشد. 

طبق گفته بالا این آرزو محقق شد 

تماشا کنید: ماجرای نیمه شب/ ترور هنیه در اتاق چهارم ساختمان زعفرانیه ...

خبری ‹ ویدیو ‹ www.entekhab.ir

۱۱ ساعت پیش · حدود ساعت یک ربع به دو نصفه شب دهم مرداد بود که اسماعیل هنیه رئیس دفتر سیاسی حماس در محل اقامتش در زعفرانیه تهران ترور شد.

32 bit : Declare Function

64 bit : Declare Ptrsafe Function

#If VBA7 Then 

 Declare PtrSafe Sub... 

 #Else 

Declare Sub... 

#EndIf

خبرگزاری فارس و تسنیم از اعلام جرم دادستانی علیه اردشیر رستمی و علی ضیا (مجری صداوسیما) به دلیل اشاره آنها به موضوع همجنسگرایی خبر داد.

علی ضیا به بازی اخیر اردشیر رستمی در یک فیلم در نقش فرد  همجنسگرا اشاره می کند و هر دو در این باره گفتگو می کنند. این برنامه با نام " با ضیا" در قالب مصاحبه ای است که در فضای اینترنت منتشر می شود.

خانم طلبه چرخنده بازیگر سابق سینما و تلویزیون اظهار داشت: مراقب باشید تا به لشکر حسین (ع) لبیک بگویید و مبادا وارد لشکر یزیدیان زمانه شوید، علی را بشناسیم، دین اسلام را مطالعه کنیم و بدانیم اگر دختران را درست هدایت نکنیم خودفروختگان لانه کرده در شبکه‌های معاند، این دختران را جذب مرام خود خواهند کرد.

جوکر ۲ احسان علیخانی --- فکر کنید مجید مظفری که در فیلم‌ها و سریال‌های مهم نقش‌های جدی بازی می‌کرد، مجبورش می‌کنند با آهنگی از خواننده لس‌آنجلسی برقصد! اگر قرار بر ساخت رئالیتی‌شوست پس این همه سخیف‌بودن برای چیست؟ اینکه دیالوگ‌های جنسی گفته شود یا حرکات اروتیک برای خنداندن یکدیگر استفاده شود چه نکته مثبتی برای مخاطب کودک و نوجوان دارد؟ در جوکر آنقدر از الفاظ رکیک و فحش استفاده می‌شود که حتی دیدن آن با خانواده امکان ندارد. انگار شوخی‌های جنسی را از کف خیابان جمع کرده‌اند و حالا در این برنامه از آن‌ها استفاده می‌کنند.

علاوه بر پرستو صالحی، ظاهراً حمید فرخ‌نژاد، برزو ارجمند، مهناز افشار و ارژنگ امیرفضلی نیز خواستار بازگشت به ایران هستند. فعالیت فرخ‌نژاد در ماه‌های اخیر کاهش پیدا کرده است و تقریباً خبری از او نیست. ارژنگ امیرفضلی نیز به طور پیوسته از مشقت‌های خود در کانادا می‌گوید و تورم و گرانی در غربت، او را به استیصال رسانده است. 

بازگشت این دسته از ایرانیان به داخل کشور امری بلااشکال است و جمهوری اسلامی ایران از تمامی شهروندان خود در سراسر جهان حمایت می‌کند و آن‌ها را زیر پرچم خود خواهد گرفت، کما اینکه پیش از این بسیاری از سلبریتی‌های پشیمان نیز به کشور بازگشته‌اند، اما باید این نکته را نیز در نظر داشت که این افراد در بزرگ‌ترین جنگ هیبریدی تاریخ با سازمان موساد و سیا همکاری کرده‌اند و نتیجه آن شهادت بیش از ۲۰۰نفر از مدافعان امنیت است