Lanksti ir galinga programavimo kalba „Visual Basic. NET“yra vienas iš specialiai sukurtų įrankių, skirtų kurti programas „Microsoft. NET“platformai, leidžiantis visiškai išnaudoti visas jos galimybes. Visų pirma, „System. Diagnostics“vardų srities komponentai leidžia sąveikauti su procesais, įvykių žurnalais ir našumo skaitikliais. Pavyzdžiui, galite uždaryti programą iš „Visual Basic“naudodami „Process“klasę.
Būtinas
„Microsoft Visual Studio“
Nurodymai
1 žingsnis
Importuokite „System“, „System. Diagnostics“ir „System.threading“vardų sritis. Prie modulio pradžios pridėkite šias kodo eilutes:
Importo sistema
Importo sistema. Diagnostika
Importo sistema. Siūlai
Tai tik tam, kad būtų patogiau naudoti komponentus, susietus su šiomis vardų sritimis.
2 žingsnis
Gaukite proceso duomenų uždarymą. Naudokite „System. Diagnostics. Process“klasės objektą. Paskelbkite šios klasės kintamąjį:
„Dim oProc As Process“
Tada naudokite tam tikrą metodą, kad surastumėte reikiamą procesą.
3 žingsnis
Jei programą, kurią ateityje reikės uždaryti, paleidžia kuriama programa, paleidimo metu tiesiog išsaugokite objektą, kurį grąžino metodas Pradėti:
oProc = Process. Start („app.exe“)
4 žingsnis
Jei jums reikia uždaryti procesą su žinomu identifikatoriumi, naudokite statinį proceso klasės metodą GetProcessById, kad gautumėte atitinkamą objektą:
oProc = Process. GetProcessById (nID)
Kur nID yra skaitinis proceso identifikatorius.
5 žingsnis
Jei žinomos tik kai kurios tikslinio proceso ypatybės, ieškokite jo. Gaukite vietiniame kompiuteryje vykdomų procesų sąrašą kaip procesų klasės objektų masyvą. Naudokite „GetProcesses“(grąžina visus procesus) arba „GetProcessesByName“(tik procesai su nurodytu vardu) metodus:
„Dim aoAllProcesses As Process“(= Procesas. „GetProcesses“)
„Dim aoProcsByName As Process“(= = Process. GetProcessesByName („app.exe“))
Išvardykite masyvo objektus naudodami kilpą:
„Dim oProc As Process“
Kiekvienam „oProc“, esančiam „aoAllProcesses“
veiksmai „oProc“
Kitas
Peržiūrėkite ypatybes „MainModule“, „MainWindowTitle“, „ProcessName“ir kt. norimam objektui rasti.
6 žingsnis
Pabandykite nutraukti programą nusiųsdami uždaryti pranešimą į jos pagrindinį langą. Iškvieskite objekto metodą „CloseMainWindow“, atitinkantį tikslinį procesą. Jei reikia, palaukite, kol programa bus baigta, paskambinę „WaitForExit“, pavyzdžiui:
oProc. CloseMainWindow ()
oProc. WaitForExit ()
Šis metodas negarantuoja programos nutraukimo, nes lango uždarymo pranešimas dažnai apdorojamas ir gali būti ignoruojamas.
7 žingsnis
Palaukite trumpą laiką paskambinę į „CloseMainWindow“ir įsitikinkite, kad programa nutraukiama. Naudokite „Thread“klasės miego metodą. Tada patikrinkite proceso būseną, patikrindami ypatybę „HasExited“, ir, jei jis nebaigtas, iškvieskite „Kill“metodą:
Siūlas. Miegas (6000)
oProc. Atnaujinti ()
Jei ne oProc. HasExited Tada
oProc. Kill ()
Pabaiga jei
Jei norite, galite apklausti proceso būseną cikle, periodiškai ragindami vartotoją nutraukti programą neišsaugodami duomenų. Ir tik tuo atveju, jei sutinkate paskambinti Killui.
8 žingsnis
Atlaisvinkite sistemos išteklius, kai programa baigs naudoti uždarymo metodą:
oProc. Uždaryti ()
9 žingsnis
Norėdami išvengti netikėtų klaidų vykdydami programą, visą programos uždarymo algoritmą įdėkite į „Try-Catch-End Try“bloką. Jei reikia, įgyvendinkite visavertį išimčių tvarkymą su diagnostiniais pranešimais.
