Kā Aizvērt Programmu No Visual Basic

Satura rādītājs:

Kā Aizvērt Programmu No Visual Basic
Kā Aizvērt Programmu No Visual Basic

Video: Kā Aizvērt Programmu No Visual Basic

Video: Kā Aizvērt Programmu No Visual Basic
Video: Создание реальной программы на Visual Basic .NET 1/9 2024, Maijs
Anonim

Elastīgā un jaudīgā programmēšanas valoda Visual Basic. NET, kas ir viens no īpaši izveidotajiem rīkiem Microsoft. NET platformas lietojumprogrammu izstrādei, ļauj pilnībā izmantot visas tās iespējas. Jo īpaši System. Diagnostics nosaukumvietas komponenti ļauj mijiedarboties ar procesiem, notikumu žurnāliem un veiktspējas skaitītājiem. Piemēram, jūs varat aizvērt programmu Visual Basic, izmantojot procesu Process.

Kā aizvērt programmu no Visual basic
Kā aizvērt programmu no Visual basic

Nepieciešams

Microsoft Visual Studio

Instrukcijas

1. solis

Importējiet sistēmu, System. Diagnostics un System. Treading vārda vietas. Moduļa sākumā pievienojiet šādas koda rindas:

Importa sistēma

Importa sistēma. Diagnostika

Importa sistēma. Vītne

Tas ir tikai ērtībai, izmantojot komponentus, kas saistīti ar šīm nosaukumvietām.

2. solis

Saņemiet procesa slēgšanas datus. Izmantojiet System. Diagnostics. Process klases objektu. Paziņojiet šīs klases mainīgo:

Dim oProc kā process

Pēc tam izmantojiet kādu metodi, lai atrastu nepieciešamo procesu.

3. solis

Ja programmu, kuru nākotnē vajadzēs slēgt, palaidīs izstrādājamā lietojumprogramma, tad startējot vienkārši saglabājiet objektu, ko atgrieza Start metode:

oProc = Process. Start ("app.exe")

4. solis

Ja jums ir jāaizver process ar zināmu identifikatoru, izmantojiet procesa Process statisko metodi GetProcessById, lai iegūtu atbilstošo objektu:

oProc = Process. GetProcessById (nID)

Kur nID ir procesa skaitliskais identifikators.

5. solis

Ja ir zināmi tikai daži mērķa procesa raksturlielumi, meklējiet to. Iegūstiet to procesu sarakstu, kas darbojas lokālajā mašīnā kā procesa klases objektu masīvs. Izmantojiet GetProcesses (atgriež visus procesus) vai GetProcessesByName (tikai procesi ar norādīto nosaukumu) metodes:

Dim aoAllProcesses As Process () = Process. GetProcesses ()

Dim aoProcsByName kā process () = Process. GetProcessesByName ("app.exe")

Sarakstiet masīva objektus, izmantojot cilpu:

Dim oProc kā process

Par katru oProc aoAllProcesses

'darbības ar oProc

Nākamais

Pārlūkojiet īpašības MainModule, MainWindowTitle, ProcessName utt. lai atrastu vēlamo objektu.

6. solis

Mēģiniet pārtraukt programmu, nosūtot tuvu ziņojumu uz tās galveno logu. Izsauciet objekta metodi CloseMainWindow, kas atbilst mērķa procesam. Ja nepieciešams, pagaidiet, līdz lietojumprogramma ir pabeigta, izsaucot WaitForExit, piemēram:

oProc. CloseMainWindow ()

oProc. WaitForExit ()

Šī metode negarantē programmas pārtraukšanu, jo loga aizvēršanas ziņojums bieži tiek apstrādāts un to var ignorēt.

7. solis

Pēc tam, kad esat izsaucis programmu CloseMainWindow, uzgaidiet īsu laiku, lai pārliecinātos, ka programma tiek pārtraukta. Izmantojiet Thread klases miega metodi. Pēc tam pārbaudiet procesa statusu, pārbaudot rekvizītu HasExited, un, ja tas vēl nav pabeigts, izsauciet metodi Kill:

Vītne. Miega režīms (6000)

oProc. Atsvaidzināt ()

Ja ne oProc. HasExited Tad

oProc. Kill ()

Beigt Ja

Ja vēlaties, varat aptaujāt procesa statusu ciklā, periodiski izsakot lietotājam aicinājumu pārtraukt lietojumprogrammu, nesaglabājot datus. Un tikai tad, ja jūs piekrītat piezvanīt Killam.

8. solis

Atbrīvojiet sistēmas resursus pēc programmas pabeigšanas, izmantojot metodi Aizvērt:

oProc. Aizvērt ()

9. solis

Lai izvairītos no negaidītām kļūdām lietojumprogrammas izpildes laikā, ievietojiet visu programmas aizvēršanas algoritmu blokā Try-Catch-End Try. Ja nepieciešams, īstenojiet pilnvērtīgu izņēmumu apstrādi ar diagnostikas ziņojumiem.

Ieteicams: