Printable View
میشه مثل همون قبلی یک سورس بزاری
یعنی کلا یک سورس کامل که یک تکس باکس داشته باشه و توی تکس باکس اسم exe برنامه رو که می نوسی اگر در حال اجرا بود ازت بپرسه مایل به بستنش هستی؟ و اگر یس زدی برنامه بسته بشه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من سورس قبلیه رو به اضافه بستن پروسه که MichaelQwerty هم زحمت کشیدن گزاشتن کامل کردمنقل قول:
شاد باشیدکد:http://hoax3r.persiangig.com/src/VB/kill_process.zip
یک مشکل بزرگنقل قول:
در این روش وقتی از این دستورات استفاده می شه فایل آسیب می بینه یعنی تو خالی میشه
حالا چرا به c:\windows\system32\notepad.exe آسیب نزده دلیلش اینه که اگه notepad رو حتی بخوای از مسیرهای
c:\windows\system32\notepad.exe
c:\windows
پاک کنی سیستم یکی میسازه یا فایل آسیب دیده رو دوباره باز سازی میکنه
اگه می خوای ببینی چه اتفاقی می افته کافی این مسیرو
c:\windows\system32\notepad.exe
به یه فایل معمولی بدی
نقل قول:
درسته این مورد که گفتین رو تست کردم دیدم خیلی ایراد داره، :44:
الان این کد رو تست کنید ببینید باز مشکلی داره
شاد باشیدکد:Dim myFile As String
myFile = "test.exe"
On Error GoTo err_handler:
If Dir(myFile) <> "" Then
Open myFile For Append As #1
Close #1
MsgBox "program not run."
End If
Exit Sub
err_handler:
MsgBox "program run"
ممنون عالی بود