اجرا نشدن برنامه در صورتيكه برنامه ائي ديگر در حال اجرا باشد

[alirezabahrami]

با سلام
چگونه ماداميكه برنامه خاصي در حال اجرا است از اجرا شدن برنامه ائي ديگر جلوگيري نمائيم ؟
در اين ارتباط به فايل نمونه عنايت شود و در صورت امكان اگر كد وارده در رويداد Form_Load() اشتباه است اصلاح شود !
با تشكر

[Dr.Bronx]

زیاد سخت نگیرید دوست عزیز.
از تابع زیر استفاده کنید .


Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

حالا اینطوری عمل می کنیم ( کلمه barnamenevis را به صورت پیش فرض در نظر می گیریم.)


dim find as long

حالا چک می کنیم اگر همچین برنامه ای تایتل اون barnamenevis بود پیغام بده


find = find = FindWindowA(vbNullString, "Barnamenevis")

If Not find = 0 Then
msgbox "shoma bayad az barname kharej shavid"
else
form1.show
end if

موفق باشید./

[alirezabahrami]

[quote=alirezabahrami;841070]با سلام
چگونه ماداميكه برنامه خاصي در حال اجرا است از اجرا شدن برنامه ائي ديگر جلوگيري نمائيم ؟
با سلام مجدد
نميدانم سؤال جديدي كه مطرح ميكنم نياز به يك تاپيك جديد داره يانه ؟ ولي با توجه به ارتباطي كه با سؤل اول داره آن را مطرح مينمايم ; و آن اينكه آيا اين امكان وجود داره ماداميكه برنامه ائي درحال اجراست نتوان آن(فايل آن )را كپي كرد ؟
با تشكر مجدد

[Dr.Bronx]

منظورتون اینه که مثلا اگر فایل vb6.exe در حال استفاده بود . یعنی برنامه vb باز بود
نشه این فایل vb6.exe رو کپی کرد ؟

[alirezabahrami]

منظورتون اینه که مثلا اگر فایل vb6.exe در حال استفاده بود . یعنی برنامه vb باز بود
نشه این فایل vb6.exe رو کپی کرد ؟
با سلام مجدد
منظور هر فايلي ميتواند باشد و با هر پسوندي . مثلاً فايلهائي با پسوندهاي exe. .mdb .mde
مثلاًبرنامه ائي با پسوندexe كه شورتكات آن برروي دسكتاپ است را اجرا يا باز كنيم و در حال باز بودن اين برنامه بخواهيم ازفايل آن كه مثلاً در پوشه ائي در درايو d است كپي بگيريم يا آن را cut كرده و در جائي ديگر past يا انتقال بدهيم .
توضيح اينكه بنده اينكار را بيشتر براي فايل هاي اكسس (با پسوندهاي mde و mdb ) ميخواهم اجرا شود و هدف از اين كار هم ايجاد امنيت براي فايل اكسس است . به اين صورت كه در ابتدا من فايل اكسس را رمز نگاري مي كنم ( اينكار خارج از فايل اكسس انجام ميشود ) تا اين مرحله فايل اكسس قابل باز شدن نيست ( چون استفاده كننده در هنگام اجراي آن با خطاي unrecognized database format مواجه ميشود) اما فايل فوق براي بهره برداري توسط كاربر مجاز بايد رمز گشائي شود و من اينكار را از طريق يك برنامه واسط كه قبل از اجراي فايل اكسس ، اجرا ميشود فايل اكسس را رمز گشائي مي كنم و بعد هم با يك دستور بعد از بستن برنامه مجدداً آن را رمز نگاري مي كنم . اما اشكالي كه در اين بين وجود دارد اين است كه فايل اكسس در زمان اجراي آن رمز گشائي شده و ميتوان با كپي گرفتن از فايل آن ،مورد استفاده افراد غير مجاز قرار بگيرد.
البته بايد عرض كنم كه براي ايجاد امنيت در اكسس از راههاي مختلف از جمله ايجاد قفل گذاري بر روي آن و ايجاد كد فعال سازي و كامپايل نمودن استفاده كرده و مي كنم و دنبال راهي براي ايجاد امنيت در سطح بالاتر هستم . و مي خواهم اين روش و ايده را بصورت آزمايشي تست كنم و در صورت موفقيت ، انشاءالله آموزش آن را در اين سايت ارائه نمايم .
ضمناً مطرح كردن اين موضوع كه در ارتباط با اكسس مي باشد در اين تالار صرفاً به جهت ارائه راهكار براي كپي نشدن فايل در حال اجرا است كه مطمئناً اساتيد اين تالار بهتر ميتوانند راهكار مناسب را ارائه نمايند .
با تشكر

[Dr.Bronx]

Cut کردن بحث جدایی داره با Copy کردن
وقتی برنامه در حال اجرا باشه ویندوز خود به خود اجازه Cut رو نمیده .
ولی Copy اینطور نیست چون به فایل اجرایی کاری ندارید و فقط قصد ایجاد یک کپی از اون رو دارید.
برنامه ای عکسش رو می بینید و توی ضمیمه هم گذاشتم رو مشاهده بفرمایید . من وقت نکردم کامل کدها رو نگاه کنم . یک قسمتی داره که مانع کپی شدن فایل ها میشه
ببینید آیا وقتی اون کار رو می کنه برای همه فایل ها هست یا میشه یک فایل به خصوص رو این کار رو روش انجام داد.

http://www.planet-source-code.com/upload_PSC/screenshots/PIC200012271649513081.jpg

This does everything my previous submition of Wintasks does and much much more!!! It can do VERY cool things with the windows registry like enabling / showing and disabling / hiding the following things: Printer and control panel icons, windows taskbar settings, run and find in the start menu,copying and running files

فایل ضمیمه شد .
موفق و موید باشید./